APPENDIX A 



GRAPHIC CHATTING WITH ORGANIZATIONAL 

AVATARS 

CI 

KYUNAM KIM 

m 

m M-8786 US 

nl 

01 

Ci 

CI 



702354 vl 



Actor, cpp 




// Actor. cpp: implementation of the CActor class. 
// 

//////////////////////////////////////////////////////////////// 
////// 

#include " stdaf x . h" 
#include "Actor . h" 
#include "ResMan . h" 
#include "Behavior . h" 
#include "UC2Ani/Bubble . h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#define new DEBUG_NEW 
#endif 

extern CResMan gResMan; 

const DWORD LONGTIMELATER = 3600000L; //I hour later 
const int BUBBLEH=10; 

//////////////////////////////////////////////////////////////// 
////// 

// Construction/Destruction 

//////////////////////////////////////////////////////////////// 
////// 

CActor : : CActor ( ) 
{ 

m_pBeh ^ NULL; 

m_bMoving = FALSE; 
m_nRepeat = 0 ; 
m_nColorSet = 0; 
m_bVoice = FALSE; 
m_pBB = new CBubble; 

/ / for movement 

m_ptDestEarth = CPoint(0, 0); 
m_nDestElev = 0; 
m_bForward = TRUE; 

m_pShadow = NULL; // CSprite 
m_pTM = NULL; 

} 

CActor : : --CActor ( ) 
{ 

if (m_pShadow) 

delete m__pShadow; 
// CStage : :DeleteActor will delete bubble 
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// if (m__pBB) 
// { 

// if (m_pStage) 

// m_pStage->GetBubbleList ( ) - >Remove {m_pBB) ; // 

remove this bubble 

// delete m_pBB; 

// } 
} 



BOOL CActor :: SetBehavior (const int bi, const BOOL bAlarm) 
{ 

if (m_bMoving) 
{ 

TRACE ( "CActor :: SetBehavior 0 - Actor is moving ... \n" ) ; 
return FALSE; 

} 

m_mi . SetBehavior (bi) ; 

m_pBeh = gResMan. GetActorBehavior (m_mi . GetCharlD ( ) , bi) ; 
if (lm_pBeh) 

{ 

TRACEl ( "Invalid behavior index %d\n" , bi); 
return FALSE; 

} 

m_ai = 0 ; 

m_bMoving = { (bi AB_WALKF) (bi <= AB_RES__M0VE2 ) ) ; 

m_nRepeat = m__pBeh- >GetRepeat ( ) ; // save original repeat 

count 

if (bAlarm) 

SetAlarmTick 0 ; // Respond immediately 

return TRUE; 

} 

// Basic behavior (stance) needed to be done after any behavior 
BOOL CActor : iBasicStance (const BOOL bChanging) 

switch (m_mi . GetState 0 & AS MASK) 

{ 

case AS_STAND; 

if (bChanging) 

return SetBehavior ( (m_mi . GetState ( ) & DA_FORWARD) 
? AB_STANDINGF : AB_STANDINGB) ; 
else 

return SetBehavior ( (m_mi . GetState ( ) & DA_FORWARD) 
? AB_STANDF : AB_STANDB) ; 
case AS_MORPH: 

if (bChanging) 
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return SetBehavior ( (m__mi . GetState { ) & DA_FORWARD) 
? AB_MORPHINGF : AB_MORPHINGB) ; 
else 

return SetBehavior ( (m_mi . GetState { ) & DA_FORWARD) 
? AB_MORPHF : AB_MORPHB) ; 
case AS_DOZE : 

return SetBehavior ( (m__mi . Get State ( ) & DA_FORWARD) ? 
AB_DOZEF : AB_DOZEB) ; 

} 

TRACE ( "CActor - Invalid State %xh\n" , m_mi . GetState {)) ; 
return FALSE ; 

} 



// Onldle 

// Returning TRUE means we should render 
BOOL CActor : :HeartBeat (const DWORD dwCurTick) 
{ 

if ( lm_pBeh) 

-I { 

y| TRACE ( "CActor (%x) : :HeartBeat : Tn_pBeh = MULL\n", this); 

111 SetAlarmTick (dwCurTick + LONGTIMELATER) ; 

return FALSE; 

Of } 

CBehavior : :Cell* pC = m__pBeh- >GetCell (m_ai) ; // includes 
range check 

if ( !pC) // One behavior ended 
{ 

// TRACE ( "CActor (%x) ::HeartBeat: Behavior (%d) done.\n", 

'^^^ this, rn_pBeh- >Get ID ( ) ) ; 

r;= m_ai ^ 0; // wrap index 

if (m_bMoving) 

{ 

SetElevation (m_nDestElev) ; 

MoveToEarth (m_ptDestEarth) ; 

SetZByEarthO ; 

ASSERT (m_pBB) ; 

if (m_pBB->IsShown ( ) ) 

AdjustBubblePosition { ) ; 

} 

// if repeat count is infinite (=0) or left, continue 
this action 

if {m_pBeh->GetRepeat { ) == 0) // 0 means infinite loop 

return TRUE; 
if (--m_nRepeat <= 0) 
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{ 

m_bMoving = FALSE; 

if (m_mi .GetBehavior ( ) AB_WALKF) // 

otherwise it is a basic stance 

return BasicStance (FALSE) ; // do not show 

changing cuts 

SetAlarmTick(dwCurTick + LONGTIMELATER) ; 

} 

return FALSE; 

} 

SetCell (pC- >nID) ; // update the view with the current 
cell (frame) 

SetlmOp ( (m_mi . GetState ( ) & DA_RIGHT) ? pC->wIO : (pC->wIO | 
IMAGE_FLIP) ) ; // calls m_pNotifyObj - >Change ( . . . 
if (pC->nSI >- 0) 

gResMan . PlayWave (pC->nSI) ; 
if (pC->ptDisp.x II pC">ptDisp . y) 
{ 

WORD wDA = m_mi .GetState ( ) & DA__MASK; 

if ( !m__bForward) // Reverse direction 

{ 

if (wDA <= DA_FL) wDA <<= 2; 
else wDA >>= 2; 

} 

switch (wDA) 

{ 



case 
break; 


DA_ 


_FR: 


MoveBy ( 


-pC- 


>ptDisp 


.X, 


+pC- 


>ptDisp 


y) ; 


case 
break; 


DA 


_FL: 


Move By ( 


+pC- 


>ptDisp 


.X, 


+pC- 


>ptDisp 


y) ; 


case 
break; 


DA 


BR: 


MoveBy ( 


+pC- 


>ptDisp 


X, 


-pC- 


>ptDisp 


y) ; 


case 


DA_ 


_BL: 


MoveBy ( 


-pC- 


>ptDisp 


X, 


-pC- 


>ptDisp 


y) ; 



break; 
} 

if (GetElevation () ) // ( (wDA & DA_FORWARD) wDA) ) 

// increasing z-order 

{ 

if (m_ai == 1) // 0,1,2,3, half the way 

SetZ(GetZ() - 16); // half the height of 

the tile 

} 

else 

{ 

SetZByEarthO ; 

} 
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ASSERT (m_pBB) ; 

if (m_pBB- >IsShown ( ) ) 

AdjustBubblePosition ( ) ; 



} 



// Set Alarm time to be called for the next frame 
SetAlarmTick (dwCurTick + (DWORD) pC- >nTicks * GetMSPT ( ) ) 
m_ai++ ; 

return TRUE; // call RenderAndDrawDirtyList ( ) in 
CStage: :TickAll () 



// FR(1) -> FL(2) -> BR(4) -> BL ( 8 ) -> FR ( 1 ) 
/ / counter-clockwise 

WORD CActor : :GetTurnNextDA() const 
{ 

WORD wDA - m_mi .GetState 0 & DA_MASK; 
ASSERT (wDA) ; 

ASSERT(DA_FR 0x0001); 
ASSERT(DA_BL 0x0008); 
wDA <<= 1; 
if (wDA > DA_BL) 

wDA = DA_FR; 
return wDA; 



WORD wDA = m_mi .GetState 0 & DA_MASK; 
ASSERT (wDA) ; 

ASSERT(DA_FR == 0x0001); 
ASSERT(DA_BL 0x0008); 
wDA >>= 1; 
if (wDA < DA_FR) 

wDA = DA_BL; 
return wDA; 



TRACE ("CActor :: Act 0 - Actor is moving ... \n" ) ; 
return FALSE; 



} 



WORD CActor : :GetTurnPrevDA ( ) const 

{ 




switch (nCmd) 
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// Position Move 
// case CMD_MOVEF: 
// case CMD^MOVEB: 
// State Change 

case CMD_STAND: return Set SA (AS_STAND) ; 

case CMD_MORPH: return SetSA (AS_MORPH) ; 

case CMD_DOZE: return SetSA (AS_DOZE) ; 

case CMD_TURNL: return SetDA (GetTurnNextDA ( ) , FALSE); 

case CMD_TURNR: return SetDA (GetTurnPrevDA ( ) , FALSE); 

// Actions 

case CMD_CHAT : 
case CMD_HELLO: 

if { (m_mi .GetState 0 & AS_MORPH) AS_MORPH) 

return TRUE; // No behavior will be shown for 

morphed actor , 

return SetBehavior ( (m_mi . Get Stat e ( ) & DA_FORWARD) ? 
AB_CHAT : AB_WIGGLEB) ; 
case CMD__ENTER: 
case CMD_EXIT: 
case CMD__SMILE: 
case CMD_^4AD: 
case CMD_CRY : 
// case CMD_S CRATCH: 
case CMD_PICK: 
case CMD_SPECIAL: 

if ( (m_mi .GetState 0 & AS_MORPH) == AS_MORPH) 

return TRUE; // No behavior will be shown for 

morphed actor. 

case CMD_SCRATCH: 

return SetBehavior (AB_CHAT + nCmd - CMD_CPIAT) ; 
case C]yiD_PUNCH: 

return SetBehavior ( (m_mi . Get State ( ) & DA__FORWARD) ? 
AB_PUNCHF : AB_PUNCHB) ; 
case CMD_BEATEN: 

return SetBehavior ( (m_mi . GetState ( ) Sc DA_FORWARD) ? 
AB_BEATENF : AB_BEATENB) ; 

} 

return FALSE; 

} 

BOOL CActor: :MoveTo (const CPoint& ptDest, const int nEA, const 

BOOL bForward) 

{ 

if (m_bMoving) 

{ 

TRACE (" CActor : :MoveTo() - Actor is moving ... \n" ) ; 
return FALSE; 
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) 

Tn__ptDestEarth = ptDest; 
m_nDestElev = nEA; 

m_bForward = bForward; 

switch (m_mi .GetState 0 &AS_MASK) 

{ 

case AS_STAND: 
case AS_DOZE: 

if (nEA == GetElevation ( ) ) 

{ 

return SetBehavior ( (m_mi . GetState { ) & DA_FORWARD) 
? AB_WALKF : AB_WALKB) ; 

} 

else if (nEA > GetElevation () ) 
{ 

if ( ! bForward) 
{ 

SetBehavior (AB_SCRATCH) ; 

return FALSE; // can't go up backward 

} 

return SetBehavior ( (m_mi . GetState ( ) & DA_FORWARD) 
? AB_UPF : AB_UPB) ; 

} 

else 
{ 

return SetBehavior ( (m_mi . GetState ( ) & DA_FORWARD) 
? AB_DOWNF : AB_DOWNB) ; 

} 

case AS__MORPH: 

return SetBehavior ( (m__mi . Get State { ) & DA_FORWARD) ? 
AB_MORPHWALKF : AB_MORPHWALKB) ; 
} 

return FALSE; 

} 

void CActor :: Chat (const CString& strText) 
{ 

CString strBubble ( strText ) ; 

if (strBubble . GetLength 0 > gResMan . GetBubbleTextLimi t ( ) ) 

{ 

strBubble.GetBuf ferSetLength(gResMan.GetBubbleTextLimit () ) ; 
StrBubble . ReleaseBuffer ( ) ; 
StrBubble " . . . " ; 

} 

CRect rcA; // This Actor's Rectangle 
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GetRect (rcA) ; 

m_pBB->SetKind (m_mi .GetBubbleKind 0 ) ; 
WORD wDA = m_mi . GetState ( ) & DA_MASK; 
if ( (wDA DA_FL) I I (wDA DA BR)) 

{ 

m_pBB->SetTextAlign (TA_RIGHT) ; 

m_pBB- >TextOut (rcA. right, rcA . top-BUBBLEH , strBubble) 

} 

else 

{ 

m_pBB->SetTextAlign (TA_LEFT) ; 

m_pBB->TextOut (rcA. lef t , rcA. top-BUBBLEH, strBubble) ; 

} 

m_pBB- >SetZ ( -GetEarthPointY ( ) ) ; 
m_pBB-> Show (TRUE) ; 

// Set duration somewhat proportional to the length of the 

talk 

DWORD dwDelay - gResMan . GetBubbleTime ( ) + 
StrBubble. GetLength 0 * 80; 

// if (dwDelay > 8000) // in l/lO sec unit 
// dwDelay - 8000; 

m_pBB->SetAlarmTick( : :GetTickCount 0 + dwDelay); 

i f ( m^bMovi ng ) 
return; 

if (strText . Find {"^^u^u") >= 0) Act (CMD_CRY) ; 

else if ( (strText.Find("glgi") >- 0 ) || 

(strText . Find("E£E£") >- 0)) Act (CMD__ SMILE ) ; 
else if (strText . Find{" 'gE^") >= 0) 
Act {CMD_S CRATCH) ; 

else if (strText . Find ("^^E^ g") >= 0) 
Act (CMD_HELLO) ; 

else if (strText . Find ( "3^5^ifi") >= 0) Act (CMD_MAD) ; 

else Ac t ( CMD_CHAT ) 

// includes range check 

SetAlarmTick {) ; // Force immediate action 



void CActor: : Ad j ustBubblePosi t ion ( ) 

{ 

CRect rcA; 
GetRect (rcA) ; 

if (m_pBB->GetTextAlign 0 == TA__LEFT) 

m_pBB->MovePosition(rcA. lef t , rcA . top-BUBBLEH) ; 

else 

m_pBB->MovePosition (rcA. right , rcA. top-BUBBLEH) ; 
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m_pBB- >SetZ ( -GetEarthPointY ( ) ) ; 

} 

// virtual 

void CActor :: Render (CDIB* pDIB, const CRect* pClipRect) 

{ 

// The sprite Shadow need not have z-order 
// since it is always rendered with CActor 
if (m__pShadow) 

m_pShadow- >Render (pDIB, pClipRect) ; 
CPhasedSprite : : Render (pDIB , pClipRect) ; 

} 

/ / virtual in CSprite 

void CActor :: SetLiT (const int x, const int y) 

{ 

CPhasedSprite: :SetLT(x, y) ; 

if (m_pTM) 

{ 

m_mi . SetTilelD {m_pTM- 
>GetNearestTileIndex (GetEarthPoint ( ) ) ) ; 
} 

if (m_pShadow) 

{ 

CSize sE (GetEarth ( ) ) ; // of this actor 

CSize sS (m_pShadow->GetWidth ( ) /2 , m_pShadow- 
>GetHeight ( ) /2) ; 

m_pShadow- >SetLT (x + sE . cx - sS.cx, y + sE . cy - sS . cy 

+ 2) ; 

} 

} 

// virtual 

void CActor :: Set ImOp (const WORD wImOp) 

{ 

CPhasedSprite: : Set ImOp (wImOp) ; 
if (m_p Shadow) 

m_pShadow- > Set ImOp (wImOp) ; 

} 

void CActor :: Init State (CMemberlnfoSc mi) 

{ 

m_mi = mi ; 

m_pBB->SetKind(m_mi .GetBubbleKindO ) / 

} 

void CActor :: GetMemberlnfo (CMetnberInfo& mi) 
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mi ^ m_mx ; 



BOOL 



CActor: : I sMember Ignored ( ) const 



PICS_MEMBER pM - m_mi . GetMember ( ) ; 
if (pM) 



BOOL bignored = (pM- >HrIsMemberIgnored ( ) == NOERROR) 
pM- >Release ( ) ; 
return bignored; 



PICS_MEMBER pM - m_mi . GetMember () ; 
if (pM) 

{ 

BOOL fRet = (pM- >HrIsMemberHost ( ) == NOERROR); 
pM- >Release ( ) ; 
return fRet ; 



return TRUE; 



// Ignored? Ya- 



BOOL 



CActor : : IsMemberHost ( ) const 



return FALSE; 
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// Actor.h: interface for the CActor class. 

// 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllljllllllllllll 
#if 

!defined(AFX_ACTOR_H_C78B9066_A908_llDl_80E2_080009B9F339 INCLUDEDJ 
#define AFX_ACTOR_H_C78B9066_A908_1 1D1_80E2_080009B9F339_INCLUDED_ 
#if _MSC_VER >= 1000 
#pragma once 

#endif // MSC VER >= 1000 
#include "UC2Ani/PhSprite.h" 
#include "UC2Messages.h" 
#include "TileMap.h" // DA_... 
#include "Memberlnfo.h" 
class CBehavior; 
class CBubble; 
class CSprite; 

class CActor : public CPhasedSprite 
{ 

public: 

CActorO; 
virtual -CActor(); 
// Attributes 

GetCharlDQ const { return m_mi.GetCharID(); } 
GetColorSetQ const { return m nColorSet; } 
GetBubbleQ const { return m_pBB; } 

GetStateO const { return m mi.GetStateQ; } 

GetDAO const { return (m_mi.GetState() & DA MASK); } 
GetTumNextDAQ const; 
GetTumPrevDAQ const; 
IsMovingO const { return m bMoving; } 
SetShadow(CSprite* pS) { m_jDShadow = pS; } 
IsVoiceO const { return m_b Voice; } 

GetMemberO { return m mi.GetMemberQ; 



int 
int 

CBubble* 

WORD 

WORD 

WORD 

WORD 

BOOL 

void 

BOOL 

PICS MEMBER 



} 



const CString*GetNick() const 



void 
int 

Male, 1: Female, 2: Child, 

BOOL 

BOOL 
// Operations 

virtual void 

virtual void 

virtual void 

void 



{ return m_mi.GetNick(); } 



GetMemberInfo(CMemberInfo& mi); 

GetGenderQ const { return m mi.GetSexQ; } 

IsMemberlgnoredO const; 
IsMemberHostO const; 



//O: 



SetLT(const int x, const int y); 
SetImOp(const WORD wImOp); 



// For Shadow 



// For Shadow 



Render(CDIB* pDIB, const CRect* pClipRect=NULL); // For Shadow 
SetTileMap(CTileMap* pTM) { m_pTM = pTM; } 
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void 

m_mi.SetCharID(nCharID); } 
void 
BOOL 
BOOL 



SetCharID(const int nCharlD) 



{ 



} 



SetColorSet(const int nCS) { m nColorSet - nCS; } 
SetBehavior(const int bi, const BOOL bAlarm-TRUE); 
SetState(const WORD wState, const BOOL bChanging=TRUE) 
{ m_mi.SetState(wState); return BasicStance(bChanging); 



BOOL 



BOOL 



SetSA(const WORD wSA, const BOOL bChanging=TRUE) 

{ m_mi.SetSA(wSA); return BasicStance(bChanging); } 
SetDA(const WORD v^DA, const BOOL bChanging=TRUE) 

{ m_mi.SetDA(wDA); return BasicStance(bChanging); } 
virtual BOOL HeartBeat(const DWORD dwCurTick); // ticker 
BOOL Act(const int nCmd); 

jBOOL MoveTo(const CPoint& ptDest, const int nEA, const BOOL 

bForward-TRUE); 

void Chat(const CString& strText); 

// Attach the PICS member interface object to this CActor object 

BOOL Attach(PICS_MEMBER pMem) { return 

m mi.SetMember(pMem); } 

void InitState(CMemberInfo& mi); 

CMemberlnfo m_mi; 
protected: 

BOOL 
changing cuts 

void 

BOOL 

int 

CBehavior* 
int 

CBubble* 
// CQueue 

BOOL 
// for movement 
CPoint 
int 

BOOL 
CSprite* 
CTileMap* 

}; 

#endif// 

!defmed(AFX_ACTOR 



BasicStance(const BOOL bChangmg=TRUE); // Show 

AdjustBubblePositionQ; 
m bMoving; // Actor is moving, do not interrupt 

m_nColorSet; 
m_pBeh; // pointer to the CBehavior obj 

m nRepeat; // current Repeat count for behavior 
m _pBB; // holds an instance for the CBubble 

m_ActionQ; 
m bVoice: 



m_ptDestEarth; 

m nDestElev; 
m_bForward; 
mj)Shadow; 
mjpTM; 



H_C78B9066_A908_1 1D1_80E2 080009B9F339_INCLUDEDJ 
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// 


CBaseClia.nnel class 


/ / 




// 


Copyright (C) 1996 Microsoft Corporation 


// 


All rights reserved. 


// 




// 


Modification for MFC 


// 


(C) Programmed by Kim, 


// 


unichat Media Lab 


// 


Information Technology Institue 


// 









#include "stdafx.h" 
#include "BaseChan.h" 



CBaseChannel : : CBaseChannel ( ) 
{ 

TRACEO ( "CBaseChannel : : CBaseChannel { ) \n" ) ; 
m_picsChannel = NULL; 

m_p Thread = NULL ; 

m_hThread = NULL; 

m_f GotMemList ~ FALSE ; 

m_nPICSChanRef = 0; 

} 



CBaseChannel : : -CBaseChannel ( ) 
{ 

TRACEO { "CBaseChannel : : -CBaseChannel () \n" ) ; 
Cleanup ( ) ; 

} 

// Save the channel pointer returned by ChatSock, then start a message 
BOOL CBaseChannel :: FInit (PICS_CHANNEL pChannel) 

ASSERT (pChannel) ; 

WaitForMsgThread ( ) ; 



SetChannel (pChannel) ; 

if ( I FStartMessageThread ( ) ) 
{ 

Cleanup (} ; 
return FALSE; 

} 

return TRUE; 

} 

// Resets the object so it can be restarted with a new channel, 

BOOL CBaseChannel : : FRelnit ( ) 

{ 

Cleanup () ; 



return TRUE; 

} 

// Release our channel pointer. 
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void CBaseChannel :: Cleanup ( ) 
{ 

m_f GotMemList = FALSE; 

WaitForMsgThread () ; 
if (m_picsChannel ) 

{ 

m_picsChannel ->Release ( ) ; 
m_j)icsChannel = NULL; 

} 

} 

// Wait for our message thread to terminate; we need to do this 

// so we can be sure the thread is cleaned up so we can exit or reinitializ 

the object. 

void CBaseChannel; : Wai tForMsgThread ( ) 
{ 

if (m_hThread) 
{ 

TRACE ( "CBaseChannel - : : Wai tForSingleOb j ect {Ox%lx, 5000L) ; \n" , 

m_hThread) ; 

DWORD dwRc = : : Wai tForSingleOb j ect ( m_hThread , 5000L) ; 

switch (dwRc) 

{ 

case WAIT_OBJECT_0 : 

TRACED ( "Thread: WAIT_OBJECT_0\n" ) ; 

break; 
case WAIT_ABANDONED : 

TRACED ( "Thread: WAIT_ABANDONED\n " ) ; 

break; 
case WAIT_TIMEOUT : 

TRACED ( "Thread Hung! Delet ing . . An " ) ; 

// : :MessageBox (NULL, "Error: Cannot terminate channel 
thread. \n", "CBaseChannel", MB_OK) ; 
// delete m_pThread; 

break; 
case WAIT_FAILED: 

PrintWin32Error { "Thread : WAIT_FAILED ") ; 

break; 
default : 

TRACED { "Thread Hung!\n"); 

break; 

} 

// : :CloseHandle (m_hThread) ; // CWinThread may have done this 

for us . 

m_pThread = NULL; // CWinThread auto-deleted 
m_hThread = NULL; 

} 

} 

//////////////////////////////////////////////////////////////////////////// 

// CBaseChannel accessors 

// Don't miss calling Release {) after using the returned pointer. 

PICS_CHANNEL CBaseChannel : : PChannel ( ) 

{ 

if (m_picsChannel) 

m_p ics Channel -> Ad dRef {) ; 
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return m_picsChannel / 

} 



BOOL CBaseChannel : :FInChannel 0 
{ 

return {NULL != m_picsChannel ) ; 

} 

// FLeaveO will Release C) 

void CBaseChannel : iSetChannel (PICS__CHANNEL pics) 

ASSERT ( !m_picsChannel) ; 

pics->AddRef {) ; 
m_picsChannel - pics; 

} 

// Get Channel name 

char* CBaseChannel: :SzName() 

{ 

ASSERT (m__picsChannel) ; 

BYTE* pb; 
BOOL fAnsi; 

HRESULT hr = m_picsChannel - >HrGetName ( &pb , ScfAnsi) 

// For simplicity, ignore non-ANSI . . . 
if (FAILED(hr) II !fAnsi) 
return NTJLL; 

return (char*)pb; 

} 

// Returns the name of the specified member, 
char* CBaseChannel :: SzMemName (PICS_MEMBER pMember) 

ASSERT (pMember) ; 

BYTE* pb; 
BOOL fAnsi; 

HRESULT hr = pMember- >HrGetName ( &pb , &fAnsi); 

// For simplicity, ignore non-ANSI... 
if (FAILED(hr) || IfAnsi) 
return NULL; 

return (char*)pb; 

} 

char* CBaseChannel : : SzTopic ( ) 
ASSERT (m_picsChannel) ; 

BYTE* pb; 
BOOL fAnsi; 

HRESULT hr = m_jpicsChannel - >HrGetTopic ( &pb , &fAnsi) 
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// For simplicity, ignore non-ANSI . . . 
if (FAILED(hr) || ! f Ansi) 
return NULL; 

return (char*)pb; 

} 

// Is the specified member myself? 

BOOL CBaseChannel : ; FIsMemberMe (PICS_MEMBER pMember) 

ASSERT (m__picsChannel) ; 
// ASSERT (pMember) ; 

PICS_MEMBER pMem; 

if (FAILED (m__picsChannel->HrGetMe (&pMem) ) ) 
return FALSE; 

} 

BOOL fRet = (pMember == pMem) ; 
if (pMem) 

{ 

pMem- >Release () ; 

} 

return fRet; 

} 

BOOL CBaseChannel : : FAmlHost ( ) 
{ 

ASSERT (m_picsChannel) ; 
PICS_MEMBER pMem; 

if (FAILED (m_picsChannel->HrGetMe (&pMem) ) } 
return FALSE; 

} 

if (pMem) 
{ 

BOOL fRet = (NOERROR pMem- >Hr IsMemberHos t () ) ; 
pMem- >Release () ; 
return fRet; 

} 

return FALSE; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CBaseChannel operations 

BOOL CBaseChannel :: FSendAnsiText (char* szText) 
ASSERT (m_picsChannel) ; 

HRESULT hr = m_jpicsChannel - >HrSendTextA ( szText ) ; 
if (FAILED (hr)) 

{ 

FOnChannelError (hr) ; // virtual function call 

return FALSE; 
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} 

return TRUE; 

} 

BOOL CBaseChannel : : FSendData (BYTE* pbData, DWORD dwcb) 
ASSERT {m_picsChannel) ; 

HRESULT hr ^ m_picsChannel - >HrSendData (pbData , dwcb) ; 

if (FAILED (hr)) 

{ 

FOnChannelError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE ; 

} 

BOOL CBaseChannel : :FWhisperTo (PICS_MEMBER pM, char* szText) 
ASSERT (m_picsChannel) ; 

HRESULT hr = m_picsChannel - >HrSendTextListA ( szText , &pM, 

if (FAILED (hr)) 

{ 

FOnChannelError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

BOOL CBaseChannel :: FSendlnvite (PCS_INVITEINFO pilnfo) 
ASSERT (m_pic s Channel) ; 

HRESULT hr = m_picsChannel - >HrSendInviteA (pi Inf o) ; 
if (FAILED (hr) ) 

{ 

FOnChannelError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

DWORD CBaseChannel : :DwUserCount ( ) 
{ 

ASSERT (m_picsChannel) ; 
DWORD cUser; 

HRESULT hr = m_j>icsChannel - >HrGetUserCount ( &cUser ) ; 

if (FAILED (hr)) 

{ 

FOnChannelError (hr) ; // virtual function call 

return 0; 

} 

return cUser; 

} 
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DWORD CBaseChannel : : DwType ( ) 
{ 

ASSERT (m_picsChannel) ; 
DWORD dwMode; 

HRESULT hr = m_picsChannel - >HrGetType ( &dwMode ) ; 

if ( FAILED (hr)) 

{ 

FOnChannelError (hr) ; // virtual function call 

return 0 ; 

} 

return dwMode; 

} 

BOOL CBaseChannel :: FSetTopic (char* szTopic) 
ASSERT (m_picsChannel) ; 

HRESULT hr = m_picsChannel - >HrSetTopicA ( szTopic) ; 

if (FAILED (hr)) 

{ 

FOnChannelError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

BOOL CBaseChannel :: FLeave ( ) 

{ 

ASSERT (m_picsChannel) ; 

if (m_picsChannel ) 
{ 

if (FAILED (m_picsChannel->HrLeave (FALSE) ) ) 
return FALSE; 

WaitForMsgThread ( ) ; 
m_j)icsChannel- >Release ( ) ; 
if (m_nPICSChanRef ) 

m_picsChannel->Release 0 ; 
m_picsChannel = NULL; 

} 

return NOERROR; 

} 

// Waits for a message to arrive on the message queue. 

// Calling FLeave on the channel will cause this method to return FALSE 
immediately . 

// Dispatches the received message using the overrideable virtual methods 
CBaseChannel . 

BOOL CBaseChannel: : FWaitForMessage ( ) 

if ( ! m_picsChannel ) 
return FALSE; 

m_picsChannel->AddRef 0 ; // increase the ref 

count so that we can be sure that 
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TRACED ("m_picsChannel->AddRef 0 ;\n") ; // the channel object does 

go away until this function ends... 
m_nPICSChanRef ++; 

PCS_MSGBASE pcsMsg; 

while {SUCCEEDED {m_picsChannel->HrWaitForMsg (&pcsMsg, INFINITE)) ) 
DebugMessageType { "=> CBaseChannel : : FWait ForMessage " , pcsMsg- 

>csMsgType) ; 

switch (pcsMsg->csMsgType) 

default : 

FUnknownMessage (pcsMsg) ; 
break ; 

case CSMSG_TYPE_ERROR : 
{ 

PCS_ERROR pErr - MSGBASE_TO_MSG CpcsMsg , PCS_ERROR) ; 
FOnChannelError (pErr->hr) ; // virtual function call 

breaks- 
case CSMSG_TYPE_ADDMEMBER : 
{ 

PCS_MSGMEMBER pAddMsg = MSGBASE TO MSG(pcsMsg, 

PCS_MSGMEMBER) ; " 

FOnAddMember (pAddMsg) ; // virtual function call 

breaks- 
case CSMSG_TYPE_GOTMEMLIST : 
m_fGotMemList ^ TRUE; 
// FOnGotMemList () ; 

break; 

case CSMSG_TYPE_DELMEMBER : 
{ 

PCS_MSGMEMBER pDelMsg = MSGBASE_TO_MSG (pcsMsg , 

PCS_MSGMEMBER) ; 

FOnDelMember (pDelMsg) ; // virtual function call 

break; 

case CSMSG_TYPE_DELCHANNEL : 
{ 

PCS_MSGCHANNEL pMsgChan = MSGBASE_TO MSG(pcsMsg, 

PCS_MSGCHANNEL) ; 

FOnDelChannel (pMsgChan) ; // virtual function call 

} 

break; 

case CSMSG_TYPE_MODEMEMBER : 
{ 

PCS_MSGMEMBER pModeMsg = MSGBASE TO MSG (pcsMsg 

PCS_MSGMEMBER) ; ~ ~ 

FOnMemberModeChange (pModeMsg) ; // virtual function 

call 
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} 

break ; 

case CSMSG_TYPE_MODECHANNEL : 

FOnChannelModeChange () ; // virtual function 

call 

breaks- 
case CSMSG_TYPE_TEXT A: 

{ 

PCS_MSG pMsgText = MSGBASE_TO_MSG (pcsMsg , PCS_MSG) ; 
FOnAnsiTextMsg(pMsgText) ; // virtual function 

} 

break ; 

CSMSG_TYPE_DATA : 
{ 

PCS_MSG pMsgData = MSGBASE_TO_MSG (pcsMsg , PCS_MSG) ; 
FOnDataMsg(pMsgData) ; // virtual function 

} 

break; 

CSiyiSG_TYPE_WHISPERTEXT A: 

{ 

PCS_MSGWHISPER pMsgWhisper = MSGBASE_TO_MSG (pcsMsg , 
FOnAnsiWhisperTextMsg (pMsgWhisper) ; // virtual function 
} 

breaks- 
case CSMSG_TYPE_WHISPERDATA: 
{ 

PCS_MSGWHISPER pMsgWhi sperData = MSGBASE TO MSG(pcsMsQ, 
PCS_MSGWHISPER) ; ~ ~ 

FOnAnsiWhisperDataMsg (pMsgWhisperData) ; // virtual 

function call 

} 

breaks- 
case CSMSG_TYPE_NEWTOPIC: 

FOnNewTopic 0 / // virtual function call 

break; 

case CSMSG_TYPE_NEWNICK: 
{ 

PCS_NEWNICK pNickMsg - MSGBASE_TO_MSG (pcsMsg , PCS_NEWNICK) 

FOnNewNick(pNickMsg) ; // virtual function call 

} 

break; 

} 

// Free the msg 

: :HrFreeMsg (pcsMsg) ; 

if (m_picsChannel ) 



case 



call 



case 

PCS__MSGWHISPER) ; 
call 
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{ 

m_picsChannel - >Release ( ) ; 
m_nPICSChanRef - - ; 

TRACED ( "m_j)icsChannel - >Release ( ) ; \n" ) ; 

} 

TRACEOC'End of CBaseChannel : ; FWai tForMessage ( ) \n " ) ; 
return TRUE; 

} 

BOOL CBaseChannel: : FStartMessageThread ( ) 
{ 

ASSERT { lm_hThread) ; 

// m_hThread = : : CreateThread {NULL , 0, DwChannelThreadProc , this, 0, 
&dwID) ; 

m_pThread = Af xBeginThread ( ChannelThreadProc , (LPVOID) this ) ; 
ASSERT {m_pThread) ; 

m_hThread = m__pThread- >Tn_hThread; // Save the handle 

// We need to save the handle since the object mjiThread points to may 
already 

// be deleted away. And pass this handle to : : WaitSingleObj ect . 

TRACE ( "CBaseChannel created a thread for DwChannelThreadProc [%lx] \n" , 

m_pThread- >m_nThreadID) ; 
return (m_jpThread 1= NULL) ; 



// static 

UINT CBaseChannel :: ChannelThreadProc (LPVOID pvData) 
{ 

ASSERT (pvData) ; 

CBaseChannel* pbasechannel = (CBaseChannel* ) pvData ; 
return pbasechannel ->FWaitForMessage ( ) 
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// 

// CBaseChannel class 
// 

// (C) Programmed by Kim, 

//unichat Lab 

// Information Technology Institue 

// unichat 

// 

// Original Copyright (C) 1996 Microsoft Corporation 

// All rights reserved. 

// 

// Modified and trouble - shooted for MFC 

// : :CreateThread > CWinThread* Af xBeginThread 

// 

#ifndef _BASECHAN_H 
#define _BASECHAN_H 

//////////////////////////////////////////////////////////////////////////// 
// class CBaseChannel 

// CBaseChannel is a wrapper around ICSChannel . 

//It provides message -handling code and wrappers around some ICSChannel 
functionality . 

//If you need more functionality from ChatSock, use CBaseChannel :: PChannel ( ) 

//to obtain a channel interface and then call ChatSock directly. 

// Note: if you intend to keep that pointer around in other data structures, 

// you should AddRef () it and then Release () it when that particular data 

structure 

// goes away. This will make your cleanup logic a lot more robust, 
class CBaseChannel : public CObject 

{ 

public : 

CBaseChannel () ; 

virtual -CBaseChannel () ; 

BOOL FInit (PICS_CHANNEL pChannel); 

BOOL FRelnit () ; 

PICS_CHANNEL PChannel { ) ; 

BOOL FInChannel () ; 

^ BOOL ■ FGotMemList 0 const { return m_f GotMemLis t ; 

BOOL FAmlHost () ; 

BOOL FIsMemberMe (PICS_MEMBER pMember) ; 

char* SzName ( ) ; 

char* SzMemName {PICS_MEMBER pMember) ; 

char* SzTopic () ; 

BOOL FGotMemberList ( ) { return 

m_f Go t MemLi s t ; } 

BOOL FSendAnsiText (char* szText) ; 

BOOL FSendData (BYTE* pbData, DWORD dwcb) ; 

BOOL FWhisperTo (PICS_MEMBER pM, char* szText); 

BOOL FSendlnvite (PCS_INVITEINFO pilnfo) ; 
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DwUser Count ( ) ; 
DwType ( ) ; 

FSetTopic (char* szText) 
FLeave ( ) ; 



DWORD 
DWORD 
BOOL 
BOOL 

// Overrideables 

virtual BOOL 

{ return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 

{ return TRUE; } 

virtual BOOL 

{ return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 

{ return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 
return TRUE; } 

virtual BOOL 
return TRUE; } 

// and if we got something we don't really handle.., 

virtual BOOL FUnknownMessage (PCS_MSGBASE pMsg) 

return TRUE; } 



FOnChannelError (HRESULT hr) 
FOnAddMember {PCS_MSGMEMBER pMsg) 
FOnDelMember (PCS_MSGMEMBER pMsg) 
FOnDelChannel {PCS_MSGCHANNEL pMsg) 
FOnMemberModeChange ( PCS_MSGMEMBER pMsg) 
FOnChannelModeChange ( ) 
FOnNewTopic { ) 

FOnAnsiTextMsg (PCS_MSG pMsg) 
FOnDataMsg (PCS_MSG pMsg) 

FOnAnsiWhisperTextMsg ( PCS_MSGWHISPER pMsg) 
FOnAnsiWhisperDataMsg ( PCS_MSGWHISPER pMsg) 
FOnNewNick (PCS_NEWNICK pMsg) 



protected : 
// friend DWORD 
static UINT 

void 
void 
BOOL 
BOOL 
void 

PICS_CHAISrNEL 
BOOL 

CWinThread* 

HANDLE 

int 



stdcall ChannelThreadProc (PVOID pvData) ; 
ChannelThreadProc (LPVOID pvData) ; 

Cleanup {) ; 

SetChannel (PICS_CHANNEL pics); 
FWai tForMessage ( ) ; 
FStartMessageThread 0 ; 
WaitForMsgThread () ; 

m_pics Channel / 
m_f GotMemList ; 
m_pThread; 

m_hThread ; 

m nPICSChanRef ; 



#ifdef _DEBUG 

void DebugMessageType (LPCSTR t, CSiyiSG_TYPE c) ; 
DWORD PrintWin32Error (LPCSTR pszErrorString) ; 

#else 

#define DebugMessageType ( t , c) // Do nothing 

#define PrintWin32Error { t ) 
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#endif 

ttendif // _BASECHAN 
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// 

// CBaseSocket class 
// 

// (C) Programmed by Kim, 

// unichat Lab 

// Information Technology Institue 

// 

// 

// Copyright (C) 1996 Microsoft Corporation 

// All rights reserved. 

// 

// Modified and trouble - shooted for MFC 

// : : CreateThread > CWinThread* Af xBeginThread 

// 

#include "stdafx.h" 
#include "BaseSock.h" 

#include " resource . h " // main symbols 

//DWORD stdcall DwSocketThreadProc (PVOID pvData) ; 

CBaseSocket : : CBaseSocket ( ) 
{ 

TRACED ( "CBaseSocket : : CBaseSocket { ) \n" ) ; 

m_pics = NULL; 

m_pFactory = NULL; 

m__pThread = NULL; 

m_hThread ^ NULL; 

m_bCanceled = FALSE; 

m__nPICSRef = 0; 

} 

CBaseSocket : : -CBaseSocket ( ) 
{ 

TRACED ("CBaseSocket: : ^CBaseSocket () \n") ; 
Cleanup () ; 

} 

// Close the socket and kill the worker thread, 
void CBaseSocket :: Cleanup ( ) 

{ 

if ( ! m_bCanceled) 

FCloseChatSocket () ; 

if (m__pFactory) 

{ 

m_pFactory- >Release ( ) ; 

} 

if (m_pics) 

{ 

nn_pics - >Release ( ) ; 

} 

WaitForMsgThread ( ) ; 

} 

//We need to make sure to wait for the thread to exit, so we 
// can be sure all the resources have been cleaned up. 
void CBaseSocket: : WaitForMsgThread ( ) 



A-25 



BaseSockxpp 



if (m_hThread) 
{ 

TRACE ( "CBaseSocket - : : Wai tForSingleObj ect ( Ox%lx , 5000L) ; \n" , 

m_hThread) ; 

DWORD dwRc = : : Wai t ForSingleOb j ec t (m_hThread , 5000L) ; 
switch (dwRc) 

{ 

case WAIT_OBJECT_0 : 

TRACED ("Thread: WAIT_OB JECT_0\n " ) ; 

break ; 
case WAIT_ABANDONED : 

TRACEO { "Thread : WAIT_ABANDONED\n " ) ; 

break; 
case WAIT__TIMEOUT: 

TRACEO ( "Thread Hung ! Deleting . . . \n" ) ; 

: :MessageBox (NULL, "Error: Cannot terminate socket 
thread. \n", "CBaseSocket", MB OK); 

delete m_pThread; 

breaks- 
case WAIT_FAILED : 

PrintWin32Error ( "Thread: WAIT_FAILED ") ; 
breaks- 
default : 

TRACEO ( "Thread Hung 1 \n" ) ; 
break; 

} 

// : : CloseHandle (m_hThread) ; 

m_pThread = NULL; // CWinThread auto-deleted 
m_hThread = NULL; 



// 



Log off and close the socket, 



BOOL CBaseSocket: : FCloseChatSocket () 
{ 

i f ( m_p i c s ) 
{ 

TRACEO ("CBaseSocket: : FCloseChatSocket () : m_pics - >HrLogOf f {) \n") 
// After a successful log off, 
nn_pics->HrLogOf f ( ) ; 

// IChatSocket : :HrWaitForMsg method will return a CS_E QUEEMPTY 



message/ 



// You should then terminate your message loop. 

WaitForMsgThread 0 ; // Soomin Kim 

TRACEO ( "CBaseSocket : : FCloseChatSocket ( ) : mjpics 
>HrCloseSocket () \n" ) ; 

m_pics- >HrCloseSocket ( ) ; 
(0x800046010 

m_pics- >Release 0 ; 

if (m nPICSRef) 



// A thread in ChatSock.dll exits 



{ 



m_pics - >Re lease ( ) ; 
m nPICSRef--; 



} 

m_pics = NULL; 
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// Don't set m_pics = NULL here. Since 
CBaseSocket : : FWaitForMessage ( ) may still 
// be running. 

} 

return TRUE; 

} 

PICS CBaseSocket :: PChatSocket 0 

{ 

ASSERT (m_pics) ; 

if (m_pics) 

m_pics- >AddRef 0 ; 
return m_pics; 

} 

// Initialize the object. We create the socket factory here, so we can 

// allow disconnecting during the process of connecting; a connection attempt 

// can take a long time, so if the caller wants to cancel the process, 

// it can call HrDisconnect ( ) in another thread. 

BOOL CBaseSocket : :FInit 0 

{ 

// ASSERT ( !m_pics) ; 

if (m_jpics) 

{ 

TRACED ( "CBaseSocket :: FInit 0 - m_pics != NULL\n"); 
return FALSE; 

} 

if (m__pFactory) 

{ 

m_pFactory->Release ( ) ; 

} 

TRACEO ("CBaseSocket: : : HrCreateChatSocket Factory ( IID_CHATSOCKVERl , 
&:m_pFactory) \n" ) ; 

HRESULT hr = -. : HrCreateChatSocketFactory ( IID_CHATSOCKVERl , 
&m_pFactory) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

m_pFactory = NULL; 
return FALSE; 

} 

// m_pFactory- >AddRef ( ) ; // by Kim, Soomin 
return TRUE; 

} 

// Connecting to a chat server via ChatSock is a 2 -step process. 
// Since we don't know if the chat server is a MIC or IRC server, 
// we call the socket factory and let it sort out the protocol issues. 
// The socket factory will create a socket . 

// Once we have the socket, we can then connect and log into the server. 

BOOL CBaseSocket :: FConnect (PEC_CONNINFO pclnfo, HWND hNotifyWnd) 

{ 

HRESULT hr = NOERROR; 

BOOL fDoneBak = FALSE; // have we tried the backup nick? 

BOOL fLoop = TRUE; 
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TCHAR cBackupIDSuf f ix - 'O'; 

ASSERT (pclnfo m_pFactory) ; 

if (FConnected ( ) ) 
return TRUE; 

if {hNotifyWnd) 

: : PostMessage (hNotifyWnd, CMD_CONNECT_CONNECTING , 0, 0) ; 

m_bCanceled = FALSE; 

TRACE { "CBaseSocket : m_pFactory- >HrMakeSocket (%s , %lx) \n" , pclnfo- 
>szServer, &:m_pics) ; 

hr = m_pFactory->HrMakeSocket (pcInfo->szServer, &m_pics) • 
if (FAILED (hr)) 

goto LReturn; 

if (m_pics->HrIsMicSocket 0 != NOERROR) 
{ 

: :MessageBox (NULL, "This is not an MIC socket!\n", "CBaseSocket • 

MB_OK) ; 

goto LReturn; 

} 




if (hNotifyWnd) 

: rPostMessage {hNotifyWnd, CMD_CONNECT_LOGIN , 0, 0); 

CS_CONNINFO cinfo; 

: : ZeroMemory (ficClnf o, sizeof {CS_CONNINFO) ) ; 
cinfo.dwcb = sizeof (CS_CONNINFO) ; 

cInfo-bType pclnfo- >f Authenticate ? CS_CONNECT AUTHENTICATE • 

CS_CONNECT_ANONYMOUS ; ~ 
cInfo.pvNick = (PVOID) pclnfo- >szNick; 

cinf o . pvUser = ( PVOID) pclnfo- >szUserName ; 

cInfo.pvPass = (PVOID) pclnfo- >szPass ; 

// Loop till we have a result on the login 

while (fLoop) 

{ 

TRACED ( "CBaseSocket : : FConnect : m_pics - >HrLoginA ( &clnf o) ;\n") ; 
hr = m_pics->HrLoginA{&cInfo) ; 
if (FAILED (hr)) 
{ 

goto LReturn; 

} 

// Now check the Wait Q for acknowledgement 
PCS_MSGBASE pcsMsg; 

TRACEO ( "CBaseSocket : : FConnect : m_pics - >HrWaitForMsq ( &pcsMsQ 
INFINITE) ;\n") ; ^ / 

hr = m_pics->HrWaitTillMsgType (CSMSG_TYPE_LOGIN, &pcsMsg, pclnfo 

>dwTimeOut) ; 

TRACE ( "CBaseSocket : : FConnect: m_pics - >HrWaitForMsq returned 

%lx\n" , hr) ; 



if {FAILED (hr)) 
{ 
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/ / Did we log in or get an error? 

// ASSERT (pcsMsg) ; 

// switch (pcsMsg- >csMsqTvpe) 

// { 

// case CSMSG TYPE ERROR: 
// { - - 

/ / TRACED ( "CBaseSocket : CSMSG_TYPE_ERROR\n " ) ; 

// PCS_ERROR pErr = (PCS_ERROR) (pcsMsg + 1); 

// hr = pErr->hr; 



if (hr CS_E_ILLEGALUSER) 
{ 

FOnSocketError (hr ) ; 
continue ; 

} 

if ( (hr == CS_E_ALIASimJSE) ! f DoneBak && pclnfo- 

>szNickBak) 

{ 

int n = Istrlen (pcinf o->szNickBak) ; 
if (n > 1) 

{ 

pcInfo->szNickBak [n-1] = cBackupIDSuf f ix 
cInfcpvNick = (PVOID) pcInf o- >szNickBak; 
if (cBackupIDSuf fix++ >= '9') 

{ 

f DoneBak = TRUE; 

} 

if (hNotifyWnd) 
{ 

: : PostMessage (hNotifyWnd, 

CMD_CONNECT_BACKUPID, 0, 0 ) ; 



} 

} 

continue ; 

} 

// } 

// break; 

// case CSMSG_TYPE_IjOGIN: 

/ / TRACEO ( "CBaseSocket : CSMSG_TYPE_LOGIN\n" ) ; 

// hr = NOERROR; 

/ / break; 

// default: 

// ASSERT (FALSE) ; 

// break; 

// } 



goto LReturn; 

} 



FOnLoginO; // call the virtual function 

fLoop = FALSE; 

: iHrFreeMsg (pcsMsg) ; 



LReturn : 

// If successful, save the socket 
if (SUCCEEDED (hr) ) 
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{ 

TRACED { "CBaseSocket : : FConnect : FStartMessageThread ( ) ; \n" ) ; 
// Start a thread to read messages from the message que 
if ( ! FStartMessageThread ( ) ) 

{ 

FOnSocketError (E_OUTOFMEMORY) ; // virtual function 

call 

Cleanup 0 ; 
return FALSE; 

} 

return TRUE; 

} 

// Failure 

// On Cancel, m_pics - >HrCloseSocket ( ) may already been called by 
FCloseChatSocket ( ) . 

if ( ! m_bCanceled && m_pics) 
{ 

TRACED ( "CBaseSocket : : FConnect : m_pics - >HrCloseSocket ( ) \n" ) ; 
m__pics - >HrCloseSocket () ; 

TRACED ( "CBaseSocket : : FConnect : m_pics - >Release ( ) \n" ) ; 
m_pics - >Release ( ) ; 
m_jpics = NULL; 

} 

// FOnSocketError (hr) ; // virtual function call // Doesn't work 

for OnCancel . . . 

// TRACED ( "CBaseSocket :: FConnect returned FALSE\n"); 
return FALSE; 

} 

// Disconnect from the server . 

// Cancels any in-progress connection attempts or other blocking operations. 
BOOL CBaseSocket :: FDisconnect ( ) 

{ 

// As long as m__pFactory is alive, HrCancelMakeSocket ( ) will have 
// the same effect as calling HrCloseSocket ( ) on a ChatSocket . 
m_bCanceled = TRUE; 
FCloseChatSocket () ; 
if (m_pFactory) 

{ 

TRACED C " CBaseSocket : m_j)Factory - >HrCancelMakeSocke t ( ) \n " ) ; 
HRESULT hr = m_jpFactory- >HrCancelMakeSocket ( ) ; 
// m_pFactory- >Release C ) ; 

// m_pFactory = NULL; // to prevent calling m_j>Factory- 

>HrCancelMakeSocket { ) again 

if {FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

} 

// m_pThread = NULL; 
// m_hThread = FALSE; 
return TRUE; 

} 
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// Does this server support anonymous logins? 
BOOL CBaseSocket: : FCanAnonymous () 

// Grab security details 
PCS_SECURITY pcsSecurity; 

HRESULT hr = m_pics - >HrGetSecuri tyinf o ( &pcsSecuri ty ) ; 
if (FAILED (hr) ) 

{ 

return TRUE; // assume anon 

} 

return pcsSecurity- >fAnonAl lowed ; 



// Uses m_pics->HrCreateChannelA() to create a channel; if a channel 
// with the specified name already exists, this function simply joins it 
BOOL CBaseSocket : :FCreateJoinChannel (PEC_CHANNELINFO pChanlnfo) 

ASSERT (pChanlnfo) ; 
ASSERT (m__pics) ; 

CS_CINFO cinfo; 

: :2eroMemory(&cInfo, sizeof (CS_CINFO) ) ; // This line was missing 
It's was the BUG I Nov 21thu'96 

cinfo.dwcb = sizeof (CS_CINFO) ; 

cInfo.dwType = pChanlnfo- >dwType ; 

cInfo.dwFlags = pChanlnfo- >dwFlags ; 

//if channel exists, join it, else create a new one 
cinf o.bCreateFlags =z CS_CHANNEL_CREATE_JOIN; 

cInfo.pvChannelName = ( PVOID) pChanlnfo - >s zName ; 
cInfo.pvTopic = (PVOID) pChanlnfo- >szTopic; 

cInfo.pvPassword = pChanlnfo- >szPass ; 
cInfo .dwcUserMax - pChanlnfo- >cUsersMax ; 

TRACE ("CBaseSocket : m _j>ics - >HrCreateChannelA (&clnf o) - %s\n", 
(char*) CInfo.pvChannelName) ; 

HRESULT hr = m_pi cs - >HrCreateChannelA ( &c Inf o ) ; 

if (FAILED (hr) ) 
{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE ; 

} 

return TRUE; 

} 

BOOL CBaseSocket : : FConnected ( ) 
{ 

^ return (m_pics (NOERROR == m_pics - >Hr IsConnected ( ) ) ) ; 

BOOL CBaseSocket :: ChangeNick (LPCSTR nick) 
ASSERT (m_pics) ; 



HRESULT hr = m _pics - >HrChangeNickA (( char* ) nick) ; 
if (FAILED (hr) ) 

{ 
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FOnSocketError (hr ) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

// Waits for a message to arrive on the message queue. 

// Calling FCloseChatSocket on the socket will cause this method to return 
FALSE immediately. 

// Dispatches the received message using the overrideable virtual methods 
of CBaseSocket. 

BOOL CBaseSocket: : FWaitForMessage ( ) 

{ 

if ( ! m_pics ) 

return FALSE; 

m_pics - >AddRef ( } ; // increase the ref count so that 

we can be sure that 

TRACED { "m_pics- >AddRef (); \n" ) ; // the socket object doesn't go 

away until this function ends... 

m_nPICSRef ++ ; 

PCS_MSGBASE pcsMsg; 

while (SUCCEEDED (m_pics - >HrWaitForMsg ( &pcsMsg , INFINITE) ) ) 
{ 

DebugMessageType { " = > CBaseSocket -.: FWaitForMessage " , pcsMsg- 

>csMsgType) ; 

switch (pcsMsg- >csMsgType) // BYTE 

{ 

default : 

FUnknownMessage (pcsMsg) ; // virtual function call 

break; 

case CSMSG_TYPE_ERROR : 
{ 

PCS_ERROR pErr = MSGBASE_TO_MSG (pcsMsg , PCS_ERROR) ; 
FOnSocketError (pErr- >hr) ; // virtual function call 

} 

break; 

case CSMSG_TYPE_ADDCHANNEL : 
{ 

PCS__MSGCHANNEL pMsgCh = MSGBASE_TO_MSG (pcsMsg , 



PCS^MSGCHANNEL) ; 
Ref ++ 



FOnAddChannel (pMsgCh) ; // virtual function call; 

} 

break ; 



PCS MSGPRIVATE) ; 



case CSMSG_TYPE_PRIVATEMSG: 
{ 

PCS_MSGPRIVATE pMsgPrivate - MSGBASE_TO_MSG (pcsMsg, 



FOnPrivateMsg (pMsgPrivate) ; // virtual function call 

} 

break; 

case CSMSG TYPE QUERYDATA: 



A-32 



BaseSock.cpp 



{ 

PCS_PROPERTY pcsProp 

PCS_PROPERTY) ; 

FParseQueryData (pcsProp) ; 

} 

break ; 

case CSMSG_TYPE_INVITE: 
{ 

PCS_MSGINVITE pcslnvite = MSGBASE_TO_MSG (pcsMsg , 

PCS__MSGINVITE) ; 

FOnlnvite (pcslnvite) ; // virtual function call 

} 

break; 

} 

: : HrFreeMsg (pcsMsg) ; 

} 

if {m_pics) 

{ 

m_pics - >Release C ) ; 
m _nPICSRef - ' ; 

TRACED ( •'in_pics->Release (); \n" ) ; // the socket object doesn't 

go away until this function ends. . . 
// m_pics = NULL; 

} 

TRACED ( "End of CBaseSocket : : FWaitForMessage ( ) \n" ) ; 
return TRUE; 

} 

// Performs default parsing on query data messages. 

// If this method is not overridden, it will call FOnPropString and 

FOnPropBuf f er 

// as appropriate for the query data. 

BOOL CBaseSocket : : FParseQueryData (PCS_PROPERTY pcsProp) 

{ 

return TRUE; 

ASSERT (pcsProp) ; 

if ( IpcsProp- >picsProperty) 
return FALSE; 

DWORD dwc; 

if (FAILED ( (pcsProp- >picsProperty) - >HrGetCount (&dwc) ) ) 
return FALSE; 

BOOL fRet = TRUE; 

for (DWORD dwi=l; dwi <= dwc && fRet; dwi++) 
{ 

CS_PROPDATA cspd; 

if (SUCCEEDED ( (pcsProp->picsProperty) - >HrGetProperty (&cspd, 

dwi) ) ) 

{ 

if ( ! cspd .pbData || Icspd.fAnsi) // For simplicity's sake, 

ANSI only. 

{ 

continue ; 




= MSGBASE_TO_MSG (pcsMsg , 

// virtual function call 
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} 

fRet = (cspd. f String) 

? FOnPropString (cspd.csPropType, (CHAR*) cspd.pbData) 
: FOnPropBuf f er (cspd . csPropType , cspd . pbData , 

cspd. dwcb) ; 

} 

} 

if (pcsProp- >f LastRecord) 
{ 

TRACEC'This was the last record. \n"); 
// What should I do? 

} 

return fRet; 

} 

BOOL CBaseSocket: : FStartMessageThread ( ) 
WaitForMsgThread ( ) ; 

mj>Thread - Af xBeginThread (SocketThreadProc , (LPVOID) this ) ; 
ASSERT (m_pThread) ; 

m_hThread = m_pThread- >m_hThread; // Save the handle 

TRACE ("CBaseSocket created a thread for SocketThreadProc [%lx]\n", 

m_pThread- >m_nThreadID) ; 
return (m_pThread != NULL); 

} 

// static 

UINT CBaseSocket :: SocketThreadProc (LPVOID pvData) 
ASSERT (pvData) ; 

CBaseSocket* pbasesocket = (CBaseSocket *) pvData ; 
^ return pbasesocket - >FWai tForMessage () ; 

','/,'// ^ f """"""" I " I II" 1 1 I'll 1 1 1 / 1 

I / Operations via Chat Socket 

BOOL CBaseSocket : iFSendPrivAnsiText (char* szNickTo, char* szText) 
ASSERT (m_jpics) ; 
CS_PRIVMSGINFO msg ; 

msg.dwcb = sizeof (CS_PRIVMSGINFO) ; 

msg.dwUserlD =0; // 0 if not available 

msg.pvNickTo = szNickTo; // name of the user to send 

this msg to 

msg. f Data = FALSE; // 

msg. pbData = (BYTE* ) szText ; // data to send 

msg.dwcbData =0; // 0 means null terminated 

string 

HRESULT hr = m j>ics - >HrSendPrivMsgA ( &msg ) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 
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return FALSE; 



} 

return TRUE; 



BOOL CBaseSocket : :FSendPrivData (char* szNickTo, BYTE* pbData, DWORD dwcb) 



msg to 



ASSERT (mjics) ; 

CS_PRIVNSGINFO 
msg . dwcb 
msg . dwUserlD 
msg . pvNickTo 



msg ; 

= sizeof {CS_PRIVMSGINFO) ; 

= 0; // 0 if not available 

= szNickTo; // name of the user to send this 



string 



msg . f Data 
msg . pbData 
msg . dwcbData 



= TRUE; 
= pbData; 
= dwcb; 



// 

// data to send 

// 0 means null terminated 



HRESULT hr = m_pics - >HrSendPrivMsgA ( &:msg) ; 
if (FAILED (hr)) 
{ 



FOnSocketError (hr) ; 
return FALSE; 



// virtual function call 



} 



} 

return TRUE; 



/ / Debugging 

#if def ined (_DEBUG) 

void DebugMessageType (LPCSTR t, CSMSG_TYPE c) 



t) 

t) 

t) , 
t) . 



switch (c) 
{ 

case CSMSG_TYPE_NONE : 
break; 

// socket, channel 
case CSMSG_TYPE__ERROR : 
break; 
// socket 

case CSMSG_TYPE_LOGIN : 
break; 
// channel 

case CSMSG_TYPE_TEXT_A: 
break; 

case CSMSG_TYPE_TEXT_W : 
break; 

case CSMSG_TYPE_DATA : 
break; 
// socket 

case CSMSG_TYPE_ADDCHANNEL : 

TRACEl("%s\tCSMSG_TYPE_ADDCHANNEL\n" , t); break; 
// channel 

case CSMSG_TYPE_ADDMEMBER : 

TRACE 1 (■•%s\tCSMSG_TYPE_ADDMEMBER\n" , t) ; break; 



TRACEl { "%s\tCSMSG_TYPE_NONE\n" , t) ; 

TRACEl { "%s\tCSMSG__TYPE_ERROR\n" , 

TRACEl ( "%s\tCSMSG_TYPE_LOGIN\n" , 

TRACEl ( "%s\tCSMSG_TYPE_TEXT_A\n" , 
TRACEl ( " %s\tCSMSG_TYPE__TEXT_W\n" , 
TRACEl (■•%s\tCSMSG_TYPE_DATA\n" , t) ; 
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case CSMSG_TYPE_GOTMEMLIST: 

TRACEl ( "%s\tCSMSG_TYPE_GOTMEMLIST\n" , t) ; break; 
case CSMSG_TYPE_DELMEMBER : 

TRACEl ("%s\tCSMSG_TYPE_DELMEMBER\n" , t) ; break; 
case CSMSG_TYPE__DELCHANNEL : 

TRACEl ( "%s\tCSMSG_TYPE_DELCHANNEL\n" , t) ; breaks- 
case CSMSG_TYPE_MODEMEMBER : 

TRACEl ( "%s\tCSMSG_TYPE_MODEMEMBER\n" , t) ; break; 

case CSMSG_TYPE_MODECHANNEL : TRACEl ( " %s \ tCSMSG_TYPE_MODECHANNEL\n " , 
t) ; break; 

case CSMSG_TYPE_WHISPERTEXT_A: 

TRACEl ( ••%s\tCSMSG_TYPE_WHISPERTEXT_A\n" , t ) ; break; 
case CSMSG_TYPE_WHISPERTEXT_W: 

TRACEl ("%s\tCSMSG_TYPE_WHISPERTEXT_W\n'\ t) ; break; 

case CSMSG_TYPE_WHISPERDATA: TRACEl ( " %s\ tCSMSG_TYPE_WHISPERDATA\n" , 
t) ; break; 

case CSMSG_TYPE_NEWTOPIC: TRACEl ( " %s \ tCSMSG_TYPE_NEWTOPIC\ 

t) ; break; 

// socket , channel 

case CSMSG_TYPE_PROPERTYDATA: TRACEl { " %s\tCSMSG_TYPE__PROPERTYDATA\n" 
t) ; break; 

/ / socket , channel 

case CSMSG__TYPE_QUERYDATA : TRACED {"."); break; 

// 

TRACEl ( " %s\tCSMSG_TYPE_QUERYDATA\n" , t ) ; break; 
// socket 

case CSMSG_TYPE_PRIVATEMSG : 

TRACEl ( ••%s\tCSMSG_TYPE_PRIVATEiy[SG\n" , t) ; break; 
// channel 

case CSMSG_TYPE__NEWNICK: TRACEl ( " %s \ tCSMSG_TYPE_NEWNICK\n 

t) ; break; 
// socket 

case CSMSG_TYPE_INVITE : TRACEl ( " %s\ tCSMSG__TYPE_INVITE\n" 

t) ; break; 

case CSMSG_TYPE_SERVERMSG_TEXT_A: 

TRACEl ( "%s\tCSMSG_TYPE_SERVERMSG_TEXT_A\n" , t) ; break; 
case CSMSG_TYPE_SERVERMSG_TEXT_W : 

TRACEl ( "%s\tCSMSG_TYPE_SERVERMSG_TEXT_W\n" , t) ; break; 
default : 

TRACE2 ( "%s\tError ! Beyond CSMSG_TYPE range (%d) I \n" , t, c) ; 

break; 

} 

} 

DWORD PrintWin32Error (LPCSTR pszErrorString) 
{ 

LPVOID IpMsgBuf [FORMAT_MESSAGE_MAX_WIDTH_MASK + 1] ; 
/ / Retrieve the error code 
DWORD dwRc = : iGetLastError 0 ; 

// Search system message tables and resources for an error message 
// associated with the error returned 
if C : : FormatMessage ( FORMAT_MESSAGE_FROM_SYSTEM | 
FORMAT__ME S S AGE_MAX_W I DTH_M AS K , 

NULL, // Message source 

dwRc , // Error Code 

0, // Language Specif ie 

(LPTSTR) IpMsgBuf , // Message buffer 
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Message Buffer Size 

TRACE ("%s (%ld: %s)\n", 
return dwRc ; 

} 

#endif // DEBUG 




FORMAT_ME S S AGE_MAX_W I DTH_MAS K , 
NULL) ) 

pszErrorString, dwRc, IpMsgBuf) 
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// 

// CBaseSocket class 
// 

// Copyright (C) 1996 Microsoft Corporation 

// All rights reserved. 

// 

// Modification for MFC 
// (C) Programmed by Kim, 

// unichat 

// Information Technology Institue 
// 

// 

#ifndef _BASESOCK_H 
#define _BASESOCK_H 

///////////////////////////////////////////////////////////////////////////// 
// class CBaseSocket 



// Pointer to this structure is passed to CBaseSocket :: HrConnect 
typedef struct conninfo 

{ 

char* szServer; // seirver to connect to 

char* szMick; // Nickname to use 

char* szNickBak; // A backup nick ^ optional 

char* szUserName; // user name to use 

char* szPass; // if szUserName is provided, so must 

szPass 

BOOL f Authenticate ; // should the connection be authenticated? 

DWORD dwTimeOut; 
} EC_CONNINFO, *PEC_CONNINFO ; 

// Pointer to this structure is passed to CBaseSocket :: HrCreateJoinChannel 
typedef struct channelinfo 

{ 

CHAR* szName; // name of the channel to join 

CHAR* szTopic; //if channel did not exist, and was therefore 

// created for you, set the topic 

to this value 

CHAR* szPass; // password on this channel 

DWORD cUsersMax; // how many users at max . . . 0 if default 

DWORD dwType; // channel type 

DWORD dwFlags; // channel flags. 

} EC__CHANNELINFO, *PEC_CHANNELINFO ; 

// CBaseSocket 

// CBaseSocket is a wrapper around IChatSocket . It provides message-handling 
code 

// and wrappers around some IChatSocket functionality. If you need more 

// functionality from ChatSock, use CBaseSocket :: PSocket ( ) to obtain a socket 

// interface and then call ChatSock directly. 

// Note: if you intend to keep that pointer around in other data structures, 
// you should AddRef () it and then Release () it when that particular data 
structure 

// goes away. This will make your cleanup logic a lot more robust. 

class CBaseSocket : public CObject 

{ 
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public ; 



BOOL ChangeNick(LPCSTR nick) ; 

CBaseSocket ( ) ; 

virtual -CBaseSocket () ; 



BOOL 
BOOL 
BOOL 
BOOL 



FInit 0 ; 

FConnect (PEC_CONNIMFO pclnfo, HWND hNotif yWnd=NULL) 
FDisconnect ( ) ; 
FCloseChatSocket () ; 



BOOL 

BOOL 
BOOL 
PICS 

BOOL 
BOOL 



dwcb) 



FCreateJoinChannel (PEC_CHANNELINFO pChanlnfo) ; 

FCanAnonymous { ) ; 
FConnected () ; 
PChatSocket () ; 

FSendPrivAnsiText (char* szNickTo, char* szText) ; 
FSendPrivData (char* szNickTo, BYTE* pbData, DWORD 



// Over 
virtual 
return TRUE; 

virtual 
TRUE ; } 

virtual 
virtual 
virtual 
// virtual 
return TRUE; 
// virtual 
DWORD dwcb) { 
virtual 
// and 
virtual 



rideables 
BOOL 



BOOL 

BOOL 
BOOL 
BOOL 
BOOL 

BOOL 



FOnLogin ( ) 

FOnSocketError (HRESULT hr) 



{ 

{ return 



FOnAddChannel (PCS_MSGCHANNEL pMsg) { return TRUE 
FOnPrivateMsg (PCS_MSGPRIVATE pMsg) { return TRUE 
FOnlnvite (PCS__MSGINVITE pcslnvite) { return TRUE 
FOnPropString (CSPROP_TYPE csType, char* sz) { 



FOnPropBuf f er (CSPROP_TYPE csType, BYTE* pbBuffer, 
return TRUE; } 
BOOL FParseQueryData (PCS_PROPERTY pcsProp) ; 

if we got something we don't really handle.. 
BOOL FUnknownMessage (PCS_MSGBASE pMsg) { return TRUE; 



protected : 

static UINT 
void 



// 



BOOL 
void 
BOOL 
BOOL 
void 



SocketThreadProc (LPVOID pvData) ; 
Cleanup ( ) ; 

FCloseChatSocket () ; 
SetSocket (PICS pics); 
FStartMessageThread ( ) ; 
FWaitForMessage () ; 
WaitForMsgThread 0 ; 



PICS 

PICS_FACTORY 
CWinThread* 
HANDLE 
: WaitSingleObj ect 
BOOL 
int 



m_p ICS; 
mj>Factory ; 
m_pThread; 

m_hThread; // Save the handle for 

m_bCanceled; 

m nPICSRef; 



#ifdef _DEBUG 

void DebugMessageType (LPCSTR t, CSMSG TYPE c); 
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DWORD PrintWin32Error (LPCSTR pszErrorString) ; 

#else 

#define DebugMessageType ( t , c) // Do nothi 

#define PrintWin32Error { t ) 

#endif 

#endif // _BASESOCK H 
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// Behavior.cpp: implementation of the CBehavior class 
// 

////////////////////////////////////////////////////////////////////// 

#include " stdaf x . h" 
#include "Behavior. h" 

#include "Parser. h" 
#include "ResMan.h" 

#include "UC2Ani/DIB . h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE [ ] FILE ; 

#define new DEBUG_NEW 
#endif 



extern CParser gParser; 
extern CResMan gResMan; 

1 1 1 1 1 / f I II 1 1 / 1 1 1 1 / 1 1 1 1 1 1 / 1 1 / 1 1 / 1 1 1 1 1 1 1 / 1 1 / 1 1 / 1 1 / 1 1 / m 1 1 1 / / / 1 1 1 / / II 1 1 / 

II Construction/Destruction 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
CBehavior: : CBehavior () 

{ 

m_nID = 0; 
m_nCells = 0; 
m_aCell = NULL; 
m_sDisp = CSize(0, 0); 

} 

CBehavior : : --CBehavior ( ) 
{ 

if {m_aCell) 

delete [] m_aCell; 

} 

// Loop in a line 

BOOL CBehavior :: Load (const int nID) 
{ 

// 0-1, (0,10,-1) (1,10, 5, 0,-1) (2, 10, 10, 0,-1); Walk 

// 1-1, (0) (1) (2) ; Changing direction 

// 2 = 1, (0) (1, 10,0,0, -1) (2) (3) (4) (5) (6) ; Say 

m_nID = nID; 

m_nCells = gParser . CountOccurrencesUpto ( ' ) • , ' ; ' ) ; 
if (m_nCells <= 0) 

{ 

return FALSE; 

} 

m_aCell = new Cell [m_nCel Is ] ; 

gParser .GetValueRightToken (m_nRepeat, ' , ' ) ; 
for (int i^O; i < m nCells; i++) 

{ 

// initialize with default values 
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priority is 



of. 



m_aCell [i] . wIO = DEFAULT_IO; 

m_aCell [i] .nTicks = 10; 

m^aCell [i] .ptDisp = CPoint(0, 0); 
m_aCell [i] . nSI ^ -l; 



char* p 
if dp) 
{ 



= gParser . SetLef tToken ( • ( • ) ; 



} 

whi le 

{ 



CString msg; 

msg . Format ( "Syntax Error 
Af xMessageBox (msg) ; 
return FALSE ; 

( ! IsNum(*p) ) 

switch {*p) 

{ 



in Behavior (ID=%d)\' 



nID) ; 



case 




: m 


aCell [i] 


. wIO 


1= OPACITY_7 5; 


break 


case 




: m 


'aCell [i] 


- wIO 


1= OPACITY_5 0; 


break 


case 


'/' 


: m_ 


[aCell [i] 


. wIO 


1 = OPACITY_2 5; 


break 


case 


; 1 ; 


: m 


[aCell [i] 


.wIO 


1 = OPACITY_12 ; 


break 


case 




: m 


"aCell [i] 


.wIO 


1= OPACITY_0; 


break 


case 




m_ 


'aCell [i] 


. wIO 


1= IMAGE_FLIP; 


break 


case 




m_ 


_aCell [i] 


.wIO 


1 - NO_COLORKEY ; 


break; 



} 

p = 

for 

if 

{ 



} 

if 



} 

gParser , SetCurrent (++p) ; 

gParser .GetValueRightToken (m_aCell [i] .nID, ') 

' ) ■ 

!p) 

TRACED ( "Error reading in CBehavior : : Load () \n" 
return FALSE; 



// 



) ; 



(*p -= ' ( ' I 
continue ; 



^p = = 



// next brace begins or end 



p = gParser .GetValueRightToken (m_aCell [i] .nTicks, •)', ','); 

if (!p) 

{ 

m_aCell [i] .nTicks = 5; // Although not found, the 
parameter can be changed 

continue ; 

} 

if (*p == ' ( ' II *p == • ; - ) 

continue ; 



p ^ gParser. GetValueRightToken(m_aCell [i] .ptDisp.x, •)', • ')• 

if (!p) 

{ 

m_aCell [i] .ptDisp.x = 0; 

continue ; 

} 

else 

m_sDisp.cx m_aCell[i] .ptDisp.x; 
if (*p == • ( • II *p == ' ; • ) 
continue ; 
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p = gParser .GetValueRightToken{m_aCell [i] .ptDisp.y, ')•, ','); 

if (!p) 

{ 

Tn_aCell [i ] . ptDisp . y = 0; 

continue ; 

} 

else 

m_sDisp.cy += m_aCell [i ]. ptDisp . y; 
if (*p ' ( ' II *p == ■ ; • ) 

continue ; 

CString strSndName; 

p = gParser -GetValueRightToken (StrSndName , ')'); 

if (!p) 

{ 

m_aCell [i] . nSI = -l; 

continue ; 

} 

else 

{ 

m_aCell [i] .nSl = gResMan.GetWavelD (strSndName) ; 

} 

} 

return TRUE; 

} 

///////////////////////////////////////////////////////////////////////////// 
L.PCSTR BEHAVIOR_NAME [] = 

{ 

"STANDF", // States 

"STANDB" , 

"STANDINGF" , 

" STAND INGB" , 

"MORPHF" , 

"MORPHB " , 

"MORPHINGF" , 

"MORPHINGB" , 

"DOZEF" , 

"DOZEB", 

"RES_STATE1" , 

"RES_STATE2 " , 

"WALKF", // Movements 

"WALKB" , 

"UPF" , 

"UPB" , 

"DOWNF" , 

"DOWNB" , 

"MORPHWALKF" , 

"MORPHWALKB" , 

"RES_MOVEl" , 

"RES_MOVE2" , 

"CHAT", // Gestures 

"ENTER" , 
"EXIT" , 
"SMILE" , 
"MAD" , 
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"HELLO" , 

"CRY" , 

"SCRATCH" , 

"PICK" , 

"SPECIAL" , 

"WIGGLEB" , 

" PUNCHF " , 

" PUNCHB " , 

"BEATEMF" , 

"BEATENB " , 
// "TURN180", 
// "TURN360", 

"RES^ACTIONl" , 

"RES_ACTION2 " 

}; 

CActorDesc : : CActorDesc ( ) 

{ 

m_aBeh = NULL; 

Tn__nBehs = 0 ; 

} 

CActorDesc : : -CActorDesc ( ) 
{ 

if (m_aBeh) 

delete [] m_aBeh; 

} 

// If the requested Behavior ID is not found in this Actor Description, 
// return NULL. CResMan : : GetActorBehavior will deal with that case. 
CBehavior* CActorDesc :: GetBehavior ( cons t int nID) 

{ 

for (int i=0; i < m_nBehs ; i++) 
{ 

if {m_aBeh [i] .GetID () == nID) 
return &m_aBeh[i]; 

} 

return NULL; 

} 

BOOL CActorDesc :: Load (CTextFileBufferfic tfb) 
{ 

// #ACTOR=aman_000, °A°I3 50; 

gParser .GetValueRightToken(m_strResName, ' , ' ) ; 
gParser .GetValueRightToken (m_strNick, ' , ' ) ; 
gParser .GetValueRightToken(m_nMSPT, ' , • , ' ; ' ) ; 

if (m_nBehs <= 0 ) 
return TRUE; 

m_aBeh = new CBehavior [m_nBehs] ; // CActorDesc :: SetNumBehaviors 

// Read overloaded behaviors 

for (int nBeh=0; (nBeh < m_nBehs) && tf b . ReadString ( ) ; ) 
{ 

gParser.CopyBuf fer (tfb-GetStringO ) ; 
if (gParser . IsCommentLine ( ) ) 
continue ; 
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} 



if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

break ; 
continue ; 

} 

if (gParser . SetLef tToken (•}')) 

break; 
CString strBuf; 

if (gParser.GetValueRightToken( StrBuf, ) ) 

int nID = Get IDFromString ( strBuf ) ; 

if (nID >= 0) 

{ 

m_aBeh [nBeh++] .Load(nlD) ; 

} 

else 

{ 



} 
} 

return TRUE; 



} 



StrBuf += Behavior not indexed!"; 
AfxMessageBox (strBuf ) ; 



int CActorDesc : :GetIDFromString (const CString^ strName) const 

for (int i=0; i < AB_RES ACTION2 ; i++) 

{ 

if (Istrcmpi (BEHAVIOR_NAME [i] , strName) 0) 
return i ; 

} 

return -1; 

} 
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// Behavior.h: interface for the CBehavior class. 
// 

= = = = = = = = = = . = = = = = = = . = = ^ = = = = = = = = = = = = = 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// unichat 



#if ! defined ( AFX_BEHAVIOR_H C7 8B9065_A90 8_11D1_80E2_08000 9B9F3 3 9 INCLUDED 

#def ine AFX_BEHAVIOR_H C78B9065_A908_11D1_80E2_080009B9F33 9 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 



enum ACTOR_BEHAVIORS 
{ 

AB_STANDF=0 , 
AB_STANDB, 
AB_STANDINGF, 
AB_STANDINGB, 
AB_MORPHF, 
AB_MORPHB , 
AB_MORPHINGF, 
AB_MORPHINGB, 
AB_DOZEF, 
AB_D02EB , 
AB__RES_STATE1 , 
AB_RES_STATE2 , 
AB_WALKF , 
AB_WAL,KB , 
AB_UPF, 
AB_UPB , 
AB_DOWNF , 
AB_DOWNB , 
AB_MORPHWALKF , 
AB__MORPHWAL,KB , 
AB_RES_MOVEl, 
AB_RES_MOVE2 , 
AB_CHAT , 
AB_ENTER , 
AB_EXIT, 
AB_SMILE, 
AB_r4AD, 
AB_HELLO , 
AB_CRY , 
AB_S CRATCH, 
AB_PICK, 
AB_SPECIAL, 
AB_WIGGLEB, 
AB_PUNCHF, 
AB_PUNCHB , 
AB_BEATENF, 
AB_BEATENB , 
// AB_TURN18 0, 

// AB_TURN3 60, 

AB RES ACTIONl, 



// State 



// reserved 
/ / Moving 



// Gestures 
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AB_RES_ACTION2 

}; 

/////////////////////////////////////////////////////////////////// 

class CBehavior // Actor Behavior Description 
{ 

public : 

CBehavior ( ) ; 
-CBehavior ( ) ; 



typedef struct 
{ 



int 

WORD 

int 

CPoint 
int 
} Cell; 



wIO; 



nlD; //ID for the cut (frame) 

// IMAGE_OPTION 
nTicks; // ticks for duration 

ptDisp; // displacement 

nSI; // Sound Index 



BOOL Load (const int nID) ; 

int GetlDO const 

Cell* GetCell (const int n) 
&m_aCell[n] : NULL; } 

int GetNumCells ( ) 

int GetRepeatO const 

m_nRepeat : -m_nRepeat; ) 

// BOOL GetPendulumO const { return (m_nRepeat < 0) ; } 

CSize GetDisplacement () const { return m_sDisp; } 

BOOL IsNum (const char c) const { return (c >= '0' && c <= '9') 



// Behavior ID 

{ return m_nID; } 
{ return (n < m_nCells n >= 0) ? 

const { return m_nCells; } 

{ return (m_nRepeat > 0 ) ? 



protected : 

int m_nID; 

int m_nCells; 

Cell* m_aCell; 

int m_nRepeat ; 

bPendulum should be set TRUE 
// BOOL m_bReturn; 

repetition . 
// DWORD m_nRand; 

CSize m_sDisp; 

}; 



/ / Behavior ID 

// array of cells 

// Repeat count, if (m_nRepeat < 0) 

// Return to Original position after 

// Random waiting range 

// accumulated displacement 



/////////////////////////////////////////////////////////////////// 
// Actor Description 
class CTextFileBuf f er ; 

class CActorDesc 

{ 

public : 

CActorDesc ( ) ; 
-CActorDesc () ; 



BOOL Load (CTextFileBuf ferS: tfb) ; 

void SetNumBehaviors (const int n) { m_nBehs ^ n; } 

int GetNumBehaviors 0 const { return m_nBehs ; } 

CString* GetNickO { return &m__strNick; 
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CString* GetResNameO { return &m strResName; 

} 

int GetMSPTO const { return m__nMSPT; 

CBehavior* GetBehavior ( cons t int nID) ; 
protected : 

int GetlDFromString (const CString& strName) const; 

CString m_strNick; 

CS t r i ng m_s t r Re sName ; 

int m_nMSPT; // Milliseconds per Tick 

int m_nBehs ; 

CBehavior* m_aBeh; 

}; 

#endif // 

! defined (AFX_BEHAVIOR_H C78B90 65_A90 8_11D1_8 0E2_080 00 9B9F3 3 9 INCLUDED ) 
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// 

// Blocksock . cpp 

// (CBlockingSocketException, CBlockingSocket , CHttpBlockinqSocket ) 
// 

// Copyright Quarterview 1999 

// joseph j. kim (jokim@quarterview.com) 

// 

#include <stdafx.h> 
#include "blocksock . h " 

// Class CBlockingSocketException 

IMPLEMENT_DYNAMIC (CBlockingSocketException, CException) 

CBlockingSocketException : : CBlockingSocketException (char* pchMessage) 

m_strMessage = pchMessage ; 
m_nError = WSAGetLastError ( ) ; 

} 

BOOL CBlockingSocketException: :GetErrorMessage (LPTSTR IpstrError, UINT 
nMaxError , 

PUINT pnHelpContext /*= NULL*/) 

{ 

char text [2 00 ] / 

if {m_nError == 0) { 

^ wsprintf (text , "%s error", (const char*) m_strMessage ) ; 

else { 

wsprintf (text , "%s error #%d'\ (const char*) m_strMessage , 

m_nError) ; 
} 

strncpy (IpstrError , text, nMaxError - 1); 
return TRUE; 

} 

// Class CBlockingSocket 

IMPLEMENT_DYNAMIC (CBlockingSocket, CObject) 

void CBlockingSocket :: Cleanup ( ) 
{ 

// doesn't throw an exception because it's called in a catch block 
if (m_hSocket == NULL) return; 

VERIFY (closesocket (m_hSocket) != SOCKET_ERROR) ; 
m_hSocket = NULL; 

} 

void CBlockingSocket :: Create (int nType /* = SOCK_STREAM */) 
ASSERT (m_hSocket == NULL); 

if ( (m_hSocket = socket (AF_INET, nType, 0)) == INVALID_SOCKET) { 
throw new CBlockingSocketExcept ion (" Create ") ; 

} 
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void CBlockingSocket : :Bind (LPCSOCKADDR psa) 
{ 

ASSERT {m_hSocket != NULL) ; 

if (bind (m_hSocket , psa, si zeof (SOCKADDR) ) === SOCKET_ERROR) { 
throw new CBlockingSocketExcept ion ( "Bind" ) ; 

} 

} 

void CBlockingSocket :: Listen ( ) 

{ 

ASSERT (m_hSocket != NULL) ; 

if (listen {m_hSocket, 5) == SOCKET_ERROR) { 

throw new CBlockingSocketException ( "Listen" ) ; 

} 

} 

BOOL CBlockingSocket :: Accept (CBlockingSocket^ sConnect, LPSOCKADDR psa) 

ASSERT (m_hSocket != NULL) ; 

ASSERT (sConnect .m_hSocket === NULL) ; 

int nLengthAddr = si zeof (SOCKADDR) ; 

sConnect .m_hSocket = accept (m_hSocket , psa, &nLengthAddr) ; 
if (sConnect INVALID_SOCKET) { 

// no exception if the listen was canceled 

if (WSAGetLastError ( ) \^ WSAEINTR) { 

throw new CBlockingSocketExcept ion ( "Accept ") ; 

} 

return FALSE/ 

} 

return TRUE; 

} 

void CBlockingSocket :: Close 0 
{ 

if (NULL == m_hSocket) 
return; 

if (closesocket (m_hSocket) == S0CKET_ERROR) { 

// should be OK to close if closed already 
throw new CBlockingSocketExcept ion (" Close ") ; 

} 

m_hSocket = NULL; 

} 

void CBlockingSocket :: Connect (LPCSOCKADDR psa) 

{ 

ASSERT (m_hSocket != NULL); 
// should timeout by itself 

if (connect (m_hSocket , psa, s i zeof (SOCKADDR) ) == SOCKET_ERROR) { 
throw new CBlockingSocketExcept ion ( "Connect ") ; 

} 

} 

int CBlockingSocket :: Write (const char* pch, const int nSize, const int nSecs) 
int nBytesSent = 0; 
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int nBytesThisTime; 
const char* pchl = pch; 
do { 

nBytesThisTime = Send(pchl, nSize - nBytesSent, nSecs) ; 

nBytesSent += nBytesThisTime; 

pchl nBytesThisTime; 
} while (nBytesSent < nSize) ; 
return nBytesSent; 

} 

int CBlockingSocket :: Send (const char* pch, const int nSize, const int nSecs) 
ASSERT (m_hSocket != NULL); 

// returned value will be less than nSize if client cancels the reading 
FD_SET fd = {l, m_hSocket}; 
TIMEVAL tv = {nSecs, O}; 

if (select (0, NULL, Scfd, NULL, &tv) == 0) { 

throw new CBlockingSocketExcept ion ( "Send timeout"); 

int nBytesSent; 

if ( (nBytesSent = send (m_hSocket , pch, nSize, 0)) == SOCKET_ERROR) { 
^ throw new CBlockingSocketExcept ion (" Send" ) ; 

return nBytesSent; 

} 

int CBlockingSocket :: Receive (char* pch, const int nSize, const int nSecs) 

ASSERT (m_hSocket != NULL); 
FD_SET fd = {1, m_hSocket}; 
TIMEVAL tv = {nSecs, O}; 

if (select (0, &fd, NULL, NULL, &tv) -= 0) { 

throw new CBlockingSocketExcept ion ( "Receive timeout") • 

} 

int nBytesReceived; 

if ( (nBytesReceived = recv (m_hSocket , pch, nSize, 0)) SOCKET_ERROR) { 

throw new CBlockingSocketExcept ion ( "Receive ") ; 

return nBytesReceived; 

} 

int CBlockingSocket : iReceiveDatagram (char* pch, const int nSize, LPSOCKADDR 

psa, const int nSecs) 

{ 

ASSERT {m_hSocket != NULL); 
FD_SET fd = {l, m_hSocket}; 
TIMEVAL tv = {nSecs, O}; 

if (select (0, &fd, NULL, NULL, &tv) == 0) { 

throw new CBlockingSocketExcept ion ( "Receive timeout"); 

// input buffer should be big enough for the entire datagram 
int nFromSize = sizeof (SOCKADDR) ; 

int nBytesReceived = recvf rom (m_hSocket , pch, nSize, 0, psa, 
ScnFromSize) ; 

if (nBytesReceived == SOCKET_ERROR) { 
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throw new CBlockingSocketException ( "ReceiveDatagram" ) ; 

} 

return nBytesReceived ; 

} 

int CBlockingSocket :: SendDatagram (const char* pch, const int nSize, 

LPCSOCKADDR psa, const int nSecs) 

{ 

ASSERT (m_hSocket NULL) ; 
FD_SET fd = {l, m_hSocket}; 
TIMEVAL tv = {nSecs, O}; 

if (select (0, NULL, &fd, NULL, &tv) 0) { 

throw new CBlockingSocketExcept ion (" Send timeout'*); 

} 

int nBytesSent = sendto (m_hSocket , pch, nSize, 0, psa, 
sizeof (SOCKADDR) ) ; 

if (nBytesSent SOCKET_ERROR) { 

throw new CBlockingSocketException (" SendDatagram" ) ; 

} 

return nBytesSent; 

} 

void CBlockingSocket : :GetPeerAddr (LPSOCKADDR psa) 
{ 

ASSERT (m^hSocket != NULL) ; 

// gets the address of the socket at the other end 
int nLengthAddr = sizeof (SOCKADDR) ; 

if (getpeername (m__hSocket , psa, &:nLengthAddr ) == SOCKET_ERROR) { 
throw new CBlockingSocketException ( "GetPeerName ") ; 

} 

} 

void CBlockingSocket : :GetSockAddr (LPSOCKADDR psa) 
{ 

ASSERT (m_hSocket != NULL) ; 

// gets the address of the socket at this end 
int nLengthAddr sizeof (SOCKADDR) ; 

if (getsockname (m_hSocket , psa, 6cnLengthAddr ) == S0CKET_ERROR) { 
throw new CBlockingSocketException ( "GetSockName ") ; 

} 

} 

//static 

CSockAddr CBlockingSocket :: GetHostByName ( const char* pchName, const USHORT 
ushPort /* = 0 */) 

{ 

hostent* pHostEnt = ge t host byname (pchName) ; 
if (pHostEnt == NULL) { 

throw new CBlockingSocketException ( "GetHostByName ") ; 

} 

ULONG* pulAddr = (ULONG*) pHostEnt - >h_addr_list [0 ] ; 
SOCKADDR_IN sockTemp; 
sockTemp . sin_f amily = AF_INET; 
sockTemp . sin_port = htons (ushPort ) ; 

sockTemp . sin_addr . s_addr = *pulAddr; // address is already in network 
byte order 
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return sockTemp; 

} 

/ /static 

const char* CBlockingSocket : : GetHostByAddr (LPCSOCKADDR psa) 

{ 

hostent* pHostEnt = gethostbyaddr ( (char* ) & ( (LPSOCKADDR_IN) psa) 

- >sin_addr . s_addr , 4, PF_INET) ; 
if (pHostEnt NULL) { 

throw new CBlockingSocketExcept ion ( "GetHostByAddr ") ; 

} 

return pHostEnt - >h_name ; // caller shouldn't delete this memory 



// Class CHttpBlockingSocket 

IMPLEMENT_DYNAMIC (CHttpBlockingSocket , CBlockingSocket) 

CHttpBlockingSocket : : CHttpBlockingSocket ( ) 
{ 

tTf^_pReadBuf = new char [nSizeRecv] ; 
m_nReadBuf = 0; 

} 

CHttpBlockingSocket : : -CHttpBlockingSocket ( ) 
{ 

delete [] m_pReadBuf; 

} 



// reads an entire header line through CRLF {or socket close) 
// inserts zero string terminator, object maintains a buffer 

int CHttpBlockingSocket :: ReadHttpHeaderLine (char* pch, const int nSize, const 
int nSecs) 

{ 

TRACE ( "\nCHttpBlockingSocket : ReadHttpHeaderLine" ) ; 

TRACE ( "\nargs : si2e-%d, nSecs-%d, pch-%s", nSize, nSecs , pch) ; 

int nBytesThisTime = m_nReadBuf ; 

TRACE (" nBytesThisTime: %d", nBytesThisTime) ; 

int nLineLength = 0; 
char* pchl = m_pReadBuf ; 
char* pch2 ; 
do { 

// look for If (assume preceded by cr) 

if ( (pch2 = (char*) memchr (pchl , '\n', nBytesThisTime)) != NULL) 

ASSERT ( {pch2) > m__pReadBuf ) ; 

ASSERT (* (pch2 - 1) == '\r'); 

nLineLength = (pch2 - m_pReadBuf) + 1; 

if (nLineLength >= nSize) nLineLength = nSize - 1; 

memcpy(pch, m_jpReadBuf , nLineLength); // copy the line to 

caller 
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m_nReadBuf -= nLineLength; 

memmove (m_pReadBuf , pch2 + 1, m_nReadBuf ) ; // shift 
remaining characters left 
break ; 

} 

pchl += nBytesThisTime ; 

nBytesThisTime = Receive (m_pReadBuf + m_nReadBuf, nSizeRecv - 
m_nReadBuf , nSecs) ; 

if (nBytesThisTime <= 0) { // sender closed socket or line longer 

than buffer 

throw new CBlockingSocketExcept ion ( " ReadHeaderLine " ) ; 

} 

m_nReadBuf += nBytesThisTime; 

} 

while (TRUE) ; 

* (pch + nLineLength) = '\0'; 
return nLineLength; 



// reads remainder of a transmission through buffer full or socket close 
// (assume headers have been read already) 

int CHttpBlockingSocket : :ReadHttpResponse (char* pch, const int nSize, const 
int nSecs) 

{ 

int nBytesToRead, nBytesThisTime, nBytesRead = 0; 

if {m_nReadBuf > 0) { // copy anything already in the recv buffer 
memcpy(pch, m_pReadBuf , m_nReadBuf ) ; 
pch += m__nReadBuf ; 
nBytesRead = m_nReadBuf ; 
m_nReadBuf = 0 ; 

} 

do { // now pass the rest of the data directly to the caller 
nBytesToRead = min (nSizeRecv , nSize - nBytesRead); 
nBytesThisTime = Receive (pch, nBytesToRead, nSecs) ; 
if (nBytesThisTime <= 0) break; // sender closed the socket 
pch nBytesThisTime; 
nBytesRead += nBytesThisTime; 

} 

while (nBytesRead <= nSize) ; 
return nBytesRead; 



void LogBlockingSocketException (LPVOID pParam, char* pch, 
CBlockingSocketException* pe) 

{ // pParam holds the HWND for the destination window (in another thread) 

CString strGmt - CTime : : GetCurrentTime ( ) . FormatGmt { " %m/ %d/ %y %H:%iyi:%S 

GMT") ; 

char textl[200], text2 [50] ; 
pe->GetErrorMessage (text2, 49) ; 

wsprintf (textl, "WINSOCK ERROR- -%s %s %s\r\n" , pch, text2 , (const 
char*) StrGmt) ; 

: iSendMessage { (HWND) pParam, EM_SETSEL, (WPARAM) 65534, 65535); 
: :SendMes sage ( (HWND) pParam, EM_REPLACESEL, (WPARAM) 0, (LPARAM) 
textl) ; 

} 
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/ / blocksock . h 
// needs winsock.h in the precompiled headers 



#ifndef BLOCKSOCK_H 

#define BLOCKSOCK H 



typedef const struct sockaddr* LPCSOCKADDR; 

class CBlockingSocketExcept ion : public CException 

DECLARE_DYNAMIC (CBlockingSocketException) 
public : 

/ / Constructor 

CBlockingSocketException (char* pchMessage) ; 

public : 

-CBlockingSocketException ( ) {} 

virtual BOOL GetErrorMessage (LPTSTR IpstrError, UINT nMaxError, 
PUINT pnHelpContext = NULL) ; 

private : 

int m_nError; 
CString m_strMessage ; 

}; 

extern void LogBlockingSocketException { LPVOID pParam, char* pch, 
CBlockingSocketException* pe) ; 

class CSockAddr : public sockaddr_in { 
public : 

// constructors 
CSockAddr ( ) 

{ sin_family = AF_INET; 
sin_port = 0; 

sin_addr - s_addr =0; } // Default 
CSockAddr {const SOCKADDR&: sa) { memcpy ( this , &sa, sizeof (SOCKADDR) ) ; 
CSockAddr (const SOCKADDR_IN& sin) { memcpy{this, &sin, 
sizeof (SOCKADDR_IN) ) ; } 

CSockAddr (const ULONG ulAddr, const USHORT ushPort = 0) // parms are 
host byte ordered 

{ sin_family = AF_INET; 

sin_port = htons (ushPort ) ; 
sin_addr . s_addr = htonl (ulAddr) ; } 
CSockAddr (const char* pchIP, const USHORT ushPort =0) // dotted IP 
addr string 

{ sin_family = AF_INET; 

sin_port ~ htons (ushPort) ; 

sin_addr . s_addr = inet_addr (pchIP) ; } // already network byte 

ordered 

// Return the address in dotted-decimal format 
CString DottedDecimal () 
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{ return inet_ntoa (sin_addr) ; } // constructs a new CStr 

obj ect 

// Get port and address (even though they're public) 
USHORT PortO const 

{ return ntohs { sin_j5ort ) ; } 
ULONG IPAddrO const 

{ return ntohl ( s in__addr . s_addr ) ; } 
// operators added for efficiency 
const CSockAddrS: operator^ ( const SOCKADDR& sa) 

{ memcpy { this, &sa, sizeof (SOCKADDR) ) ; 
return *this; } 
const CSockAddr5c operator= ( const SOCKADDR_IN& sin) 

{ memcpy{this, ficsin, sizeof ( SOCKADDR_IN) ) ; 
return *this; } 
operator SOCKADDR ( ) 

{ return * { (LPSOCKADDR) this) ; } 
operator LPSOCKADDR ( ) 

{ return (LPSOCKADDR) this; } 
operator LPSOCKADDR_IM ( ) 

{ return (LPSOCKADDR IN) this; ) 

}; 

// member functions truly block and must not be used in UI threads 
// use this class as an alternative to the MFC CSocket class 
class CBlockingSocket : public CObject 

DECLARE_DYNAMIC (CBlockingSocket) 
public : 

SOCKET m_hSocket; 

CBlockingSocket ( ) { m_hSocket = NULL; } 
void Cleanup 0; 

void Create (int nType = SOCK_STREAM) ; 
void Close ( ) ; 

void Bind (LPCSOCKADDR psa) ; 
void Listen ( ) ; 

void Connect (LPCSOCKADDR psa); 

BOOL Accept (CBlockingSocketSc s, LPSOCKADDR psa); 

int Send(const char* pch, const int nSize, const int nSecs) ; 

int Write (const char* pch, const int nSize, const int nSecs) ; 

int Receive (char* pch, const int nSize, const int nSecs); 

int SendDatagram (const char* pch, const int nSize, LPCSOCKADDR 

const int nSecs) ; 
int ReceiveDatagram (char* pch, const int nSize, LPSOCKADDR psa, 

const int nSecs) ; 
void Get PeerAddr (LPSOCKADDR psa); 
void GetSockAddr (LPSOCKADDR psa); 

static CSockAddr GetHostByName (cons t char* pchName, 

const USHORT ushPort = 0) ; 
static const char* GetHostByAddr (LPCSOCKADDR psa); 
operator SOCKET ( ) 

{ return m_hSocket; } 

} / 

class CHttpBlockingSocket : public CBlockingSocket 
public : 

DECLARE_DYNAMIC (CHttpBlockingSocket) 
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enum {nSizeRecv = lOOO}; // max receive buffer size (> hdr line length) 
CHttpBlockingSocket () ; 
-CHttpBlockingSocket { ) ; 

int ReadHttpHeaderLine (char* pch, const int nSize, const int nSecs) ; 
int ReadHttpResponse (char* pch, const int nSize, const int nSecs) ; 
private : 

char* m_pReadBuf ; // read buffer 

int m_nReadBuf; // number of bytes in the read buffer 



#endif // BLOCKSOCK H 
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// BMC.cpp : Defines the class behaviors for the application. 
// 

#include "stdafx.h" 
#include "BMC.h" 

#include "MainFrm.h" 
#include "BMCDoc . h" 
#include "BMCView. h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CBMCApp 

BEGIN_MESSAGE_MAP (CBMCApp, CWinApp) 
/ / { { AFX_MSG_MAP ( CBMCApp ) 
ON_COMMAND ( ID_APP_ABOUT , OnAppAbout ) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code! 
/ / } } AFX_MSG_MAP 

// Standard file based document commands 
ON_COMMAND (ID_FILE_NEW, CWinApp: rOnFileNew) 
ON_COMMAND (ID_FILE_OPEN, CWinApp : rOnFileOpen) 
// Standard print setup command 

ON_COMMAND (ID_FILE_PRINT_SETUP, CWinApp: : OnFi lePrintSetup ) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CBMCApp construction 

CBMCApp : : CBMCApp ( ) 
{ 

// TODO : add construction code here, 

// Place all significant initialization in Initlnstance 

} 

1 11 1 II I / 1 1 1 1 1 11/ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 / 1 n 1 1 1 1 1 1 1 1 // 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 III 

II The one and only CBMCApp object 
CBMCApp theApp; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II CBMCApp initialization 

BOOL CBMCApp: : Initlnstance () 
{ 

if ( iAfxSocketlnit ( ) ) 
{ 

AfxMessageBox { IDP_SOCKETS_INIT_FAILED) ; 
return FALSE; 

} 
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Af xEnableControlContainer ( ) ; 
// Standard initialization 

// If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

#ifdef _AFXDLL 

EnableBdControls {) ; // call this when using MFC in a 

shared DLL 
#else 

EnableBdControlsStatic 0 ; // Call this when linking to MFC 

statically 
#endif 

// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organizat ion . 
SetRegistryKey (_T ( "Local AppWizard-Generated Applications")); 

LoadStdProf ileSettings 0 / // Load standard INI file options (including 

MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 

CSingleDocTemplate* pDocTemplate ; 
pDocTemplate = new CSingleDocTemplate ( 

IDR_MAINFRAME , 

RUNTIME_CLASS (CBMCDoc) , 

RUNTIME_CLASS (CMainFrame) , // main SDI frame window 

RUNTIME^CLASS (CBMCView) ) ; 
AddDocTemplate (pDocTemplate) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdinfo; 
ParseCommandLine (cmdinf o) ; 

// Dispatch commands specified on the command line 
if ( ! ProcessShellCommand (cmdinf o) ) 
return FALSE; 

// The one and only window has been initialized, so show and update it. 
m_pMainWnd->ShowWindow(SW_SHOW) ; 
m_pMainWnd- >Update Window { ) ; 

return TRUE; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 

public : 

CAboutDlg 0 ; 
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// Dialog Data 

//{ {AFX_DATA{CAboutDlg) 
enum { IDD = IDD_ABOUTBOX } ; 
//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV s 

//} }AFX_ VIRTUAL 

// Implementation 
protected : 

//{ {AFX_MSG (CAboutDlg) 

//No message handlers 

//} }AFX_MSG 

DECLARE_MESSAGE__MAP ( ) 



CAboutDlg : : CAboutDlg { ) : CDialog (CAboutDlg : : IDD) 

//{ {AFX_DATA_INIT (CAboutDlg) 
// } } AFX_DATA_INIT 



void CAboutDlg: : DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
/ / } } AFX_DATA__MAP 



BEGIN_MESSAGE_MAP (CAboutDlg, CDialog) 

// { { AFX_MSG_MAP (CAboutDlg) 

//No message handlers 

// } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

// App command to run the dialog 
void CBMCApp : : OnApp About ( ) 

{ 

CAboutDlg aboutDlg; 
aboutDlg.DoModal () ; 

} 

1 1 1 1 / 1 1 1 1/ /1 1 1 1/ 1 1 1 1 1 / 1 11 1 / / 11 / 1 / 1 1/ 1 III 1 1 1 / 1 1 n / / / / / 1 1 / 1 1/ 1 / / 1 II I / , 1 1 1 1 1 , 1 / 1 

II CBMCApp commands 
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// BMC.h : main header file for the BMC application 
// 

#if ! defined (AFX_BMC_H C193E4A8_8 8DD_11D1_ACEA_080 00 9B9F3 3 9 INCLUDED ) 

#def ine AFX_BMC_H C193E4A8_8 8DD_11D1_ACEA_08 0 009B9F33 9 INCLUDED 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include "resource. h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
/ / CBMCApp : 

// See BMC.cpp for the implementation of this class 
// 

class CBMCApp : public CWinApp 

{ 

public : 

CBMCApp ( ) ; 

/ / Overrides 

// ClassWizard generated virtual function overrides 
/ / { { AFX_VIRTUAL ( CBMCApp ) 
public : 

virtual BOOL Ini t Instance () ; 
/ / } } AFX_VIRTUAL 

/ / Implementation 

// { {AFX_MSG (CBMCApp) 
afx_msg void OnAppAbout ( ) ; 

// NOTE - the ClassWizard will add and remove member functions 

here . 

//DO NOT EDIT what you see in these blocks of generated code 

//} )AFX_MSG 
DECLARE_MESSAGE MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

!def ined(AFX_BMC_H C193E4A8_88DD_11D1_ACEA_080009B9F339 INCLUDED ) 
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// BMCDoc.cpp : implementation of the CBMCDoc class 
// 

#include "stdafx.h" 
#include "BMC.h" 

#include "BMCDoc . h" 
#include "BMCView . h" 



#include , /UC2Ani/DIB . h" 
#include " . . /UC2Ani/PhSprite . h" 

#include " PaletteDlg . h " 
#include " InputDlg . h " 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CBMCDoc 



IMPLEMENT_DYNCREATE (CBMCDoc , CDocument ) 



BEGIN_MESSAGE_MAP (CBMCDoc, CDocument) 
//{ {AFX_MSG_MAP (CBMCDoc) 

ON_COMMAND (ID_FILE_LOADSPRITE, OnFi leLoadspri te ) 
0N_C0MMAND (ID_FILE_L0ADBKGND, OnFileLoadbkgnd) 
ON_COMMAND (ID_VIEW_PALETTE, OnViewPalette ) 
0N_C0MMAND (ID_VIEW_0UTLINE, OnViewOutline) 
0N_C0MMAND (ID_FILE_SAVE_BKG, OnFileSaveBkg) 
0N_C0MMAND {ID_FILE_SAVE_SPRITE, OnFileSaveSprite) 
0N_UPDATE_C0MMAND_UI (ID_FILE_SAVE_BKG, OnUpdateFileSaveBkg) 
ON_UPDATE_COMMAND_U I ( I D_F I LE_S AVE_S PR I TE , OnUpda teFileSaveSprite) 
/ / } ) AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

// CBMCDoc construction/destruction 

CBMCDoc : : CBMCDoc ( ) 
{ 

m_jpBkgndDIB = NULL; 

} 



CBMCDoc : : -CBMCDoc ( ) 
{ 

if (m__pBkgndDIB) 

delete m_pBkgndDIB; 
m_SpriteList . RemoveAll 0 ; 

} 

BOOL CBMCDoc : : OnNewDocument {) 
{ 

if ( ! CDocument : : OnNewDocument ( ) ) 
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return FALSE ; 

// Tell the sprite list notification object where the view is 

// so when we add sprites the dirty list can be maintained automatically, 

CBMCView* pView = GetBMCView ( ) ; 

ASSERT (pView) ; 

m_SpriteList .m_NotifyObj . SetView (pView) ; 

// Create a new default background DIB just so 

// there will be something to look at 
CDIB* pDIB = new CDIB; 
pDIB->Create (320, 240) ; 
SetBackground (pDIB) ; 
SetModifiedFlag (FALSE) ; 

return TRUE; 

} 

I / 1 1 1 1 1 1 1 1 1 1 1 /I I /III 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1/ 1 1 // u I / 1 1 / 1 1 / 1 1 1 n / 1 1 / 1 1 III I // 1 / 1 1 / 1 1 / 1 1 

I / CBMCDoc serialization 

void CBMCDoc :: Serialize (CArchive& ar) 
{ 

CDocument : : Serialize (ar) ; 
if (ar . IsStoring ( ) ) 

{ 

if (m_pBkgndDIB) 

{ 

ar << (DWORD) 1; // say we have a bkgnd 
mj)BkgndDIB- >Serialize (ar) ; 

} 

else 

{ 

ar << (DWORD) 0; // say we have no bkgnd 

} 

m_SpriteList . Serialize (ar) ; 

} 

else 
{ 

DWORD dw; 

// see if we have a background to load 
ar >> dw; 
if (dw != 0) 
{ 

CDIB* pDIB = new CDIB; 
pDIB->Serialize (ar) ; 
// Attach it to the document 
SetBackground (pDIB) ; 

} 

// read the sprite list 
CBMCView* pView = GetBMCView () ; 
ASSERT (pView) ; 

m_SpriteList .m_NotifyObj . SetView (pView) ; 
m_SpriteList . Serialize (ar) ; 

SetModifiedFlag (FALSE) ; 
UpdateAllViews (KTULL, 0, NULL); 
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} 

} 

I / 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 / 1 / 1 1 1 1 1 1 1 1 1 1/1 / II / / 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 / 1 1 1 / n / 1 1 1 / / / / 1 / / 1 1 / 1 / 1 1 

II CBMCDoc diagnostics 
#ifdef _DEBUG 

void CBMCDoc : :AssertValid ( ) const 
{ 

CDocument : : AssertVal id ( ) ; 

} 



void CBMCDoc :: Dump (CDumpContext& dc) const 
{ 

CDocument : : Dump (dc) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CBMCDoc commands 

void CBMCDoc: :SetTitle(LPCTSTR IpszTitle) 

// UNREFERENCED_PARAMETER (IpszTitle) ; 

// CString strTi t le ( "UniChat 2,0"); 

// if (IpszTitle) 

// strTitle IpszTitle; 

// CDocument: : SetTitle ( strTitle) ; 

CDocument : : SetTitle (IpszTitle) ; 



///////////////////////////////////////////////////////////////////////////// 
// return a pointer to the off -screen buffered view 
CBMCView* CBMCDoc : : GetBMCView ( ) 
{ 

POSITION pos = GetFirstViewPosition 0 ; 
ASSERT (pos) ; 

CBMCView* pView = (CBMCView* ) GetNextView (pos ) ; 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME_CLASS (CBMCView) ) ) ; 
return pView; 

} 

void CBMCDoc: lOnFileLoadbkgndO 

// Create a DIB to hold the image 
CDIB* pDIB = new CDIB; 

// Show the file open dialog for a DIB 
ClnputDlg dig; 

dlg.m_strData = "DataSource | f ile " ; 
if (dlg.DoModal 0 IDOK) 
return; 

if ( !pDIB->Load (dig . m_strData , " c : \ \uc2 \ \bmc\ \master . pal " ) ) 
delete pDIB; 
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return; 

} 

if ( !pDlB->Load{ (char*)NULL, "mas ter . pal " ) ) 

delete pDIB; 
return; 

} 

*/ CString* pstrFile = pDIB- >GetName ( ) ; 
SetTitle {*pstrFile) ; 
// Make sure this is an 8 bpp DIB 

BITMAPINFO* pBMI - pDIB - >GetBi tmapinf oAddress ( ) ; 
ASSERT (pBMI) ; 

if (pBMI - >bmiHeader . biBitCount '= 8) 
{ 

AfxMessageBox ( "Only 8 bpp DIBs are supported"); 

delete pDIB; 

return; 

} 

// replace any existing background DIB with the new one 
if ( ! SetBackground (pDIB) ) 
delete pDIB; 

} 

void CBMCDoc : lOnFileLoadsprite 0 
{ 

// Create a sprite to hold the image 
CPhasedSprite* pSprite = new CPhasedSpr i te ; 
// Show the file open dialog for a Sprite 
if ( !pSprite->Load ( (char*) NULL, "master . pal " ) ) 

delete pSprite; 
return; 

} 

CString* pstrFileBkg = m__pBkgndDIB- >GetName ( ) ; 
CString* pstrPi leSpri te = pSprite- >GetDIB ()- >GetName () ; 
CString strTitle; 

strTitle. Format (" (B) %s, (S)%s", *pstrFileBkg , *pstrFileSprite) 
SetTitle (strTitle) ; 

// Make sure this is an 8 bpp DIB 

BITMAPINFO* pBMI = pSpr i te - >GetDIB ( ) - >Ge tBi tmapInf oAddress () ; 
ASSERT (pBMI) ; 

if (pBMI- >bmiHeader , biBitCount 1= 8) 
{ 

AfxMessageBox ( "Only 8 bpp DIBs are supported"); 

delete pSprite; 

return; 

} 

// add it to the sprite list 
m_SpriteList . Insert (pSprite) ; 
// SetModif iedFlag (TRUE) ; 

// Tell the view about the new sprite 
GetBMCView ( ) ->NewSprite (pSprite) ; 

// Set a new background DIB 
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BOOL CBMCDoc : :SetBackground (CDIB* pDIB) 

// Delete any existing sprites 
m_SpriteList .RemoveAll ( ) ; 

// Delete any existing background DIB and set the new one 
if (m_pBkgndDIB) 

delete m__pBkgndDIB ; 
m_jpBkgndDIB = pDIB; 

// Note that the doc has changed 
// SetModif iedFlag (TRUE) ; 

// Tell the view that it needs to create a new buffer and palette 
CBMCView* pView = GetBMCView ( ) ; 
ASSERT (pView) ; 

return pView- >NewBackground (m_pBkgndDIB) ; 



void CBMCDoc : iGetSceneRect (CRectfic pre) 

if (1 m_pBkgndD IB ) 

return ; 
m_pBkgndDIB->GetRect (pre) ; 

void CBMCDoc : rOnViewPalette () 
{ 

CPaletteDlg palDlg; 

CBMCView* pView = GetBMCView () ; 
if (pView) 

palDlg . SetPalette (pView- >GetOSBPalet te ( ) ) ; 
palDlg . DoModal ( ) ; 

} 

void CBMCDoc: :OnViewOutline() 
{ 

CBMCView* pView = GetBMCView () ; 
pView->ToggleOutline 0 ; 

} 

void CBMCDoc : :OnFileSaveBkg ( ) 

if (m_pBkgndDIB) 
{ 

CString* pstrFile = m_pBkgndDIB - >GetName ( ) ; 
/ / Reload to restore original bitmaps 
CDIB* pDIB = new CDIB; 

/ / Show the file open dialog for a DIB 

if ( ipDIB->Load (*pstrFile) ) 

{ 

delete pDIB; 
return ; 

} 

pDIB->Save () ; 
delete pDlB; 
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void CBMCDoc : lOnFileSaveSprite ( ) 

{ 

CPhasedSprite* pS = GetBMCView ( ) - >GetCapturedSprite ( ) ; 

if (pS) 

{ 



CString* pstrFile = pS - >GetDIB ( ) - >GetName ( ) ; 
// Reload to restore original bitmaps 
CDIB* pDIB = new CDIB; 

// Show the file open dialog for a DIB 
if ( !pDIB->Load (*pstrFile) ) 



void CBMCDoc : lOnUpdatePileSaveBkg {CCmdUI* pCmdUI) 
pCmdUI->Enable (m_pBkgndDIB != NULL) ; 

void CBMCDoc : :OnUpdateFileSaveSprite (CCmdUI* pCmdUI) 

pCmdUI->Enable (GetBMCView 0 ->GetCapturedSprite ( ) != NULL) 




} 

pDIB->Save ( ) ; 
delete pDIB; 



} 
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// BMCDoc.h : interface of the CBMCDoc class 
// 

///////////////////////////////////////////////////////////////////////////// 

#if ! defined { AFX_BMCDOC_H C193E4AE_8 8DD_11D1__ACEA_0 8 000 9B9F3 3 9 INCLUDED ) 

#def ine AFX_BMCDOC_H C193E4AE_88DD_11D1_ACEA_0 80 00 9B9F3 3 9 INCLUDED_ ~~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 

#include " . . /UC2Ani/Spri tLst . h" 

class CDIB ; 
class CBMCView; 

class CBMCDoc : public CDocument 

{ 

protected: // create from serialization only 
CBMCDoc { ) ; 

DECLARE_DYNCREATE (CBMCDoc) 



GetBackground () { return m__pBkgndDIB ; } 
GetSpriteList {) { return &m_SpriteLi st ; } 
GetSceneRect (CRect& pre) ; 

/ / Operations 
public : 

BOOL SetBackground (CDIB* pDIB) ; 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CBMCDoc) 
public : 

virtual BOOL OnNewDocument ( ) ; 
virtual void Serial! ze ( CArchive& ar) ; 
virtual void SetTitle (LPCTSTR IpszTitle) ; 
// } }AFX__VIRTUAL 

// Implementation 
public : 

virtual -CBMCDoc () ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDumpCon text & dc) const; 

#endif 



// Attributes 
public : 

CDIB* 

CSpriteList* 
void 



protected : 



private : 

CDIB* m_j)BkgndDIB; // ptr to background DIB 

CSpriteList m__Spri teList ; // sprite list 

CBMCView* GetBMCView ( ) ; 
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// Generated message map functions 
protected : 

/ / { { AFX_MSG { CBMCDoc ) 

afx_msg void OnFi leLoadspri te ( ) ; 

afx_msg void OnFileLoadbkgnd ( ) ; 

afx_msg void OnViewPalette ( ) ; 

afx_msg void OnViewOut line ( ) ; 

afx_msg void OnFileSaveBkg ( ) ; 

afx_msg void OnFi leSaveSprite ( ) ; 

afx_msg void OnUpdateFileSaveBkg (CCmdUI* pCmdUI); 
afx_msg void OnUpdateFileSaveSprite (CCmdUI * pCmdUI); 
// } }AFX__MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! de f i ned ( AFX_BMCDOC_H C 193 E4 AE_8 8DD_1 ID 1_ACEA_0 80009B9F33 9 INCLUDED_ ) 
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// BMCView.cpp : implementation of the CBMCView class 
// 



#include 
#include 

#include 
#include 
#include 

#include 
#include 
#include 



stdafx. h" 
BMC.h" 

BMCDoc .h" 
BMCView.h" 
MainFrm. h" 

- . /UC2Ani/DIB.h" 

. - /UC2Ani/DIBPal . h" 

. . /UC2Ani/PhSprite.h' 



#ifdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE [] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CBMCView 



IMPLEMENT_DYNCREATE (CBMCView, COSBView) 



BEGIN_MESSAGE_MAP (CBMCView, COSBView) 
// { { AFX_MSG_MAP (CBMCView) 
ON_WM_LBUTTONDOWN { ) 
ON_WM_LBUTTONUP ( ) 
ON_WM_MOUSEMOVE ( ) 

ON_COMMAND ( ID_VIEW_64 0x4 8 0 , OnVIEW64 0x4 8 0 ) 
ON_COMMAND (ID_VXEW_8 0 0x60 0 , OnVIEW80 0x60 0 ) 
// } } AFX_MSG_MAP 

// Standard printing commands 

ON_COMMAND (ID_FIIjE_PRINT, CView: : OnFi lePr int ) 
ON_COMMAND (ID_FILE_PRINT_DIRECT, CView : : OnFi lePr int ) 
ON_COMMAND (ID_FILE_PRINT_PREVIEW, CView: : OnFi lePrint Preview) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CBMCView construction/destruction 



CBMCView: : CBMCView () 
{ 

m_bMouseCaptured = FALSE; 
m_pCapturedSprite = NULL; 
m_aSubPE = new PALETTEENTRY [ 2 5 6 ] ; 

/* 

m_nPEs = 10 ; 

m_apPE = new LPPALETTEENTRY [m_nPEs ] ; 
for (int i=0; i < m_nPEs; i++) 

{ 

m_apPE(i] = new PALETTEENTRY (2 56] ; 

} 

*/ 
} 
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CBMCView: : -CBMCView { ) 
{ 

if (m_aSubPE) 

delete [] m_aSubPE; 

/* 

if (m_apPE) 

{ 

for (int i=0; i < m_nPEs; i++) 
{ 

if (m_apPE [i] ) 

delete [] m_apPE [i] ; 
m_apPE[i] = NULL; 

} 

delete [] m_apPE; 
m_apPE = NULL; 

} 

*/ 
} 

BOOL CBMCView: : PreCreateWindow ( CREATESTRUCT& cs) 
{ 

// TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 

return CView: : PreCreateWindow ( cs ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CBMCView drawing 

void CBMCView: :OnDraw{CDC* pDC) 
{ 

// CBMCDoc* pDoc = Ge tDocument ( ) ; 

// ASSERT_VALID (pDoc) ; 

COSBView: :OnDraw(pDC) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CBMCView printing 

BOOL CBMCView: :OnPreparePrinting (CPrintlnfo* pinfo) 
{ 

// default preparation 

return DoPreparePrint ing (pinf o) ; 

} 

void CBMCView: :OnBeginPrinting {CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
// TODO: add extra initialization before printing 



void CBMCView: :OnEndPr int ing (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
// TODO: add cleanup after printing 

} 
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II CBMCView diagnostics ///////////// 
#ifdef _DEBUG 

void CBMCView: :AssertValid 0 const 
{ 

CView: : AssertValid () ; 

} 

void CBMCView: : Dump (CDumpCon text 5c dc) const 
CView: :Dump(dc) ; 

} 

CBMCDoc* CBMCView: :GetDocument 0 // non-debug version is inline 

ASSERT (m__pDocument->IsKindOf {RUNTIME_CLASS (CBMCDoc) ) ) ; 
return (CBMCDoc* ) m__pDocument ; 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CBMCView message handlers 

void CBMCView: :OnInitialUpdate ( ) 

COSBView: : OnlnitialUpdate ( ) ; 

} 

// Create a new buffer and palette to match a new background DIB 
BOOL CBMCView: :NewBackground (CDIB* pDIB) 

m_pCapturedSprite = NUL.L; 



I- 



CDIBPal pal; 

pal .Load ( (char*) NULL, m_aSubPE) ; 
pDIB->SetPaletteEntries (0, 256, m^aSubPE) 

static int nPer=10; 

pDIB->ShiftRGBPercent (0, 256, nPer) ; 
nPer += 10; 



// Create a new buffer and an identity palette 
if ( ! CreateOSB (pDIB) ) 
return FALSE; 

/ / Map the colors of the background DIB to 

// the identity palette we just created for the background in 
COSBView: : Create (CDIB* pDIB) 

pDIB->MapColorsToPalette ( ( CPalette* ) GetOSBPalet te () ) ; 

// Resize the main frame window to fit the background image 
GetParentFrame () - >RecalcLayout () ; 

ResizeParentToFit (FALSE) ; // Try shrinking first 

ResizeParentToFit (TRUE) ; // Let's be daring 
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// Render the entire scene to the off-screen buffer 
Render ( ) ; 

// Paint the off-screen buffer to the window 
DrawOSB { ) ; 

return TRUE; 

} 

// A new sprite has been added to the document 

void CBMCView : rNewSprite (CSprite* pSprite) 

{ 

// CDIBPal pal; 

// pal . Load ( (char* ) NULL, m_aSubPE) ; 
// pSprite- >SetPaletteEntries ( 0 , 256, m_aSubPE) ; 
static int n=l; 

pSprite->GetDIB ( ) - >RotatePaletteIndex ( 2 0 , 4*4, n*4) ; 
pSprite >GetDIB ( ) - >RotatePaletteIndex {40 , 4*4, n*4) ; 
n++ ; 

if (n > 4) 

n = 1; 

/* 

m_aSubPE [0] -peRed = 0; 
m_aSubPE [0] . peGreen = 0; 

m_aSubPE [0] .peBlue = 0; 

m_aSubPE [0] .peFlags = 0; 

m_pCapturedSprite- >SetPaletteEntries ( 18 , 1, m_aSubPE) ; 

*/ 

// map the colors in the sprite DIB to the 
// palette in the off-screen buffered view 
if (m_pOSBPal) 

pSprite->MapColorsToPalette ( (CPalette* ) m_pOSBPal ) 

/ / Render the scene 
Render ( ) ; 

// Draw the new scene to the screen 
DrawOSB ( ) ; 

} 

// Render the scene to the off -screen buffer 

// pClipRect defaults to NULL 

void CBMCView: : Render (CRect* pClipRect) 

{ 

CBMCDoc* pDoc = GetDocument ( ) ; 
CRect rcDraw; 

// get the background DIB and render it 
CDIB* pDIB = pDoc->GetBackground ( ) ; 
if (pDIB) 
{ 

pDIB->GetRect (rcDraw) ; 

// If a clip rect was supplied use it 

if (pClipRect) 

{ 

rcDraw . IntersectRect (pClipRect , ircDraw) ; 

} 
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// draw the image of the DIB to the os buffer 

ASSERT (m__pOSB) ; 

pDIB- >CopyBits (m_pOSB, 

rcDraw. lef t , 
rcDraw . top , 

rcDraw. right - rcDraw. left, 
rcDraw. bottom - rcDraw. top, 
rcDraw. left , 
rcDraw. top) ; 



// Render the sprite list from the bottom of the list to the top 

// Note that we always clip to the background DIB 

CSpriteList* pList = pDoc - >GetSpri teList ( ) ; 

POSITION pos = pList->GetTailPosition() ; 

CSprite* pSprite; 

while (pos) 

{ 

pSprite = pList- >GetPrev (pos) ; 
pSprite->Render (m_pOSB, &rcDraw) ; 



} 



void CBMCView: :OnLButtonDown (UINT nFlags, CPoint point) 

if (m_biyiouse Captured) 
return; 

CBMCDoc* pDoc = GetDocument ( ) ; 
// See if it hit a sprite 

CSpriteList* pList = pDoc - >GetSpriteList { ) ; 

CPhasedSprite* pSprite = (CPhasedSprite* ) pList - >HitTest (point ) ; 
if (pSprite) 

{ 

m_bMouseCaptured = TRUE ; 

if (pSprite != m_pCapturedSpri te ) 

{ 

m_jpCapturedSprite = pSprite ; 

TRACE ("New Sprite %8 . 8XH\n" , m_pCapturedSprite) ; 
CString* pstrFileBkg = pDoc - >GetBackground ( ) - >GetName ( ) 
CString* pstrFileSprite = pSprite - >GetDIB {)- >GetName () ; 
CString strTitle; 

strTitle. Format ( " (B) %s, (S) %s" , *pstrFi leBkg , 

*pstrFileSprite) ; 

pDoc->SetTitle (strTitle) ; 

} 

SetCapture ( ) ; 

m__ptOf f set .X = point. X - m_pCapturedSpri te - >GetX () ; 
m jptOffset.y = point. y - m_pCapturedSpri te - >GetY ( ) ; 
Showlnfo (point , pSprite) ; 

} 

// COSBView: : OnLButtonDown { nFl ags , point) ; 

} 

void CBMCView: zOnLButtonUp (UINT nFlags, CPoint point) 
if {m_bMouseCaptured) 
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{ 

: : ReleaseCapture () ; 
m_bMouseCaptured = FALSE; 

} 

// COSBView: :OnLButtonUp(nFlags, point); 
} 

void CBMCView : : OnMouseMove (UINT nFlags, CPoint point) 

{ 

if {m__bMouse Captured) 

{ 

ASSERT (m_jpCapturedSprite) ; 

m_jpCapturedSprite- >SetLT (point . X - m_j)tOf f set . x, 

point. y ~ m_ptOffset 

// Render and draw the changes 
RenderAndDrawDirtyList ( ) ; 
CBMCDoc* pDoc ^ GetDocument ( ) ; 
pDoc- >SetModif iedFlag (TRUE) ; 

} 

Showlnfo (point , m_pCapturedSpri te) ; 
// COSBView: : OnMouseMove ( nFlags , point) ; 

} 

void CBMCView: : Showlnfo (CPoint & point, CPhasedSprite* pSprite) 

{ 

// Show current state in the status bar 

CMainFrame* pFrame = (CMainFrame*) ( Af xGetApp ( ) - >m_pMainWnd) ; 
ASSERT (pFrame) ; 
char buf [25 6] ; 

wsprintf (buf , "Cursor: %d,%d. point. x, point. y); 

if (pSprite) 

{ 

wsprintf (&buf [strlen (buf ) ] , "Sprite: %d,%d,%d Cell: %d, %d 
pSprite->GetX 0 , 
pSprite->GetY ( ) , 
pSprite->GetZ () , 
pSprite->GetCellRow ( ) , 
pSprite->GetCellColumn() ) ; 

} 

pFrame- >SetStatusBarText (buf ) ; 

} 

void CBMCView: : ToggleOutline ( ) 

{ 

if ( !m_pCapturedSprite) 

{ 

AfxMessageBox ( "Select the Sprite to toggle the outline.") 
return; 

} 

// CDIBPal pal; 

// pal .Load( (char*)NULL, m_apPE [0] ) ; 
/* 

RGBQUAD* pQ - m_pCapturedSpr i te - >GetClrTabAddress ( ) ; 
if ( (pQ [18] . rgbRed == pQ [ 19] . rgbRed) && 
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*/ 
/* 



(pQ[18] . rgbGreen 
(pQ [18] . rgbBlue 



} 

else 
{ 

} 



PQ[18] 
PQ[18] 
pQ[18] 
pQ [18] 



rgbRed 
rgbGreen 
rgbBlue 
rgbReserved 



pQ [19] . rgbGreen) && 

pQ [19] . rgbBlue) ) 

- 255; 

= 255; 

= 0; 

= 0; 



m_jpCapturedSprite->ReplacePaletteIndexValue (18 , 19) 



CClientDC dc (this) ; 
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IgTRi [0] 


gTRi [1] . 


Vertex2 




2gTRi [1] 



iGradientFill (dc . GetSaf eHdc ( 



Vertex3 = 2gTRi [1] .Vertexl = 0 
Vertex3 = 3 

), vert, 4, &gTRI, 1, GRADIENT FILL TRIANGLE) 



m_aSubPE [0] .peRed += 10; 

if (m_aSubPE [0] .peRed > 255) 

m_aSubPE [0] .peRed = 0; 
m_aSubPE [0] .peGreen += 10; 

if (m_aSubPE [0] .peGreen > 255) 

m_aSubPE [0] .peGreen = 0; 
m_aSubPE [0] .peBlue += 10; 

if (m_aSubPE [0] .peBlue > 255) 

m_aSubPE [0] -peBlue ^ 0; 



m__pCapturedSprite->GetDIB 0 - >SetPaletteEntries (18 , 1, m aSubPE) 
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NewSprite {m_pCapturedSpri te ) ; 

} 

void CBMCView: :OnVIEW640x480 ( ) 
{ 

CSize sizeTotal (640, 480); 
CDIB* pDIB; 
pDIB = new CDIB; 

pDIB- >Create ( sizeTotal . cx, sizeTotal . cy ) ; 
SetScrollSizes (MM_TEXT, sizeTotal) ; 

} 

void CBMCView: :OnVIEW800x600 () 
{ 

// TODO : Add your command handler code here 

} 
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// BMCView.h 
// 



interface of the CBMCView class 



1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 1 / / 11 1 1 1 n 1 1 1 / 11 1 1 1 1 1 1 1 1 11 / 1 1 / / 1 n 1/ / 1 / / 1 1 1 / / / 1 1 1 f / / / 1/ n 1 1 1 / 1 



#if ! defined {AFX_BMCVIEW_H C193E4B0_88DD_11D1_ACEA_080009B9F33 9 INCLUDED_) 

#def ine AFX_BMCVIEW_H C193E4B0_8 8DD_11D1_ACEA_0 8 0 00 9B9F3 3 9 INCLUDED^ ~ 

#if _MSC_VER >- 10 00 
#pragma once 

#endif // _MSC_VER >= 1000 

#include . /UC2Ani/OSBView . h" 

class CSprite; 
class CPhasedSprite ; 
class CBMCDoc; 

class CBMCView : public COSBView 



protected: // create from serialization only 
CBMCView () ; 

DECLARE_DYNCREATE (CBMCView) 

// Attributes 
public : 

CBMCDoc* GetDocument () ; 

CPhasedSprite* GetCapturedSprite ( ) { return 

m_jDCapturedSprite ; } 

/ / Operations 
public : 



// Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CBMCView) 
public : 

virtual void OnDraw(CDC* pDC) ; // overridden to draw this view 
virtual BOOL PreCreateWindow (CREATESTRUCT&: cs) ; 
virtual void OnlnitialUpdate () ; 
protected : 

virtual BOOL OnPreparePrinting ( CPrint Inf o* pinfo) ; 
virtual void OnBeginPrint ing (CDC* pDC, CPrintlnfo* pInfo) ; 
virtual void OnEndPrint ing (CDC* pDC, CPrintlnfo* pInfo) ; 
// } }afx_ VIRTUAL 

// Implementation 
public : 

void ToggleOutline ( ) ; 

virtual -CBMCView ( ) ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDumpCon text & dc) const; 



BOOL 

virtual void 
void 



NewBackground (CDIB* pDIB) ; 
Render (CRect* pClipRect^NULL) ; 
NewSprite (CSprite* pSprite); 



#endif 
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protected : 
private : 

BOOL. m_bMouseCaptured ; // TRUE if mouse captured 

CPhasedSprite* m_jpCapturedSprite ; // Pointer to captured sprite 

(for drag) 

CPoint m__ptOf f set ; // offset into hit 

sprite 

CPhasedSprite* m_pMenuSprite ; // ptr to current sprite 

// typedef PALETTEENTRY* LPPALETTEENTRY ; 

// LPPALETTEENTRY* m_apPE; // array of pointers to the 

palette entries 

// int m_nPEs ; 

PALETTEENTRY* m__aSubPE ; // array of palette entries 

(Substitutional palette) 

void SetSpriteZ (int z) ; 
void SetSpriteCols ( int i) ; 
void SetSpri teRows ( int De- 
void Showinf o (CPoint& point, CPhasedSprite* pSprite) ; 

// Generated message map functions 
protected : 

/ / { {AFX__MSG (CBMCView) 

afx_msg void OnLButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnLButtonUp (UINT nFlags, CPoint point) ; 
afx_msg void OnMouseMove (UINT nFlags, CPoint point); 
afx_msg void OnVIEW64 0x4 80 ( ) ; 
afx_msg void OnVIEW800x600 ( ) ; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

#ifndef _DEBUG // debug version in BMCView.cpp 
inline CBMCDoc* CBMCView :: GetDocument ( ) 

{ return ( CBMCDoc* ) m_jpDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

!defined(AFX BMCVIEW H C193E4B0 88DD llDl ACEA 080009B9F339 INCLUDED ) 
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// CloseDlg.cpp : implementation file 
// 

#include "stdafx.h" 

#include '*UC2 .h" 

#include "CloseDlg.h" 

#include "ResMan.h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/DIBPal . h" 

#include "MainFrm.h" 

#ifdef __DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS__FILE [] - FILE ; 

#endif 

extern CResMan gResMan; 
#ifdef _MALL 

LPCTSTR BMP_CLOSE_BK = "MClose.bmp"; 

//const CRect RECT_MESSAGE (4 7 , 175, 367, 270); 

//const CRect RECT_TIME ( 98 , 300, 321, 320); 

const CRect RECT_MESSAGE (4 7 , 63, 280, 160); 

const CRect RECT_TIME ( 114 , 145, 222, 165); 

#else 

LPCTSTR BMP_CLOSE_BK = "U2Login | LoginBk . bmp" ; 

LPCTSTR BMP_CLOSE_BTN_OK = "U2Login | BtnOK . bmp " ; 

LPCTSTR BMP_CLOSE_BTN_NO = "U2Login j BtnNo . bmp " ; 

const CRect RECT_MESSAGE (47 , 145, 367, 240); 

const CRect RECT_TIME ( 98 , 270, 321, 290); 

#endif 

const int NUM_EPILOGUES=2 ; 

///////////////////////////////////////////////////////////////////////////// 
// CCloseDlg dialog 

CCloseDlg: :CCloseDlg{CWnd* pParent /*=NULL*/) 
: CDialog (CCloseDlg :: IDD, pParent) 

{ 

//{ {AFX_DATA_INIT (CCloseDlg) 
// m_strTimeReport = _T ( " " ) ; 
// } }AFX_DATA_INIT 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd () ; 
ASSERT (pMF) ; 

CTimeSpan tsElapsed = CTime : : GetCurrentTime () - pMF- >m_tmStart ; 
CString strTime ( tsElapsed . Format ( " %H : %M : %S" ) ) ; 
m_strTimeReport . LoadString ( IDS_TIME_REPORT) ; 
m_strTimeReport += strTime; 

m_nMsgCur = 0; 

m_NullBrush. CreateStockObject (NULL_BRUSH) ; 

m_f tMessage . CreateFont ( -13 , 0, 0, 0, FW_BOLD, // NORMAL, 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
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DEFAULT_CHARSET , OUT_CHARACTER_PRECIS , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY , 

DEFAULT_PITCH | | FF_DONTCARE , 

tifdef _KOREAN 

"±H^ ^A^" ) ; 

#else 

"Times New Roman"); 

#endif 

m_pPal = NULL; // Set it NULL before loading DIB 

CS tring s trPath ( *gResMan . GetResPath ( ) ) ; 
CString strFile ( strPath + BMP_CLOSE_BK) ; 
m_pDIBBack = new CDIB; 
if { !m_pDlBBack->Load (strFile) ) 

delete m_pDIBBack; 
m_jpDIBBack = NULL; 
return; 

if (pMF->Is256Palette 0 ) 

{ // Use mainframe's palette to avoid color flickering 

m_pPal = pMF- >GetPalette 0 ; 
m_pDIBBack- >MapColorsToPalette {mjPal) ; 
m_bPaletteCreated = FALSE; 

else // Use original palette in the file for TRUE color system 
{ // Create the palette from the DIB. 

CDIBPal* pDIBPal; 

pDIBPal = new CDIBPal; 

ASSERT (pDIBPal) ; 

if {! pDIBPal ->Create (m_pDIBBack) ) 

{ 

AfxMessageBox ( "Failed to create palette from DIB file" 
delete pDIBPal; 

} 

m_pPal - pDIBPal; // type casting to parent class 
m_bPaletteCreated = TRUE; 

} 



#ifndef _MALL 

StrFile - strPath + BMP_CLOSE_BTN_OK; 
m_btnOK. Load (strFile) ; 
m_btnOK. SetPalette (m_pPal) ; 

StrFile = StrPath + BMP_CLOSE_BTN_NO; 
m_btnCancel . Load (strFile) ; 
m_btnCancel . SetPalette (m__pPal ) ; 

#endif 
} 

CCloseDlg : : -CCloseDlg ( ) 

{ 

if (m_pDIBBack) 

delete m_pDIBBack; 
if (m__pPal EcEl m_bPaletteCreated) 



A-81 



CloseDlg.cpp 



delete m__pPal ; 

} 

void CCloseDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CCloseDlg) 

DDX_Text {pDX, IDC_ST_MESSAGE, m_s t rMes sage ) ; 
DDX_Text (pDX, IDC_ST_TIME_REPORT , m_s t rTimeReport ) ; 
// } }AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP (CCloseDlg, CDialog) 

// { { AFX_MSG_MAP (CCloseDlg) 

ON_WM_PALETTECHANGED ( ) 

ON_WM_QUERYNEWPALETTE ( ) 

ON_WM_SIZE() 

ON_WM_ERASEBKGND ( ) 

ON_WM_CTLCOLOR ( ) 

ON_WM_NCHITTEST { ) 

ON_WM_RBUTTONDOWN ( ) 

ON_WM_LBUTTONDBLCLK ( ) 

// } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CCloseDlg message handlers 

void CCloseDlg :: InitControl (const int nCtrllD, const CRect& rcCtrl) 
{ 

CWnd* pW = GetDlgltem (nCtrllD) ; 
ASSERT (pW) ; 

pW- >SetWindowPos (NULL, rcCtrl.left, rcCtrl.top, 

rcCtrl. Width () , rcCtrl . Height () , 
SWP_NOZORDER | SWP_NOACTIVATE ) ; 

pW->SetFont {&m_f tMessage, FALSE); // do not Redraw 

} 

BOOL CCloseDlg: :OnInitDialog() 
{ 

if ( !m_pDIBBack) 

return FALSE; 
CDialog: : Onlni tDialog ( ) ; 

#ifndef _MALL 

m_btnOK. SubclassDlgltemdDOK, this) ; 
m_btnCancel , SubclassDlgltem (IDCANCEL, this) ; 

CPoint ptLT(349, 238); 
m_btnOK. MoveResize (ptLT) ; 
ptLT-x = 17; 

Tn_btnCancel - MoveResize (ptLT) ; 

#endif 

InitControl (IDC_ST_MESSAGE , RECT_MESSAGE) ; 

InitControl ( IDC_ST_TIME_REPORT, RECT_TIME) ; 




A-82 



CloseDlg.cpp 

return TRUE; // return TRUE unless you set the focus to a control 
^ // EXCEPTION: OCX Property Pages should return FALSE 

void CCloseDlg: :OnPaletteChanged (CWnd* pFocusWnd) 

CDialog: : OnPaletteChanged (pFocusWnd) ; 

if (pFocusWnd 1= this) 

OnQueryNewPalette {) ; 

} 

BOOL CCloseDlg: : OnQueryNewPalette ( ) 
{ 

if (m_pPal) 
{ 

CDC* pdc = GetDC { ) ; 

CPalette* pPalOld = pdc - >SelectPalette (m_jpPal , FALSE); // 

foreground 

UINT u - pdc->RealizePalette {) ; 
if (pPalOld) 

pdc->SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc ) ; 
// if (u) 

// { // Some colors changed so we need to do a repaint . 

Invalidate () ; // Repaint the lot. 
return TRUE; // Say we did somethinq, 

// } 
} 

return FALSE; // Say we did nothing. 

void CCloseDlg: :OnSize (UINT nType , int cx, int cy) 
{ 

CDialog :: OnSize (nType , cx, cy) ; 

if (m_pDIBBack) 
{ 

SetWindowPos (NULL, 0, 0, m_pDIBBack- >GetWidth ( ) , m_jpDIBBack- 
>GetHeight () , 

SWP_NOMOVE I SWP_NOZORDER | SWP_NOACTIVATE) ; 

} 

BOOL CCloseDlg :: OnEraseBkgnd (CDC* pDC) 
CDialog: : OnEraseBkgnd (pDC) ; 

// Make sure we have what we need to do a paint . 

if ( !m_pDlBBack) 

{ 

TRACE ("CLoginDlg: No DIB!\n"); 
return FALSE; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
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if (m_pPal) 
{ 

pPalOld = pDC->SelectPalette (m_pPal , FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette ( ) ; // we realize in response to 

WM__QUERYNEWPALETTE 

} 

m_jDDIBBack->Draw (pDC, 0, 0) ; 

// Select old palette if we altered it. 

if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 

return TRUE; 

} 

HBRUSH CCloseDlg : :OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) 

{ 

pDC->SetBkMode (TRANSPARENT) ; 
return (HBRUSH) m_NullBrush; 

} 

UINT CCloseDlg: lOnNcHitTest (CPoint point) 

{ 

UINT nHitTest = CDialog :: OnNcHitTest (point ) ; 
#ifndef _MALL 

if ((nHitTest == HTCLIENT) && ( : : GetAsyncKeyS tate (MK__LBUTTON) < 0)) 
nHitTest = HTCAPTION; 

#endif 

return nHitTest; 

} 

void CCloseDlg :: OnRButtonDown (UINT nFlags, CPoint point) 

{ 

if (nFlags & MK_CONTROL) 
{ 

// Authority Check 

if (RECT__MESSAGE.PtInRect (point) ) 
{ 

UINT nID IDS_EPILOGUE0 0 + m_nMsgCur; 
if (m_nMsgCur++ == NUM_EPILOGUES ) 

m_nMsgCur = 0 ; 
m_s t rMe s sage . Loads t ring (n ID) ; 
UpdateData (FALSE) ; 

InvalidateRect (RECT_MESSAGE , TRUE) ; 

} 

} 

CDialog: : OnRButtonDown (nFlags , point) ; 

} 

void CCloseDlg :: OnLButtonDblClk (UINT nFlags, CPoint point) 
{ 

#ifdef _MALL 

CDialog: :OnOK() ; 

#else 

CDialog: : OnLButtonDblClk (nFlags , point) ; 

#endif 
} 
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#if ! defined (AFX_CLOSEDLG_H 11F2 8E44_B405_11D1_80E2_080009B9F339 INCLUDED ) 

#def ine AFX_CLOSEDLG_H 11F2 8E44_B4 05_11D1_8 0E2_0 80 0 0 9E9F3 3 9 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _iyiSC_VER >= 1000 
// CloseDlg.h : header file 
// 

#include "UC2Ani /PSButton . h" 

///////////////////////////////////////////////////////////////////////////// 
// CCloseDlg dialog 
class CDIB; 

class CCloseDlg : public CDialog 

{ 

/ / Construction 
public : 

CCloseDlg (CWnd* pParent = NULL); // standard constructor 
virtual -CCloseDlg () ; 

/ / Dialog Data 

//{ {AFX_DATA (CCloseDlg) 
enum { IDD = IDD_CLOSE } ; 
CString m_strMessage ; 

CString m_strTimeReport / 

//) }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CCloseDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAb 

// Implementation 
protected : 

void InitControl (const int nCtrllD, const CRect& rcCtrl) ; 

m_pDIBBack; // Background frame image 

m_j)Pal; // main palette 

m_bPaletteCreated; 

m_btnOK; 
m_btnCancel ; 

m_NullBrush/ 
m_ft Mess age ; 

m_nMsgCur; // Current Message index 

/ / Generated message map functions 
// { {AFX^MSG (CCloseDlg) 
virtual BOOL OnlnitDialog () ; 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
afx_msg BOOL OnQueryNewPalette () ; 

afx_msg void OnSize (UINT nType, int cx, int cy) ; 



CDIB* 
CPalette* 
BOOL 
#ifndef _MALL 

CPSButton 
CPSButton 

#endif 

CBrush 

CFont 

int 
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afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 

afx_msg HBRUSH OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
afx_msg UINT OnNcHitTest (CPoint point) ; 

afx_msg void OnRButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnLButtonDblClk (UINT nFlags, CPoint point); 
// } }AFX_MSG 
DECLARE MESSAGE MAP () 



} 



// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

!defined{AFX CLOSEDLG H 11F28E44 B405 llDl 80E2 080009B9F339 INCLUDED ) 
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// 

/ / ConMan . cpp 
// 

// Connection Manager Source File 
// 

// Copyright Quarterview 1999 

// joseph j . kirn 

// 

#include <stdafx.h> 
#include <afxmt.h> 

#include "blocksock . h " 
#include "httpUtility . h" 
//#include "httpServerThread . h" 

#include "ResMan.h" 
#include "conman.h" 
#include "UC2Doc . h" 
#include "UC2Messages . h" 
#include "Parser -h" 
#include "MainFrm.h" 
#include " PSOtherInf o . h" 



#define SERVERMAXBUF 
#define MAXLINELENGTH 



5000 



100 



// #define USE_TRANSMITFILE // uncomment if you have Windows MT 

extern CResMan gResMan; 
extern CParser gParser; 
extern CConMan gConMan; 

/ /extern BOOL Parse {char* pStr, char** ppTokenl, char** ppToken2 ) 



// CEvent 
BOOL 



g_eventContinue ; 
g_Continue ; 



CBlockingSocket 
int volatile 
static est ring 
CString 

//volatile CString 

CString 

CString 

//static int 

#define MAXBUF 50000 



g_sListen; 
g_bListening; 

g_strDefault = "home. htm"; 

g_strIPClient ; 
g_strReq; 

g_myIpAddr ; 

g_sDasIP = "203.229.183.82" 
g_nPort ; 



//CString g_strIPClient ; 
CString g_strProxy = "ITGPROXY"; 
BOOL g_bUseProxy = FALSE ; 

/*CString g_strIPServer ; 

BOOL g_bListening; 

*/ 
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char htmlHdrErr[] = "HTTP/ 1.0 4 04 Object Not Found\r\n" 

"Server: Quarterview SOCK01\r\n" 
"Content-Type : text/html\r\n" 
"Accept -Ranges : bytes\r\n" 

"Content-Length: 66\r\n\r\n" // Winlnet wants 

correct length 

"<html><hl><body>QV/l . 0 404 Object Not 

Found</hl></body></html>\r\n" ; 

char htmlHdrFmt[] = "HTTP/1.0 200 OK\r\n" 

"Server: Quarterview SockServer\r\n" 

"Date: %s\r\n" 

"Content -Type : text /html\r\n" 
"Accept -Ranges : bytes\r\n" 
"Content -Length: %d\r\n" ; 
char htmlHdrEnd[] " < /bodyx /html >\r\n\r\n" ; 

static BOOL htmlParseHdr (char* pStr, char** ppTokenl, char** ppToken2 ) 
// really stupid parsing routine 

// (must find two tokens, each followed by a space) 

{ 

*ppTokenl = pStr; 

char* pch - strchr(pStr, ' •); 

if(pch) { 

*pch = ' \0 ' ; 

pch++ ; 

*ppToken2 = pch; 

pch = strchr(pch, ' ')/ 

if (pch) { 

*pch - ' \0 ' ; 

return TRUE; 

} 

} 

return FALSE; 

} 

static void htmlLogRequest (LPVOID pParam, char* pch, CSockAddr sa) 
{ // pParam holds the HWND for the destination window (in another thread) 

CString strGmt = CTime : : GetCurrentTime () . FormatGmt ( " %m/ %d/ %y %H:%M:%S 

GMT") ; 

char textl [1000] ; 

wsprintf (textl , "SERVER CONNECTION # %d: IP addr = %s, port = %d -- 
%s\r\n" , 

g_nConnection, sa . DottedDecimal ( ) , sa . Port () , (const char*) 

StrGmt) ; 

strcat (textl, pch) ; 

: :SendMessage ( (HWND) pParam, EM_SETSEL, (WPARAM) 65534, 65535); 
: iSendMessage ( (HWND) pParam, EM_REPLACESEL, (WPARAM) 0, (LPARAM) 
textl) ; 

) 



static CFile* htmlOpenFile (const char* pName) 

// if it's really a directory, open the default HTML file 
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CFileException e; 
CFile* pFile = new CFileO; 
if(*pName == '/') pName++; 
CString strName = pName ; 

if (pFile- >Open ( strName , CFile :: modeRead , £ce)) { 
return pFile; 

} 

if ( (e . m_cause == CFi leException : : accessDenied) | | 

(e-m_cause CFi leException :: badPath) ) { // directory 
int nLength; 

// add a / unless it's the "root" directory 
if ((nLength = strName . Get Length () ) > 1) { 
if (strName [nLength - 1] !=='/') { 
StrName += ' / ' ; 

} 

} 

StrName += g_s trDef ault ; 

if (pFile - >Open ( StrName , CFile :: modeRead , &:e) ) { 
return pFile; 

} 

} 

delete pFile; 
return NULL; 

} 



CConMan : : CConMan ( ) 

{ 

TRACEO ( "CConMan : : CConMan () \n" ) ; 
g_bListening = FALSE; 

m_SockInfo.nPortServer = (USHORT) 800; 

} 

CConMan : : -CConMan ( ) 

{ 

TRACEO ( "CConMan : : -CConMan ( ) \n" ) ; 

} 

// this is actually not a real http server. 

// it's a simplified version that runs on port 800. 

//we use it for client to client and client to DAS communication. 
// in the future i want this to be used to transfer html files 
// to our browser and for mini -browsers off of the "home", -jjk 
void CConMan :: StartHttpServer ( ) 
{ 

TRACE ( " \nCConMan : : StartHttpServer ( ) " ) ; 
try { 

CSockAddr saServer; 

if {m_str IPServer . IsEmpty 0 ) { // first or only IP 
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saServer = CSockAddr { INADDR_ANY , 

(USHORT) m_SockInfo.nPortServer) ; 

} 

else { // if our computer has multiple IP addresses... 

saServer = CSockAddr (m_str IPServer , 

(USHORT) m_SockInf o.nPortServer) ; 

} 

g_sListen . Create ( ) ; 

g_sListen . Bind ( saServer) ; 

g_sListen - Listen 0; // start listening 

g_bListening = TRUE; 
g_nConnection = 0; 

// g_strServerName = "das.quarterview.com"; 

g_strServerIP = "203.229.183.82"; // syc 0514 

// this should be code to register with the DAS and change status 
// to "active" for other users using home presence window. 

m_SockInfo.nCmd = CHK_VERSION; 



try { 

Af xBeginThread (CConMan : : DasCal iThread , 

(LPVOID) &m_SockInfo, THREAD PRIORITY NORMAL) ; 

} 

catch (CBlockingSocketExcept ion* e) { 
//Af xMessageBox (e) ; 
e- >Delete ( ) ; 

} 



CWinThread *lpThread = 

AfxBeginThread (CConMan : : HttpAnswerThread , 
(LPVOID) &:m_SockInf o) ; 
m_hCallAnswerThread = IpThread- >m_hThread ; 

} 

catch (CBlockingSocketException* e) { 
g_sListen . Cleanup ( ) ; 

TCHAR szCause [255] ; 
CString strFormatted ; 

e- >GetErrorMessage (szCause , 255) ; 
StrFormatted = _T ( "QttpServerError : "); 
StrFormatted += szCause; 

Af xMessageBox (strFormatted) ; 

// LogBlockingSocketException (GetSaf eHwnd 0 , "VIEW:", e) ; 

e->Delete ( ) ; 

} 
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} 

void CConMan : : StopHttpServer ( ) 

{ 

TRACE ( "CConMan : : StopHttpSejTver ( ) " ) ; 
try { 

if (g_bListening) { 

g_sListen . Close { ) ; 

} 

} 

catch (CBlockingSocketException* e) { 
// LogBlockingSocketException (GetSaf eHwnd ( ) , "VIEW:'\ e) ; 

Af xMessageBox ( "\nStopHttpServer Error") ; 
e- >Delete ( ) ; 

} 

} 



UINT CConMan: :DasCallThread (LPVOID pParam) 
{ 

TRACE ( "\nDasCallThread {) ") ; 

SOCKET_INFO* pSocklnfo = (SOCKET_INFO *) pParam; 

// sends a blind request, followed by a request for a specific URL 
CHttpBlockingSocket sClient; 



char* buffer = new char [MAXBUF] ; 
int nBytesReceived = 0; 

char respl [MAXLINELENGTH] ; 
//, resp2 [MAXLINELENGTH] ; 



char qry_req [ 3 
char reg__req[] 
char ver_req[} 

char upd_req[] 



= "QRY %s%s%s 

= "REG %s%s%s 

- "VER %s%S%S 

= "UPD %s%s%s 



QTTP/1 . 0\r\n" ; 
QTTP/1 . 0\r\n" ; 
QTTP/1 . 0\r\n" ; 

QTTP/1 . 0\r\n" ; 



char headers [] = 

"User-Agent : 



Mozilla/1.22 (Windows; U; 32bit)\r\n' 



"Accept : */*\r\n" 
// "Accept: image/gif \r\n" 

// "Accept: image/x-xbitmap\r\n" 

// "Accept: image/ jpeg\r\n" 

// following line tests server's ability to 
// "If -Modif ied-Since : Wed, 11 Sep 

"\r\n"; // need this 



not send the URL 

1996 20:23:04 GMT\r\n" 



CSockAddr saServer, saPeer, saTrace, saClient; 
try { 

sClient . Create ( ) ; 

if ( !g_strIPClient . IsEmpty 0 ) { 
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// won't work if network is assigning us our IP address 
// good only for intranets where client computer has 
several IP addresses 

saClient = CSockAddr (g_strIPClient ) ; 
sClient . Bind (saClient) ; 

} 

if ( g_bUse Proxy ) { 

saServer = CBlockingSocket : : GetHostByName {g_strProxy , 
(USHORT) pSockInf o- >nPortServer) ; 

} 

else { 

if (g_sDasIP - IsEmpty { ) ) { 
saServer = 

CBlockingSocket : : GetHostByName {g_strServerName , (USHORT) pSocklnfo- 
>nPortServer ) ; 

} 

else { 

saServer = CSockAddr (g_sDas IP, (USHORT) pSocklnfo- 

>nPortServer ) ; 

} 

} 

sClient . Connect ( saServer) ; 
sClient . GetSockAddr ( saTrace) ; 

g_myIpAddr = saTrace . DottedDecimal () 
TRACE ("SOCK CLIENT: GetSockAddr = %s, %d\n" , 
saTrace . DottedDecimal ( ) , saTrace . Port 0 ) ; 

/* if (g_bUse Proxy) { 

wsprintf (buffer, request, "http://" , (const char*) 
g_strServerName , g_strReq) ; 

} 

else { 

wsprintf (buff er , request, g_strReq) ; 

} 

CString sResp; 
CString sMsg; 

switch (pSockInf o- >nCmd) { 
case REG_ONLINE: 

TRACE ("XnDasCallThreadO - AUTH_ALIAS " ) ; 

sMsg. Format ( "%d"%d"%s"%s" " , pSockInf o- >nCmd , pSocklnfo- 
>nID, pSockInf o- >sAlias , pSockInf o- >sPass ) ; 

wsprintf (buff er, reg_req, sMsg) / 

{ 

int nTry=4; 



write online: 



sClient .Write (buff er, s tr len (buf f er ) , 10) ; 
TRACE("\n wrote out %s", buffer); 
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// sClient - Write (headers , strlen {headers ) , 10); 

// TRACE("\n wrote out %s", headers); 



MAXBUF , 8 ) 



nBytesReceived = sClient . ReadHttpHeaderLine (respl, 

TRACE("\nDAS RETURN 1 : %s", respl); 

if (nBytesReceived= = 0 &&: nTry>0) { 
nTry--; 

goto write__online ; 

} 

else if (nTry===0) { 

AfxMessageBox { "Unable to register with DAS. 
Other Users will not be able\n" 

"to detect your online presence."); 



Bailing out. ") ; 



TRACE ("\nCConMan: :DasCallThread -> No Response... 

sClient . Close () ; 
delete [] buffer; 

return NO_RESP; 

} 

gParser . CopyBuf f er ( (CHAR*) respl) ; 

gPar ser . GetValueRightToken ( sResp , ARG_TOKEN) ; 
gParser . GetValueRightToken ( sMsg , ARG_TOKEN) ; 

if (sResp == "RESP") { 

if (sMsg === "ONLINE_ACK") { 

TRACE ("\nCConMan : :DasCallThread -> OnlineACK 
sClient . Close ( ) ; 
delete [] buffer; 



return ONLINE_ACK; 

} 

else { 

TRACE ("\nCConMan: iDasCallThread -> NEG ACK") 
sClient . Close ( ) ; 
delete [] buffer; 



return NEG_ACK; 

} 

} 



TRACE ( "\nCConMan: :DasCallThread -> NO RESPONSE"); 
return NO_RESP; 

sClient . Close ( ) ; 
delete [] buffer; 
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break; 

case UPD_MYINFO: 

TRACE ("XnDasCallThreadO - AUTH_ALIAS " ) ; 

wsprintf (buf f er, upd_req, pSockInfo->str) ; 

sClient .Write (buffer, strlen (buf f er ) , 10) ; 
TRACE("\n wrote out %s", buffer); 

/* nBytesReceived = sClient . ReadHt tpHeaderLine {respl , MAXBUF, 

10) ; 

TRACE ( "\nDAS RE TURN 1 : %s", respl); 

if (sResp "RESP") { 

if (sMsg == "UPD_OK") { 

TRACE ( "\nCConMan: :DasCallThread -> UpdateMylnfo 

sClient . Close ( ) ; 
delete [] buffer; 

return UPD_OK; 

} 

else { 

TRACE { "\nCConMan: :DasCallThread -> UpdateMylnfo 

sClient . Close ( ) ; 
delete [] buffer; 

return UPD_NO; 

} 

} 

sClient . Close { ) ; 
delete [] buffer; 

return UPD_OK; 

break; 

case AUTH__ALIAS: 

TRACE ( "\nDasCallThread 0 - AUTH_ALIAS " ) ; 

// 1. send alias and password with alias_auth cmd 

// 2. if receive auth_ok return ok_pass . if not then return 

bad_pass 

sMsg. Format ( "%d^%s'^%s" " , pSockInf o - >nCmd , pSocklnfo- 
>sAlias, pSockInf o- >sPass ) ; 

wsprintf (buf fer, qry_req, sMsg) ; 

sClient . Write (buf fer, strlen (buf fer) , 10) ; 
TRACE("\n wrote out %s", buffer); 



NO" ) 
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sClient . Write (headers , strlen (headers ) , 10); 
TRACE("\n wrote out %s", headers) ; 



nBytesReceived = sClient . ReadHt tpHeaderLine (respl, MAXBUF, 

10) ; 

TRACE("\nDAS RETURNl : %s'\ respl); 



gParser . CopyBuf f er ( (CHAR* ) respl ) ; 

gParser .GetValueRightToken (sResp, ARG_TOKEN) ; 
gParser -GetValueRightToken (sMsg, ARG_TOKEN) ; 



// char* pTokenl; char* pToken2 ; 

// if (htmlParseHdr (respl, &pTokenl, 5cpToken2 ) ) { 

// if {! stricmp (pTokenl , "RESP")) { 

if (sResp === "RESP") { 

/ / do { // eat the remaining headers 

/ / sClient . ReadHttpHeaderLine {resp2 , 

MAXLINELENGTH, 10) ; 

// TRACE ("DAS RETURN 2 : %s", resp2 ) ; 

// } 

// while (strcmp (resp2 , "\r\n")); 

// if (! stricmp (pToken2 , "ALIASOK")) { 



if (sMsg == "ALIAS_OK") { 

TRACE ( "\nCConMan: :DasCallThread -> AliasOK"); 
sClient . Close ( ) ; 
delete [] buffer; 

return ALIAS__OK; 

if ( ! stricmp (pToken2 , "ALIASDENY" ) ) { 
if (sMsg "ALIAS_DENY" ) { 

TRACE ( "\nCConMan: iDasCallThread -> AliasDeny") 
sClient . Close ( ) ; 
delete [] buffer ; 

return AIjIAS_DENY; 

if (sMsg "AIjIAS_NO") { 

TRACE ( "\nCConMan : :DasCallThread -> AliasNEW" ) ; 
sClient . Close ( ) ; 
delete [] buffer; 

return ALIAS_NEW; 

{ 

TRACE ("\nCConMan: : DasCal IThread -> 
sClient . Close ( ) ; 



} 

/ / else 

else 



Al iasUnknown" ) ; 



} 

else 



else 
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delete [] buffer; 

return ALIAS_UNKNOWN ; // what is this? 

} 

// } 
} 

TRACE{"\n ERR- skipped htmlParseHdr . . . " ) ; 
sClient . Close ( ) ; 
delete [] buffers- 
return ALIAS_UNKNOWN; 
break; 
case NEW_ALIAS: 

TRACE ("XnDasCallThreadO - NrEW_ALIAS " ) ; 

sMsg. Format ( "%d^%s"%s"%s^ " , pSockInf o- >nCmd , pSocklnfo- 
>sAlias, pSockInf o- >sPass , pSockInf o- >sEmail ) ; 

wsprintf (buffer, qry_req, " '\ sMsg) ; 

sClient .Write (buffer, strlen (buf f er) , 10) ; 
TRACE("\n wrote out %s", buffer); 
sClient . Write (headers , strlen {headers ) , 10); 
TRACE("\n wrote out %s", headers); 

nBytesReceived = sClient . ReadHttpHeaderLine (respl , MAXBUF, 

10) ; 

TRACE("\nDAS RETURN 1 : %s", respl); 

gParser . CopyBuf f er ( (CHAR*) respl) ; 

gParser . GetValueRightToken (sResp , ARG_TOKEN) ; 
gParser .GetValueRightToken {sMsg, ARG_TOKEN) ; 

if (sResp == "RESP") { 

if (sMsg == "AIiIAS_APPROVE" ) { 

TRACE ("\nCConMan: :DasCallThread -> AliasOK"); 
sClient . Close ( ) ; 
delete [] buffer; 

return ALIAS_APPROVE ; 

if (sMsg == "ALIAS_TAKEN" ) { 
TRACE ( "\nCConMan :: DasCallThread -> AliasDeny") 
sClient , Close ( ) ; 
delete [] buffer; 

return ALIAS_TAKEN; 

{ 

TRACE ("\nCConMan: : DasCallThread -> 

sClient . Close ( ) ; 
delete [] buffer; 



} 

else 



} 

else 

Al iasUnknown" ) ; 
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return ALIAS_DENY; 

} 

} 

TRACE ("\n ERR- skipped htmlParseHdr , . . ") ; 

sClient .Close {) ; 
delete [] buffer; 
return ALIAS_UNKNOWN; 

break; 



case QRY_USERINFO: 

TRACE ( "\nDasCallThread {) - QRY_USERINFO " ) ; 

// 1. send alias and password with user__personal cmd 
// 2. if receive user ^personal info return ok_pass . if not 
then return bad_pass 

sMsg . Format (" %d" %s , pSockInf o- >nCind , pSockInf o- >sAlias ) ; 

wsprintf (buf f er, qry_req, sMsg) ; 

sClient .Write (buff er, strlen (buf f er ) , 10) ; 

TRACE("\n wrote out %s", buffer); 

sClient . Write (headers , strlen (headers ) , 10); 

TRACE("\n wrote out %s", headers); 

nBytesReceived = sClient . ReadHttpHeaderLine ( respl , MAXBUF, 

10) ; 

TRACE ("\nDAS RETURN 1 : %s", respl); 

gParser . CopyBuf f er ( (CHAR*) respl) ; 

gParser . GetValueRightToken (sResp, ARG_TOKEN) ; 
gParser -GetValueRightToken (sMsg, ARG_TOKEN) ; 

if (sResp == "RESP") { 

TRACE ("\nCConMan: :DasCallThread -> QRY_USERINFO OK") 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd () ; 
CUC2DOC* pDoc = (CUC2DOC*) pMF->GetActiveDocument ( ) ; 



CPSOtherXnfo psoi (pDoc, PS_OTHERINFO_PAGE, 

pSockInf o- >sAlias) ; 

psoi .m_0therlnf oPage .m_sAlias ^ pSockInf o- >sAlias ; 
psoi . SetMemberInf o ( ScsMsg) ; 
psoi , DoModal ( ) ; 

sClient - Close ( ) ; 
delete [] buffer; 

return INFO_OK; 
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} 

TRACE ("\n ERR- skipped htmlParseHdr . - . ") ; 
sClient . Close ( ) ; 
delete [] buffers- 
return INFO_NO; 
break ; 



case CHK_VERSION: 

TRACE { "\nDasCallThread () - CHK_VERSION" ) / 

sMsg . Format { "%d^ " , pSockInf o- >nCnid) ; 
wsprintf (buffer, ver_req, sMsg) ; 

sClient -Write {buff er, strlen (buf f er ) , 10); 
TRACE("\n wrote out %s", buffer); 

// call some version checker function here... 
// or set NEED UPDATE variable to true... 

sClient . Close ( ) ; 
delete [] buffer; 
return 0 ; 

break ; 

case FIND_ALIAS: 
break; 

case FIND_BY_FIELD : 
break; 



default : 



} 



sClient . Write (buff er , strlen (buf f er) , 10); 
sClient . Write (headers , strlen (headers ) , 10); 
// read all the server's response headers 
do { 

nBytesReceived ^ sClient . ReadHttpHeaderLine (buf fer , MAXBUF, 

TRACE ( "SOCK CLIENT: %s", buffer); 
} while (strcmp (buffer, "\r\n") ) ; 
// read the server's file 

nBytesReceived = sClient . ReadHttpResponse (buf fer, MAXBUF, 10); 
TRACEC'SOCK CLIENT: bytes received = %d\n" , nBytesReceived); 
if (nBytesReceived ==0) { 

Af xMessageBox ( "No response received. Bad URL?"); 
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} 

else { 

buf f er [nBytesReceived] = '\0'; 

: :MessageBox ( : : GetTopWindow { : : GetDesktopWindow {) ) , buf f e 
"WINSOCK CLIENT", MB_OK) ; 
} 

// could do another request on sClient by calling Close, then 

Create, etc. 

} 

catch {CBlockingSocketException* e) { 

LogBlockingSocketException (pParam, "CLIENT:", e) ; 
e- >Delete ( ) ; 

} 

sClient . Close ( ) ; 
delete [] buffer; 
return 0 ; 

} 

UINT CConMan : iHttpCallThread (LPVOID pParam) 
{ 

TRACE ( "\nCConMan: : Ht tpCallThread ( ) ") ; 
SOCKET_INFO* pSocklnfo = (SOCKET_INFO *) pParam; 

// sends a blind request, followed by a request for a specific URL 
CHttpBlockingSocket sClient ; 
char* buffer = new char [MAXBUF] ; 
int nBytesReceived = 0; 

// We're doing a blind GET, but we must provide server name if we're 
using a proxy. 

//A blind GET is supposed to retrieve the server's default HTML 
document . 

// Some servers don't have a default document but return a document 
name in the Location header. 

char request [] = "GET %s%s%s HTTP/ 1 . 0\r\n" ; 
char headers [] = 

"User-Agent: Mozilla/l.22 (Windows; U; 32bit)\r\n" 
"Accept : */*\r\n" 
"Accept: image/gif \r\n" 
"Accept: image /x-xbitmap\r\n" 
"Accept: image/ jpeg\r\n" 
// following line tests server's ability to not send the URL 
// "If -Modif ied-Since : Wed, 11 Sep 1996 20:23:04 GMT\r\n" 

"\r\n"; // need this 
CSockAddr saServer, saPeer, saTest, saClient; 
try { 

sClient . Create ( ) ; 

if ( !g_strIPClient . IsEmpty () ) { 

// won't work if network is assigning us our IP address 

// good only for intranets where client computer has 
several IP addresses 

saClient = CSockAddr (g_strIPClient) ; 

sClient . Bind (saClient) ; 

} 
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if (g_bUse Proxy) { 

saServer = CBlockingSocket : : GetHostByName (g_st rProxy , 800) 

} 

else { 

if (g_strServerIP - IsEmpty ( ) ) { 
saServer = 

CBlockingSocket : : GetHostByName (g_strServerName , pSockInf o- >nPortServer ) ; 

} 

else { 

saServer = CSockAddr (g_strServer IP , pSocklnfo- 

>nPortServer) ; 

} 

} 

sClient . Connect (saServer) ; 
sClient .GetSockAddr (saTest) ; 

TRACE ("SOCK CLIENT: GetSockAddr = %s, %d\n'\ 
saTest . DottedDecimal ( ) , saTest . Port () ) ; 

if (g_bUseProxy ) { 

wsprintf (buf f er , request, "http://" , (const char*) 
g_strServerName , g_strReq) ; 

} 

else { 

wsprintf (buf f er , request, g_strReq) ; 

} 

sClient - Write (buff er, strlen (buf f er ) , 10); 
sClient . Write (headers , strlen (headers ) , 10); 

// read all the server's response headers 
do { 

nBytesReceived = sClient . ReadHttpHeaderLine (buff er , MAXBUF 

10) ; 

TRACEC'SOCK CLIENT: %s", buffer); 
} while (strcmp (buff er, "\r\n")); 
// read the server's file 

nBytesReceived = sClient . ReadHttpResponse {buff er , MAXBUF, 10); 
TRACEC'SOCK CLIENT: bytes received = %d\n" , nBytesReceived); 

if (nBytesReceived ==0) { 

Af xMessageBox ( "No response received. Bad URL?"); 

} 

else { 

// buff er [nBytesReceived] = '\0'; 

// : : MessageBox ( : : GetTopWindow ( : : GetDesktopWindow () ) , buffer, 

"WINSOCK CLIENT", MB_OK) ; 

CFile cf; 

TRACE ("SOCK CLIENT: Attempting to write file: %s", 
pSockInf o- >strFileName) ; 

/* CString path ( *gResMan . GetResPath ( ) ) ; 

path += "WneighborW" ; 

TRACE("\n file saving to path: %s", path); 
: : SetCurrentDirectory (path) ; 
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// 
// 



: : SetCurrentDirectory (pSockInf o- >strFilePath) ; 
TRACE ("\n %s", *gResMan . GetResPath ( ) ) ; 



if (cf . Open {pSockInf o- >strFileName , CFile : : modeCreate 
CFile : rmodeWrite )) { 

try { 

cf . SeekToBegin { ) ; 
// cf -Write (buff er, strlen (buf f er ) ) ; 

cf . Write (buff er, nBytesReceived) ; 
TRACE("\n File written"); 

} 

catch (CFileException *e) { 

Af xMessageBox ( "File Write Error") ; 
e- >Delete ( ) ; 

} 

// : : SetCurrentDirectory (*gResMan. GetResPath 0 ) ; 



} 

// could do another request on sClient by calling Close, ther 

Create, etc. 

} 

catch (CBlockingSocketException* e) { 
// LogBlockingSocketExcept ion (pParam, "CLIENT:", e) ; 

Af XMessageBox { "HttpCallThread Exception") ; 
e - >Delete ( ) ; 

} 

g__Continue = TRUE; 

sClient . Close ( ) ; 
delete [] buffer; 
return 0; 



UINT CConMan : :HttpAnswerThread (LPVOID pParam) 
{ 

TRACED ("\nCConMan: : HttpAnswerThread\n" ) ; 

CSockAddr saClient; 

CHttpBlockingSocket sConnect ; 

char* buffer = new char [SERVERMAXBUF] ; 

char message [100] , headers [500] , request 1 [MAXLINELENGTH] , 
request2 [MAXLINELENGTH] ; 

char hdrErr[] = "HTTP/1.0 404 Object Not Found\r\n" 

"Server: QuarterView ERROR SOCK0l\r\n" 
" Content- Type : text/html\r\n" 
"Accept -Ranges : bytes\r\n" 

"Content -Length : 66\r\n\r\n" // Winlnet wants 

correct length 
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"<html><hl><body>HTTP/l . 0 404 Object Not 
Found< /hi >< /body >< /html >\r\n" ; 

char hdrFmt[] = "HTTP/l.O 200 OK\r\n" 

"Server: Quarterview Http Socket\r\n" 
"Date: %s\r\n" 

"Content-Type : text/html\r\n" 
" Accept- Range s : bytes\r\n" 
"Content -Length : %d\r\n" ; 

char htmll [] = "Welcome to QuarterVieW s Online Chat Service Version 
1 . 0\r\n" 

"Message of the Day\r\n" 
"\r\n" 

"Please enjoy our service\r\n" 
"\r\n" ; 

char html2 [] = " -joseph j . kim (CEO, 

Quarterview. com) \r\n\r\n" ; 



est ring strGmtNow = CTime : : GetCurrentTime ( ) . FormatGmt ( " %a , %d %b %y 
%H: %M: %S GMT" ) ; 

int nBytesSent = 0; 

CFile* pFile = NULL; 

try { 

if ( 1 g_sListen . Accept ( sConnect , saClient)) { 

// view or application closed the listing socket 
g_bLjistening = FALSE ; 
delete [] buffer; 
return 0; 

} 

g_nConnection++ ; 

CString strHt tpSrvrPath = *gResMan . GetResPath ( ) ; 
// strHttpSrvrPath +^ "html\\"; 

: : SetCurrentDirectory (StrHttpSrvrPath) ; 

Af xBeginThread (CConMan : : HttpAnswerThread, pParam, 
THREAD_PRIORITY_NORMAL) ; 

// read request from client 

sConnect .ReadHttpHeaderLine (requestl, MAXLINELENGTH , 10) ; 
// LogRequest (pParam, requestl, saClient) ; 

char* pTokenl ; char* pToken2 ; 

if (htmlParseHdr (requestl , &pTokenl , &pToken2 ) ) { 
if ( istricmp (pTokenl, "GET")) { 

do { // eat the remaining headers 

sConnect . ReadHttpHeaderLine (request 2 , 

MAXLINELENGTH, 10) ; 

TRACE { "SERVER : %s", request2); 

} 

while (strcmp (request2 , " \r\n" ) ) 
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if ( ! stricmp (pToken2 , "/custom")) { // special 

request 

// send a "custom" HTML page 

wsprintf (message , "Hi! you are connection #%d 

on IP %s, port %d Time: %s", 

g_nConnection, 
saClient . Dot tedDecimal ( ) , saClient . Port ( ) , strGmtNow) ; 

wsprintf (headers , hdrFmt , (const char*) 

StrGmtNow, strlen(htmll) 

+ strlen (message) + 

strlen (html2) ) ; 

// no If-Modified 

strcat (headers , "\r\n"); // blank line 
sConnect . Write (headers , strlen (headers ) , 10); 
sConnect .Write (htmll , strlen (htmll) , 10); 
sConnect . Write (message , strlen (message) , 10); 
sConnect . Write (html2 , strlen (html2 ) , 10); 

} 

else if (strchr (pToken2 , '?')) { // CGI request 

// Netscape doesn't pass function name in a GET 
TRACE ("SERVER: CGI request detected %s\n". 



pToken2) ; 



} 



// could load and run the ISAPI DLL here 



default WWW directory 



pToken2) ; 



else { // must be a file 

// assume this program has already set the 

if((pFile ^ htmlOpenFile (pToken2) ) != NULL) { 

TRACE ("\n Getting File: ' %s ' " , 



CFileStatus fileStatus; 
pFile->GetStatus (f ileStatus) ; 
CString strGmtMod = 
f ileStatus. m_mtime. FormatGmt ("%a, %d %b %Y %H:%iyi:%S GMT"); 

char hdrModif ied [50 ] ; 

wsprintf (hdrModif ied, "Las t -Modified : 
%s\r\n\r\n", (const char*) strGmtMod); 

DWORD dwLength = pFi le - >GetLength ( ) ; 

// Date: , Content -Length : 

wsprintf (headers , hdrFmt , (const char*) 



StrGmtNow, dwLength) ; 

strlen (headers) , 10); 
%d\n" , nBytesSent) ; 

only if the If -Modif ied-Since date 

#ifdef USE TRANSMITFILE 
pFile->m_hFile, dwLength, 
TF_DISCONNECT) ) { 



strcat (headers , hdrModif ied) ; 
nBytesSent = sConnect . Write (headers , 

TRACE ( "SERVER: header characters sent = 

// would be a good idea to send the file 

// were less than the file's m_mtime 
nBytesSent = 0; 

if ( : :TransmitFile (sConnect, (HANDLE) 
0 , NULL , NULL , 
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} 



nBytesSent = (int) dwLength; 



#else 



avoid big memory alloc overhead 



DWORD dwBytesRead = 0; 
UINT uBytesToRead; 

// send file in small chunks (5K) to 

while (dwBytesRead < dwLength) { 

UBytesToRead - min { SERVERMAXBUF , 



dwLength - dwBytesRead) ; 
UBytesToRead) == uBytesToRead) ; 
sConnect . Write (buff er, uBytesToRead, 10) 



} 



VERIFY (pFile->Read (buffer, 
nBytesSent += 

dwBytesRead += uBytesToRead; 



#endif 

successf ully\n" ) ; 



TRACE ( "SERVER : full file sent 



} 



else { 

nBytesSent = sConnect . Write (hdrErr , 
strlen(hdrErr) , 10); // 404 Object Not Found 



} 



} 



} 

else if ( ! stricmp (pTokenl , "POST")) { 

do { // eat the remaining headers thru blank line 
sConnect , ReadHttpHeaderLine (request 2 , 



MAXLINELENGTH, 10) ; 



10) 



// 



TRACE ("SERVER: POST %s", request2 ) ; 

} 

while (strcmp (request2 , "\r\n" ) ) ; 

// read the data line sent by the client 

sConnect . ReadHttpHeaderLine (request2 , MAXLINELENGTH, 

TRACE ( "SERVER: POST PARAMETERS - %s\n", request2); 

LogRequest (pParam, request2, saClient) ; 



// launch ISAPI DLL here? 

nBytesSent = sConnect . Write (hdrErr , strlen (hdrErr) , 
10) ; // 4 04 error for now 



} 

else { 



} 



TRACE ("SERVER: %s (not a GET or POST) \n" , pTokenl) ; 
// don't know how to eat the headers 



} 

else { 

TRACE ("SERVER: bad request\n"); 

} 

sConnect . Close 0 ; // destructor can't close it 

} 

catch (CBlockingSocketExcept ion* pe) { 
// LogBlockingSocketException (pParam, "SERVER:", pe) ; 

Af xMessageBox ( "httpanswerthread exception") ; 



A- 104 



ConManxpp 



pe- >Delete ( ) ; 

} 

TRACE ( "SERVER : file characters sent = %d\n'\ nBytesSent) 

delete [] buffer; 

if (pFile) delete pFile; 

// : rSetCurrentDirectory (*gResMan,GetResPath() ) ; 

return 0; 



} 
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// 

// ConMan.h 
// 

/ / Connection Manager 

// 

// Copyright Quarterview 1999 

// joseph j . kim 

// 



#ifndef CONMAN_H 

#define CONMAN H 



//extern CEvent g_eventContinue ; 
extern g_Continue; 

typedef struct { 

int nCmd ; 

volatile USHORT nPortServer; 

DWORD dwLastError; 

volatile BOOL bListening; 

CString strFileName; //file name to save file as 

CString strFilePath; // where to save the file. 

int nID; 
CString sAlias; 
CString sPass; 
CString sEmail; 

// CString sVersion; 
CString str; 



/* BOOL bCalling; 

BOOL bConnected; 
BOOL bAbort; 

char szOutgoingMessage [1000] ; 
char szHost [100] ; */ 

} SOCKET_INFO; 

typedef struct { 

CString ip_addr; 

CString nick; 
} INVITE_INFO; 



class CConMan : public CHttpBlockingSocket 

{ 

public : 

CConMan ( ) ; 
-CConMan ( ) ; 
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/ / methods 

void StartHttpServer ( ) ; 
void StopHttpServer ( ) ; 

static UINT HttpAnswerThread (LPVOID) ; 
static UINT HttpCal iThread (LPVOID) ; 
static UINT DasCallThread (LPVOID) ; 

/* BOOL ParseHdr (char* pStr, char** ppTokenl, char** ppToken2 ) 
void LogRequest (LPVOID pParam, char* pch, CSockAddr sa) ; 
CFile* OpenFile (const char* pName) ; 



// attributes 



SOCKET__INF0 
INVITE_INFO 
HANDLE 



m_SockInf o; 
m_lnvitelnf o ; 

m_hCall AnswerThread ; 



CString 
CString 



m_str IPServer ; 
m strDefault; 



// operations 



}; 



#endif // CONMAN H 
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DWORD dwDU = 1500; 
CUC2View* pView = GetUC2View ( ) ; 
CString strText; 

LoadStage ( "OOOldemo" ) ; 

m__pStage->CreateActor (0, CPoint ( 5 , 1 1 ) , TRUE, AS_STAND | DA_FR, 
CActor* pActor[10]; 

pActor[0] = m_pStage- >GetThisActor { ) ; 
ASSERT (pActor [0] ) ; 

pActor[l] = m__pStage->CreateActor (10 , CPoint { 3 18 , 254 ) , FALSE, 
DA_FR) ; 

Wait(dwDU); if (!IsDemo{)) break; 

pActor->Act (CMD_HELLO) ; 
strText . Loads t ring (IDS_DEMO_l) ; 
pActor [1] ->Chat (strText) ; 
DisplayText (strText) ; 

wait (dwDU*2) ; if ( ! IsDemo ( ) ) break; 

pActor [0] ->SetState (AS_STAND ] DA_BR) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait (dwDU*2) ; if (! IsDemo () ) break; 

StrText . LoadString ( IDS_DEMO_2 ) ; 
SendText (strText) ; 

Wait (dwDU*4) ; if (! IsDemo () ) break; 

pActor [2] = m_j)Stage->CreateActor (15, CPoint ( 195 , 12 7 ) , FALSE, 
DA_FL) ; 

Wait(dwDU); if (! IsDemo ()) break; 

StrText . LoadString ( IDS_DEMO_3 ) ; 
pActor [2] ->Chat (strText) ; 
DisplayText (strText ) ; 

Wait (dwDU*3) ; if (' IsDemo ()) break; 

pActor [2] ->Act (CMD_SMILE) ; 

SendMoveCommand (CMD_MOVEF) ; 

pActor [3] = m_pStage->CreateActor (7 , CPoint (4 11 , 109 ) , FALSE, 
AS_STAlsrD I DA_FR) ; 

Wait(dwDU); if (! IsDemo ()) break; 

StrText = "Hi, Everybody! This is cool ! " ; 
pActor [3] ->Chat (strText) ; 
DisplayText (strText ) ; 

Wait (dwDU*2) ; if {' IsDemo () ) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if (! IsDemo ()) break; 

pActor [0] ->SetDA(DA_FL, FALSE) ; 
StrText .LoadString (IDS_DEMO_4) ; 
SendText (strText) ; 

Wait (dwDU*2) ; if (! IsDemo ()) break; 

SendCommand (CMD_MORPH) ; 

Wait(dwDU); if (! IsDemo ()) break; 

pActor [0] ->SetDA(DA_FR, FALSE) ; 
Wait(dwDU); if (! IsDemo ()) break; 
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// 

TRUE) ; 

AS_STAND I 
// 



AS_STAND 1 
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S endMove Command {CMD_MOVEF) ; 

strText . LoadString ( IDS_DEMO_5 ) ; 
SendText (strText) ; 
SendMoveCommand (CMD_MOVEF) ; 

StrText . LoadString (IDS_DEMO_6) ; 
pActor [1] ->Chat (strText) ; 
DisplayText (strText) ; 

OnBtnHistory ( ) ; 

Wait (dwDU*B) ; if ( ! IsDemo () ) break; 

// pView->ScrollToPosition (CPoint (80, 0) ) ; 

Wait (dwDU*2) ; if (! IsDemo ()) break; 

OnBtnHistory ( ) ; 

Wait(dwDU); if (! IsDemo () ) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if (! IsDemo ()) break; 

//////////////////////////////////////////////////// 
LoadStage ( "00 02demo") ; 

m__pStage- >CreateActor (0 , CPoint (5, 11), TRUE, m_wSavedState , 

TRUE) ; 

pActor[0] = m_pStage->GetThisActor ( ) ; 

Wait (dwDU*4) ; if (! IsDemo ()) break; 

SendCommand (CMD_STAND) ; 
StrText .LoadString (IDS_DEMO__7) ; 
SendText (strText) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if {! IsDemo ()) break; 

pActor[l] = m_pStage->CreateActor (17, CPoint ( 225 , 113 ) , FALSE, 
AS_STAND I DA_FL) ; 

Wait (dwDU) ; if { ! IsDemo ( ) ) break; 

SendMoveCommand (CMD_MOVEF) ; 

StrText .LoadString (IDS_DEMO_8) ; 
pActor [1] ->Chat (strText) ; 
DisplayText (strText) ; 

Wait (dwDU*4) ; if (! IsDemo ()) break; 

pActor [0] ->SetState (AS_STAND | DA_FL) ; 
SendMoveCommand (CMD_MOVEF) ; 

pActor [1] ->Act {CMD_MORPH) ; 

Wait (dwDU*3) ; if (IIsDemoO) break; 

SendMoveCommand (CMD_MOVEF) ; 
pActor [1] ->Act (CMD_STAND) ; 

pActor [2] = m_pStage->CreateActor (9, CPoint ( 3 55 , 334 ) , FALSE); 
StrText . LoadString ( IDS_DEMO_9) ; 
pActor [2] ->Chat (strText) ; 
DisplayText (strText) ; 
SendMoveCommand (CMD_MOVEF) ; 
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Wait (dwDU*3) ; if (lIsDemoO) break; 

pActor[0] - >Set State (AS_STAND | DA_FR) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if ( ! IsDemo ( ) ) break; 



pActor[33 = m_pStage->CreateActor (11, CPoint (12 8 , 2 54 ) , FALSE, 
AS_STAND I DA_FL) ; 

Wait(dwDU); if (! IsDemo ()) break; 

strText . LoadString ( IDS_DEMO_10 ) ; 
pActor [3] ->Chat (strText) ; 
DisplayText (strText) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait {dwDU*3) ; if (! IsDemo ()) break; 



SendMoveCommand (CMD_MOVEF) ; 
pActor [3] ->Act (CMD_CRY) ; 

Wait (dwDU) ; if (! IsDemo () ) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if (! IsDemo () ) break; 

pActor [3 3 ->Act (CMD_MORPH) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait{dwDU); if (! IsDemo ()) break; 

StrText .LoadString { IDS_DEMO_l 1 ) ; 
pActor [3] - >Chat (strText) ; 

Wait(dwDU); if (! IsDemo ()) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait (dwDU) ; if (! IsDemo ()) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait{dwDU); if (! IsDemo ()) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if (! IsDemo ()) break; 

//////////////////////////////////////////////////// 
LoadStage ( "0003demo") ; 

m_pStage->CreateActor (0, CPoint(5,ll) , TRUE, m_wSavedState , 

TRUE) ; 

pActor[0] = m__pStage- >GetThisActor ( ) ; 

Wait (dwDU*4) ; if (1 IsDemo ()) break; 

SendMoveCommand (CMD__MOVEF) ; 

Wait(dwDU); if (! IsDemo () ) break; 

pActor[l] = m_pStage->CreateActor (12, CPoint (253 , 289) , FALSE) 

Wait(dwDU); if (I IsDemo ()) break; 

StrText . LoadString (IDS_DEMO_l 2) ; 

pActor [ 1 ] - >Chat ( strText ) ; 

DisplayText (strText) ; 

SendMoveCommand (CMD_MOVEF) ; 

Wait (dwDU*8) ; if (! IsDemo () ) break; 

StrText -LoadString ( IDS_DEMO_13 ) ; 
SendText (strText) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait(dwDU); if (! IsDemo ()) break; 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 
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CString strURL; 

strURL . LoadString { IDS_UNICHAT_HOMEURL) ; 
pMF->ShellBrowseURL (strURL) ; 

Wait (dwDU*8) ; if ( ! IsDemo { ) ) break; 

pMF- >SetActiveWindow { ) ; 

S endMove Command (CMD_MOVEF) ; 

Wait (dwDU) ; if ( ! IsDemo ( ) ) break; 

S endMove Command (CMD_MOVEF) ; 

Wait(dwDU); if {! IsDemo ()) break; 

1 1 / 1 1 / 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 // 1 1 // m 1 1 1 1 1 1 1 1 1 1 11 1 1 

LoadStage ( "OOOlctrm") ; 

m_jpStage->CreateActor (0 , CPoint{5,ll), TRUE, m_wSavedState , 

TRUE) ; 

pActor[0] = m_pStage- >GetThisActor ( ) ; 

Wait (dwDU*4) ; if (! IsDemo {) ) break; 

pActor [0] - >Set State (AS_STAND | DA_BR) ; 
S endMove Command (CMD_MOVEF) ; 

Wait (dwDU) ; if { ! IsDemo ( ) ) break; 

S e ndMove Comma nd (CMD_MOVEF) ; 

Wait(dwDU); if (! IsDemo () ) break; 

SendMoveCommand (CMD_MOVEF) ; 

Wait{dwDU); if (! IsDemo ()) break; 

SendMoveCommand {CMD_MOVEF) ; 

Wait (dwDU) ; if (! IsDemo ()) break; 

strText . LoadString ( IDS_DEMO_14 ) ; 
SendText (strText ) ; 
SendMoveCommand (CMD_MOVEF) ; 

Wait (dwDU) ; if (! IsDemo ()) break; 

ClearHistory ( ) ; 
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// DlgAni.cpp : implementation file 
// 

#include "stdafx.h" 

#include "UC2 .h" 

#include "DlgAni.h" 

#include "ResMan.h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/DIBPal . h" 

#include "MainFrm.h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



extern CResMan gResMan; 



I / 1 1 1 1 1 1 1/ 1 1/ / 1 1 1 / 1 1 1 1 1 n / 1 1 n 1 1 / 1 1 1 1 1 1 1 1 1 n 1 11 1 1 1 1 1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 

I / CDlgAni dialog 

CDlgAni : : CDlgAni {LPCTSTR strBack, LPCTSTR strAni, const int nPages, CWnd* 
pParent /*=NULL*/) 

: CDialog {CDlgAni :: IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CDlgAni) 

// NOTE: the ClassWizard will add member initialization here 
/ / } } AFX_DATA__INIT 
m_nNumPages = nPages ; 
m_nCurPage = 0 ; 

CString strPath ( *gResMan . GetResPath ( ) ) ; 
CString strFile ( strPath + strBack) ; 

m_pPal = NULL; // initialize in case of failure 

m_pDIBBack = NULL; 
m_pPSAni = NULL ; 

if (strBack) 

{ 

m_pDIBBack = new CDIB; 

if ( !m_pDIBBack->Load (strFile) ) 

{ 

delete m_pDIBBack; 
m__pDIBBack = NULL; 
return; 

} 

} 



if (strAni) 

{ 

StrFile = strPath + strAni; 
m_pPSAni = new CPhasedSpri te ; 
if ( !m_pPSAni ->Load (strFile) ) 

{ 

delete m_pPSAni ; 
m_pPSAni = NULL; 
return; 
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} 

m_pPSAni - >SetNumCells {nPages , 1) ; 

if ( !m_pDIBBack) 

{ 

m_pDIBBack = m_pPSAni - >GetDIB ( ) ; 

} 

} 

CMainFrame* pMF ^ { CMainFrame* ) Af xGetMainWnd ( ) ; 

ASSERT (pMF) ; 

if (pMF->Is2 5 6Palette () ) 

{ // Use mainframe's palette to avoid color flickering 

m_pPal = pMF- >GetPalette ( ) ; 
mjDIBBack- >MapColorsToPalette {m_pPal) ; 
m_bPaletteCreated = FALSE; 

} 

else // Use original palette in the file for TRUE color system 
{ // Create the palette from the DIB. 

CDIBPal* pDIBPal; 

pDIBPal = new CDIBPal ; 

ASSERT (pDIBPal) ; 

if ( I pDIBPal - >Create (m_pDIBBack) ) 

{ 

AfxMessageBox ( "Failed to create palette from DIB file"); 
delete pDIBPal; 

} 

m__pPal = pDIBPal; // type casting to parent class 
m_bPaletteCreated = TRUE; 

} 

m_nCurPage = 0 ; 

m_uiTimer = 0 ; 
m_dwLas tTick 
m_dwStartTick 

m_bAutoDestroy 
m__dwDurationTick 
m_uiElapse 
m__ptLTAni 
m_ptLef tTop 

} 

CDlgAni : : -CDlgAni ( ) 
{ 

if (m__pDIBBack) 

{ 

if {m_pPSAni) 

{ 

if (m_pDIBBack != m_pPSAni - >GetDIB ( ) ) 
delete m__pDIBBack; 

} 

else 

{ 

delete m_pDIBBack; 

} 

} 

if (m_pPSAni) 



- OL; 
= OL; 

- FALSE; 

- 9000L; // 9 sec 

= 1000; 

= CPoint (0 , 0) ; 

CPoint (200 , 200) ; 
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delete m__pPSAni; 



if (m_pPal && m_bPaletteCreated) 
delete m_pPal; 



void CDlgAni : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CDlgAni) 

// NOTE: the ClassWizard will add DDX and DDV calls here 
// } } AFX_DATA_MAP 



BEGIM__MESSAGE_MAP (CDlgAni, CDialog) 

// { {AFX_MSG_MAP (CDlgAni) 

ON_WM_ERASEBKGND ( ) 

ON_WM_PAINT ( ) 

ON_WM_NCHITTEST ( ) 

ON_WM_PALETTECHANGED ( ) 

ON_WM_QUERYNEWPALETTE ( ) 

ON_WM_TIMER () 

ON_WM_SIZE 0 

ON__WM_DESTROY { ) 

ON_WM_LBUTTONDBLCLK ( ) 

// } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CDlgAni message handlers 

BOOL CDlgAni :: OnlnitDialog { ) 

{ 

CDialog: : OnlnitDialog ( ) ; 

if ( !m_pDIBBack) 

return FALSE ; 
CDialog: : Onini tDialog ( ) ; 

m_uiTimer = SetTimer (4004 , m_uiElapse, NULL); // CWnd : : 
m_dwStartTick ^ : : GetTickCount ( ) ; 

ClientToScreen (&m_ptLef tTop) ; // CWnd:: 

SetWindowPos (NULL, m_j)t Left Top . x , m_j)tLef tTop . y , 0, 0, 

SWP_NOSIZE I SWP_NOZORDER | SWP__NO ACTIVATE) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

BOOL CDlgAni :: OnEraseBkgnd (CDC* pDC) 

{ 

CDialog: : OnEraseBkgnd (pDC) ; 

// Make sure we have what we need to do a paint. 
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if ( ImjpDIBBack) 
{ 

TRACE ( "CDlgAni : No DIB!\n"); 
return FALSE; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (m_pPal) 
{ 

pPalOld = pDC->SelectPalette {m_pPal, FALSE); // 
bForceBackground = FALSE 

// dc . Real izePalette ( ) ; // we realize in response t 

WM_QUERYNEWPALETTE 

} 

m_pDIBBack- >Draw (pDC , 0, 0); 

// Select old palette if we altered it. 
if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 

return TRUE; 

} 

void CDlgAni :: OnPaint ( ) 

{ 

CPaintDC dc (this) ; // device context for painting 

/ / Make sure we have what we need to do a paint . 
if ( !m_pDIBBack) 

{ 

TRACE ( "CDlgAni : No DIB!\n"); 
return; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (m__pPal) 
{ 

pPalOld = dc.SelectPalette {m_pPal, FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette ( ) ; // we realize in response t 

WM_QUERYNEWPALETTE 

} 

if (m_pPSAni) 

{ 

m_pPSAni - >SetCell (m_nCurPage) ; 
m_pPSAni - >Draw ( &dc , m_j)tLTAni ) ; 

} 

// Select old palette if we altered it. 
if (pPalOld) 

dc . SelectPalette (pPalOld, FALSE) ; 

} 

UINT CDlgAni : rOnNcHitTest (CPoint point) 
{ 

UINT nHitTest = CDialog :: OnNcHitTest (point ) ; 
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if { (nHitTest == HTCLIENT) && ( : : GetAsyncKeyStat e (MK_LBUTTON) < 0)) 

nHitTest = HTCAPTION; 
return nHitTest; 

} 

void CDlgAni : : OnPaletteChanged (CWnd* pFocusWnd) 

{ 

CDialog: : OnPaletteChanged (pFocusWnd) ; 

if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

BOOL CDlgAni : : OnQueryNewPalette () 

{ 

if {m_jpPal) 
{ 

CDC* pdc = GetDC () ; 

CPalette* pPalOld = pdc - >SelectPalette (m_pPal , FALSE); // 

foreground 

UINT u = pdc- >RealizePalette ( ) ; 
if (pPalOld) 

pdc- >SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
// if (u) 

// { // Some colors changed so we need to do a repaint. 

Invalidate () ; // Repaint the lot. 
return TRUE; // Say we did something. 

// } 
} 

return FALSE; // Say we did nothing. 

} 

void CDlgAni : -.OnTimer (UINT nIDEvent) 

{ 

if (m_bAutoDestroy ( ( : :GetTickCount () - m_dwStartTick) > 

m_dwDurat ionTick) ) 

EndDialog (TRUE) ; 
if (m__nNumPages > 1) 
ShowNextPage ( ) ; 
// CDialog :: OnTimer (nIDEvent ) ; 

} 

void CDlgAni :: ShowNextPage () 

{ 

m_nCurPage++ ; 

if (m_nCurPage >= m_nNumPages) 

m_nCurPage = 0 ; 
CRect rcAni ; 

m_j)PSAni->GetRect (rcAni) ; 
InvalidateRect (&rcAni , FALSE); 

} 

void CDlgAni : lOnSize (UINT nType , int cx, int cy) 

{ 

CDialog :: OnSize (nType , cx, cy) ; 
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if (m_pDIBBack) 

{ 

SetWindowPos (NULL, 0, 0, m_pDIBBack- >GetWidth { ) , m_pDIBBack- 
>GetHeight ( ) , 

SWP_NOMOVE I SWP_NOZORDER | SWP_NOACTIVATE ) 

} 

} 

void CDlgAni : : OnDestroy ( ) 

{ 

CDialog: : OnDestroy () ; 
if (m_uiTimer) 

{ 

KillTimer (m_uiTimer ) ; 
// m_uiTimer = 0; 

} 

} 

void CDlgAni : lOnLButtonDblClk (UINT nFlags, CPoint point) 

{ 

#ifdef „MALL 

EndDialog (TRUE) ; 
// CDialog: :OnOK() ; 
#else 

CDialog: : OnLButtonDblClk (nFlags , point) ; 

#endif 
} 
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#if [defined ( AFX_DLGANI_H D8 9C3A4 6_98 8E_11D2_8 9CC_0080C7EADFBB INCLUDED^) 

#de f ine AFX_DLGANI_H D8 9C3 A4 6_9 8 8E_1 1D2_8 9CC_0 0 8 0C7EADFBB INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 10 00 
// DlgAni.h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 

// CDlgAni dialog 

class CDIB; 

class CPhasedSprite ; 

class CDlgAni : public CDialog 

{ 

// Construction 
public : 

CDlgAni (LPCTSTR strBack, LPCTSTR strAni , const int nPages=l, CWnd* 
pParent=MULL) ; // standard constructor 
-CDlgAni () ; 

void SetAutoDestroy (const BOOL bAutoDestroy ) { m_bAutoDestroy = 
bAutoDestroy ; } 

void SetTimeAttr (const UINT uiElapse, const DWORD dwDT) 

m_uiElapse = uiElapse; 

m__dwDurat ionTick = dwDT; 

void SetLT (const int nx, const int ny) 

m_ptLTAni = CPoint (mc, ny) ; 
void SetRelPosition (const int nX, const int nY) 

m_ptLeftTop = CPoint (nX, nY) ; 



// Dialog Data 

/ / { { AFX_DATA ( CDlgAni ) 

enum { IDD = IDD_DLG_ANI } ; 

// NOTE: the ClassWizard will add data members here 
// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ { AFX_V I RTUAL( CDlgAni) 
protected : 

virtual void DoDataExchange (CDataExchange * pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

void ShowNextPage ( ) ; 

CDIB* m_pDIBBack; // Background frame image 
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CPhasedSprite* 

CPalette* 

BOOLi 



m_pPSAni; // 
m__pPal ; 

m__bPalet teCreated ; 




Animated Background 
// main palette 



int m_nCurPage; 
int m_nNumPages ; 

UINT m_uiTimer; 

UINT m_uiElapse; 

DWORD m_dwLastTick; 

DWORD m_dwStartTick; 

DWORD m_dwDurationTick; 

BOOL m_bAutoDestroy ; 
CPoint m_ptLTAni ; 

CPoint m_ptLef tTop; 



/ / ticking period 



// Generated message map functions 
// { {AFX_MSG (CDlgAni) 

virtual BOOL Onini tDialog ( ) ; 

afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 

afx__msg void OnPaintO; 

afx_msg UINT OnNcHitTest { CPoint point) ; 

afx_msg void OnPalet teChanged (CWnd* pFocusWnd) ; 

afx_msg BOOL OnQueryNewPalette { ) ; 

afx_msg void OnTimer (UINT nIDEvent); 

afx_msg void OnSize (UINT nType, int cx, int cy) ; 

afx_msg void OnDestroy() ; 

afx_msg void OnLBut tonDblClk (UINT nFlags, CPoint point) 

//} }AFX_MSG 

DECLARE MESSAGE MAP ( ) 



}; 



// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediate 
before the previous line. 

#endif // 

!def ined (AFX_DLGANI_H D8 9C3A46_988E_11D2 89CC 0080C7EADFBB INCLUDED 
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// DlgPDA.cpp : implementation file 
// 

#include "stdafx. h" 
#include "UC2.h" 
#include "DlgPDA.h" 
tinclude "ResMan.h" 
#include "UC2Ani/DIB . h" 
#include "UC2Ani/DIBPal .h" 
#include "MainFrm.h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



extern CResMan gResMan; 



LPCTSTR BMP_PDA_BK 
LPCTSTR BMP_PDA_BTN_CLOSE 
LPCTSTR BMP_PDA_BTN_BUY 
LPCTSTR BMP_PDA_BTN_MORE 
LPCTSTR BMP_PDA_BTN_AUTO 
LPCTSTR BMP_PDA_BTN_LEFT 
LPCTSTR BMP PDA BTN RIGHT 



= "MPDABk.bmp", 
"MPBtClos -bmp" ; 
"MPBtBuy.bmp" ; 
••MPBtMore - bmp " ^ 
"MPBtAuto.bmp " , 
"MPBtLeft.bmp" , 
"MPBtRght . bmp" , 



const CPoint 



PTLT_ANI_PDA[2] {CPoint(14, 8), CPoint (2, 151)}; 



1 1 1 1 1 1 1 1 11 1 1 1 1 If I n 1 11 1 1 1 1 1 1 1/ 1 1 1 1 1 1 1 1 1 1 n 1 1 1 11 1 1 1 1 / 1 1 1 1 1 1 11 / 1 1 / 1 1 1 1 1 11 1 1 11 1 1 

II CDlgPDA dialog 



CDlgPDA: rCDlgPDA (LPCTSTR strUpper, LPCTSTR strLower, const int nPages, CWnd* 
pParent /*=NULL*/) 

: CDialog (CDlgPDA: : IDD , pParent) 

{ 

//{ {AFX__DATA_INIT (CDlgPDA) 

// NOTE: the ClassWizard will add member initialization here 
// } } AFX_DATA_INIT 
m_astrAniFile [0] = strUpper; 
m_astrAniFile [ 1 ] = strLower; 
m_nPages = nPages; 

CString strPath ( *gResMan . GetResPath ( ) ) ; 
CString strFile ( strPath + BMP__PDA_BK) ; 
m_j)DIBBack = new CDIB; 

m^Pal = NULL; // initialize in case of failure 

if ( Im_j)DIBBack- >Load (strFile) ) 

{ 

delete m__pDIBBack; 
m_pDIBBack = NULL; 

return; 

} 

CMainFrame* pMF =^ (CMainFrame*) AfxGetMainWnd { ) ; 
ASSERT (pMF) ; 

if (pMF->Xs256Palette ( ) ) 
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{ // Use mainframe's palette to avoid color flickering 

m__pPal = pMF->GetPalette () ; 
m_pDIBBack->MapColorsToPalette (m__pPal) ; 
m_bPaletteCreated = FALSE; 

} 

else // Use original palette in the file for TRUE color system 
{ // Create the palette from the DIB. 

CDIBPal* pDIBPal; 

pDIBPal = new CDIBPal; 

ASSERT (pDIBPal) ; 

if ( ! pDIBPal ->Create (m__pDIBBack) ) 
{ 

AfxMessageBox ( "Failed to create palette from DIB file" 
delete pDIBPal; 

} 

m_pPal = pDIBPal; // type casting to parent class 
m_bPaletteCreated = TRUE; 



strFile = strPath + BMP_PDA_BTN_CLOSE ; 
m_btnClose . Load (strFile, 2); 
m_btnClose . SetPalette (m_pPal ) ; 

StrFile = strPath + BMP_PDA_BTN_BUY ; 
m_btnBuy .Load (strFile, 2); 
m_btnBuy . SetPalette {m_pPal) ; 

StrFile = strPath + BMP_PDA_BTN_MORE ; 
m_btnMore . Load ( StrFile , 2); 
m_btnMore . SetPalette (mj>Pal ) ; 

StrFile = strPath + BMP_PDA_BTN_AUTO ; 
m_btnAuto . Load ( StrFile , 2); 
m_btnAuto . SetPalette (m_pPal ) ; 

StrFile = strPath + BMP_PDA_BTN_LEFT ; 
m_btnLeft . Load (strFile , 2); 
m_btnLef t . SetPalette (m_pPal ) ; 

StrFile = StrPath + BMP_PDA_BTN_RIGHT; 
m_btnRight . Load (strFile , 2); 
m_btnRight . SetPalette (m_pPal) ; 



for (int i=0; i < 2; i++) // Upper and Lower 

{ 

StrFile = StrPath + m_astrAniFile [i] ; 
m_apDIBAni [i] = new CPhasedSpri te ; 
if ( !m_apDIBAni [i] - >Load ( strFi le) ) 

{ 

delete m_apDIBAni [i] ; 
m_apDXBAni [i] = NULL; 
// return; // skip 

} 

else 

{ 

m_apDIBAni [i] - >SetNumCells ( 1 , m_nPages); // Row, Col 
m_apDIBAni [i] ->SetCeIl (0) ; 
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m_apDIBAni [i] - >GetRect (m_arcAni [i] ) ; 
m_arcAni [i] . Of f setRect (PTLT_ANI_PDA [ i ] ) ; 

} 

} 

m_nCurPage = 0 ; 

m_uiTimer = 0; 
m_dwLa s t T i c k 
m_dwS tart Tick 
m_b Au t oD e s t r oy 
m_bAutoPages 
m_u i I n t e rva 1 
m_dwDurationTick 

} 

CDlgPDA: :-CDlgPDA() 
{ 

if (m_pDIBBack) 

delete m_pDIBBack; 
if (m_pPal ElEl m_bPaletteCreated) 

delete m_pPal ; 
for (int i=0; i < 2; i++) 
{ 

if (m_apDIBAni [i] ) 

delete m_apDIBAni [i] ; 

} 

} 

void CDlgPDA :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CDlgPDA) 

// NOTE: the ClassWizard will add DDX and DDV calls here 
// } }AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CDlgPDA, CDialog) 
// { {AFX_MSG_MAP (CDlgPDA) 



ON_ 


_BN^ 


CLICKED ( IDC_PDA_ 


BTN_ 


AUTO , 


OnPdaBtnAuto) 


ON_ 


_bn] 


CLICKED ( IDC_PDA_ 


BTN_ 


]buy. 


OnPdaBtnBuy) 


ON_ 


_BN_ 


_CLICKi;D ( IDC_PDA_ 


BTN_ 


LEFT, 


OnPdaBtnLef t) 


ON_ 


_BN_ 


CLICKED ( IDC_PDA_ 


BTN_ 


MORE , 


OnPdaB tnMore ) 


ON_ 


_BN_ 


_CLICKED ( IDC_PDA_ 


BTN_ 


_RIGHT, OnPdaBtnRight 


ON_ 




]SIZE 0 








on] 


_wm] 


]erasebkgnd ( ) 








on] 


_WM_ 


[nchittest 0 








ON_ 


_WM_ 


]PALETTECPIANGED ( ) 








ON_ 


_WM_ 


_querynewpalette ( 


) 






ON_ 


_WM_ 


_MOVE ( ) 








ON_ 


_WM_ 


]paint ( ) 








ON_ 


_WM_ 


_TIMER ( ) 








ON_ 


WM 


destroy ( ) 









// } }afx_msg_map 
end_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CDlgPDA message handlers 



= OL; 
= OL; 

- FALSE; 

- FALSE; 
= 1500; 

= 9000L; // 9 sec 
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BOOL CDlgPDA: :OnInitDialog () 
{ 

if ( !m_j3DIBBack) 

return FALSE; 
CDialog: : Onini tDialog ( ) ; 

m_btnClose - SubclassDlgltem ( IDOK, this) ; 
m_btnBuy .SubclassDlgItem(IDC_PDA_BTN_BUY, this) ; 
m_btnMore . SubclassDlgltem ( IDC_PDA_BTN_MORE, this) ; 
m_btnAuto. SubclassDlgltem (IDC_PDA_BTN_AUTO, this) ; 
m_btnLef t . SubclassDlgltem ( IDC_PDA_BTN_LEFT, this) ; 
m_btnRight . SubclassDlgltem (IDC_PDA_BTN_RIGHT, this) ; 

CPoint ptLT(132, 245); 
m_btnClose . MoveResize (ptLT) ; 
ptLT.x = 66; 

m_btnBuy . MoveResize (ptLT) ; 
ptLT.x = 0; 

m_btnMore . MoveResize (ptLT) ; 
ptLT = CPoint (63, 120); 
m_btnAuto . MoveResize (ptLT) ; 
ptLT.x = 0; 

m_btnLeft . MoveResize (ptLT) ; 
ptLT.x = 135; 

m__btnRight . MoveResize (ptLT) ; 

m_uiTimer = SetTimer ( 4 0 03 , m_ui Interval , NULL); 
m_dwStartTick = : : GetTickCount ( ) ; 

ptLT = CPoint (435, 104); 
ClientToScreen (SiptLT) ; // CWnd:: 
SetWindowPos (NULL, ptLT.x, ptLT.y, 0, 0, 

SWP_NOSIZE I SWP_NOZORDER | SWP_NOACTIVATE ) ; 
return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void CDlgPDA: : PlayCameraSound ( ) 

{ 

CString strPath ( *gResMan . GetResPath () ) ; 
CString strFile ( strPath + "Camera.wav"); 
: : sndPlaySound (strFile, SND_ASYNC) ; 

} 

void CDlgPDA: :OnPdaBtnAuto ( ) 
{ 

m_bAutoPages = 1 m_bAu to Pages ; 

} 

void CDlgPDA: : OnPdaBtnBuy ( ) 

{ 
} 

void CDlgPDA: :OnPdaBtnIieft ( ) 
{ 

PlayCameraSound { ) ; 
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m_nCurPage - - ; 

if (m_nCurPage < 0 ) 

m__nCurPage = m_nPages - 1 ; 
for (int i = 0; i < 2; i + 

{ 

InvalidateRect (m_arcAni [i] , FALSE) ; 

} 

} 

void CDlgPDA: lOnPdaBtnMore ( ) 

{ 
} 

voi d CDlgPDA : : OnPdaBtnRight ( ) 

{ 

PlayCameraSound ( ) ; 
m_nCurPage++ ; 

if (m_nCurPage >= m_nPages) 

m_nCurPage = 0 ; 
for {int i=0; i < 2; i++) 

{ 

InvalidateRect (m^arcAni [i] , FALSE) ; 

} 

} 

void CDlgPDA: :OnSize (UINT nType , int cx, int cy) 

{ . 

CDialog : : OnSize (nType , cx, cy) ; 
if {Tn_pDIBBack) 

{ 

SetWindowPos (NULL, 0, 0, m_pDIBBack- >GetWidth ( ) , m_pDIBBack- 
>GetHeight () , 

SWP_NOMOVE I SWP_NOZORDER | SWP_NOACTIVATE) 

} 

} 

BOOL CDlgPDA: :OnEraseBkgnd (CDC* pDC) 
{ 

CDialog: : OnEraseBkgnd (pDC) ; 

/ / Make sure we have what we need to do a paint . 

if ( !m_pDIBBack) 

{ 

TRACE ( "CLoginDig : No DIB!\n"); 
return FALSE; 

} 

// If we have a palette, select and realize it, 
CPalette* pPalOld - MULL; 
if (m__pPal) 

{ 

pPalOld = pDC->SelectPalette (m_pPal, FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette ( ) ; // we realize in response to 

WM_QUERYNEWPALETTE 

} 
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m_pDIBBack- >Draw (pDC , 0, 0); 

// Select old palette if we altered it. 

if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 

return TRUE; 

} 

void CDlgPDA: : OnPaint { ) 

{ 

CPaintDC dc(this); // device context for painting 

// Make sure we have what we need to do a paint. 

if ( !m_pDIBBack) // || ! m_pDIBOval ) 

{ 

TRACE { "CLoginDlg: No DIB!\n"); 
return; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld - NULL; 
if {m_pPal) 
{ 

pPalOld = dc . SelectPalette (m__pPal , FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette 0 ; // we realize in response to 

WM_QUERYNEWPALETTE 

} 

for (int i=0; i < 2; i++) 

{ 

if (m_apDIBAni [i] ) 

{ 

m_apDIBAni [i] ->SetCell (m_nCurPage) ; 
m_apDIBAni [ i ] - >Draw { &:dc , PTLT_ANI_PDA [ i ] ) ; 

} 

} 

// Select old palette if we altered it. 
if (pPalOld) 

dc . SelectPalette {pPalOld, FALSE) ; 

} 

UINT CDlgPDA: lOnNcHitTest (CPoint point) 
{ 

UINT nHitTest = CDialog :: OnNcHitTest (point ) ; 

if {(nHitTest ^= HTCLIENT) ( : : GetAsyncKeyState (MK_LBUTTON) < 0)) 

nHitTest = HTCAPTION; 
return nHitTest ; 

} 

void CDlgPDA: rOnPaletteChanged (CWnd* pFocusWnd) 

{ 

CDialog: : OnPaletteChanged (pFocusWnd) ; 

if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 
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BOOL CDlgPDA: : OnQueryNewPalet te ( ) 

{ 

if (m_j)Pal) 
{ 

CDC* pdc = GetDC ( ) ; 

CPalette* pPalOld = pdc- >SelectPalet te (m_pPal , FALSE); 

foreground 

UINT u = pdc->Reali2ePalette ( ) ; 
if (pPalOld) 

pdc->SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
// if (u) 

// { // Some colors changed so we need to do a repaint. 

Invalidate {) ; // Repaint the lot . 
return TRUE; // Say we did something. 

// } 
} 

return FALSE; // Say we did nothing. 

} 

void CDlgPDA :: OnMove ( int x, int y) 

{ 

CDialog :: OnMove (x , y) ; 

} 

void CDlgPDA: : OnTimer (UINT nIDEvent) 

{ 

if (m_bAutoDestroy && ( ( : : GetTickCount ( ) - m_dwS tart Tick) > 
m_dwDurationTick) ) 

EndDialog (TRUE) ; 
if (m_bAutoPages ) 

OnPdaBtnRight ( ) ; 
// CDialog: : OnTimer (nIDEvent ) ; 

} 

void CDlgPDA :: OnDestroy ( ) 
{ 

CDialog: : OnDestroy () ; 
if (m_uiTimer) 

{ 

KillTimer (m_uiTimer) ; 
// m_uiTimer - 0; 

} 

} 
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#if ! defined (AFX_DLGPDA_H A78B1261_47F3_11D2_BCFD_0080C7EADFBB INCLUDED_) 

#de fine AFX_DLGPDA_H A7 8B 1 2 6 1_4 7 F3_l 1D2_BCFD_0 0 8 0 C7EADFBB INCLUDED_ 

#if _MSC_VER > 10 0 0 
#pragma once 

#endif // _MSC_VER > 100 0 
// DlgPDA.h : header file 
// 

#include "UC2Ani/PSButton . h" 

///////////////////////////////////////////////////////////////////////////// 

// CDlgPDA dialog 

class CDIB; 

class CPhasedSprite ; 

class CDlgPDA : public CDialog 

{ 

// Construction 
public : 

CDlgPDA (LPCTSTR strUpper, LPCTSTR strLower, const int nPages, CWnd* 
pParent=NULL) ; // standard constructor 
-CDlgPDA 0 ; 

void SetMode (const BOOL bAutoDestroy , const BOOL bAutoPages) 

{ 

m_bAutoDestroy = bAutoDestroy; 
m_bAuto Pages = bAutoPages ; 

} 

void SetPage (const int nPage) { m_nCurPage = nPage; } 

void SetDurat ion (const UINT uiint, const DWORD dwD) 

{ m_ui Interval = uiint; m_dwDurat ionTick = dwD; } 

// Dialog Data 

/ / { { AFX_DATA ( CDlgPDA) 

enum { IDD = IDD_DLG_PDA } ; 

// NOTE: the ClassWizard will add data members here 
// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CDlgPDA) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

void PlayCameraSound ( ) ; 



CDIB* 

CPhasedSprite* 

CPalette* 

BOOL 



m__pDIBBack; // Background frame image 

m_apDIBAni [2 ] ; // Ani Upper, Lower 

m_pPal; // main palette 

m_bPaletteCreated; 



CPSButton 
CPSButton 



m_btnClose ; 
m_btnBuy ; 
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CPSButton 
CPSButton 
CPSButton 
CPSButton 
CRect 



m_btnMore ; 
m_btnAuto; 
m_btnLef t ; 
m_btnRight ; 
m arcAni [2] 



mt 

UINT 

DWORD 

DWORD 

DWORD 

UINT 



m_nCurPage ; 
m_uiTimer ; 
m_dwLastTick ; 
m_dwS tart Tick ; 
m_dwDurationTick; 
m ui Interval; 



// 



}; 



BOOL 
BOOL 

CString 

CPoint 

int 



m_b Au toDestroy; 
m_bAutoPages ; 



m_astrAniFile [2] 
m_aptLT [2] ; 
m_n Pages ; 



// Generated message map functions 
/ / { { AFX_MSG ( CDlgPDA) 
virtual BOOL OnlnitDialog { ) ; 
afx_msg void OnPdaBtnAuto ( ) ; 
afx_msg void OnPdaBtnBuy { ) ; 
afx_msg void OnPdaBtnLef t ( ) ; 
afx_msg void OnPdaBtnMore ( ) ; 
afx__msg void OnPdaBtnRight ( ) ; 

afx_msg void OnSize (UINT nType , int cx, int cy) ; 

afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 

afx_msg UINT OnNcHitTest (CPoint point); 

afx_msg void OnPaletteChanged ( CWnd* pFocusWnd) ; 

afx_msg BOOL OnQueryNewPalette ( ) ; 

afx_msg void OnMove(int x, int y) ; 

afx_msg void OnPaint () ; 

afx_msg void OnTimer (UINT nIDEvent) ; 

afx_msg void OnDestroyO; 

//} }AFX_MSG 

DECLARE MESSAGE MAP ( ) 



// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 



#endif // 

! de f ined { AFX_DLGPDA_H A7 8B12 6 1_4 7 F3_l 1D2_BCFD_0 0 8 0C7 EADFBB INCLUDED_) 
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#f:lelist= 
{ 

u2res000 .rit=0 , 4614 , 1998 , 4 , 1 , 10, 22 ; // 0: do not extract 
OOOOcsin. sit=0 ,1811, 1998 , 3 , 31, 14 , 41 ; 
000 Ictrm. sit = 0 , 2 649, 19 98, 4,1, 11, 10; 
OOOldemo , sit = 0, 24 54 , 1998 , 3 , 26 , 14 , 59 ; 
0002ctrm . sit=0 , 1955, 1998,4, 1, 11, 10; 
00 02demo. s it = 0, 1851, 1998, 3, 26, 14, 59; 
00 03ctrm.sit=0,22 56,1998,4, 1,11, 11; 
0 0 03demo. sit^O , 2 04 6 , 1 998 , 3 , 6 , 15 , 0 ; 
0004ctrm. sit = 0 , 2 075 , 1998, 4 , 1, 11, 12 ; 
OOOBctrm. sit = 0, 2 3 68, 1998,4, 1, 11, 13; 
OOlOcsin. sit =0, 17 81, 1998,4 , 1,8,31; 
0 02 0csin. sit=0, 1882 , 1998, 3 , 23 , 15 , 5 ; 
lOOOcsin. sit-0, 1909, 1998 , 3 , 24 , 20 , 24 ; 
10 IOCS in . sit=0 , 1802 , 1998, 3 , 24 , 15, 33 ; 
102 0csin. sit=0, 1531, 19 98, 3, 24, 16, 40; 
2 000csin. sit = 0, 1997, 19 98 , 3 , 24 , 21 , 7 ; 
2 010csin . sit=0 , 2 03 8 , 1998 , 3 , 31 , 13 , 3 ; 

2 02 0csin. sit=0 ,2383, 1998, 3, 24, 21, 16; 

3 0 00csin. sit-0, 2289, 19 98, 3, 25, 15, 44; 
3 010csin- sit=0 ,1800, 19 98, 3, 26, 15, 26; 

3 02 0csin . sit = 0 ,1980, 1998, 3 , 26 , 12 , 50; 
4000csin . sit=0 ,22 90, 1998, 3, 26, 22, 55; 

4 010csin. sit = 0, 1918, 1998, 3, 27, 20, 25; 
4 02 0csin . sit=0 ,20 87, 1998, 3, 30, 16, 44; 

cgOO . uds=l , 149701 , 1998 , 3 , 7 , 17 , 36 ; // 1: extract 

} 
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// 

// CEditHistory 
// 

// (C) Programmed by Kim, , Dec 9, 19 96 

// SDS Media Lab 

// Information Technology Institue 

// unichat 

// 

#include "stdafx.h" 
#include "UC2 .h" 
#include " Edi tHistory . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CEditHistory 

CEditHistory: : CEditHistory ( ) 

{ 

} 

CEditHistory: : -CEditHistory ( ) 

{ 

} 



BEGIN_MESSAGE_MAP (CEditHistory, CEdit) //CRichEdi tCt rl ) 

//{ {AFX_MSG_MAP (CEditHistory) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// } }afx_msg_map 
end_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CEditHistory message handlers 

HWND CEditHistory: :GetNotepad() 
{ 

HWND hwndFind = :: FindWindow ( "Notepad " , NULL); // "Tortoise's 

Experiment " 

CTime time = CTime : : GetCurrentTime ( ) ; 

CString strFile (time . Format (_T ( "UC%y%m%d . txt " ) ) ) ; 

if ( ! hwndFind) 

{ 

STARTUPINFO si; 
PROCESS_INFORMATION pi ; 

: : ZeroMemory ( &si , sizeof(si)); 
si.cb = sizeof(si); 

CString strCmd = _T ("WRITE ") + strFile; 

BOOL bRes = : rCreateProcess ("C:\\WINDOWS\\NOTEPAD.EXE", 
strCmd.GetBuf fer (128) , NULL, NULL, 

FALSE, NULL, NULL, NULL, &si, &pi) ; 
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// 
} 



if (IbRes) 

return NULL; 
: : CloseHandle (pi . hThread) ; 
: : Wait For Input Idle (pi . hProcess , 100 00) ; 
: : CloseHandle (pi . hProcess ) ; 
int nRep=0; 

while ( IhwndFind && (nRep++ < 100)) 
{ 

: :Sleep (1000) ; 
TRACE ( " 2 " ) ; 

hwndPind = :: FindWindow ("Notepad" , NULL); // 
Tortoise's Experiment" 

} 

} 

: : SendMessage (hwndFind, WM_SETTEXT, 0, (LPARAM) (LPCSTR) strFi le ) ; 
return hwndFind; 



// 1. Find a running Notepad (or initiate a new Notepad) application. 
// 2. Set the contents in the notepad (Edit control) with some texts, 
void CEditHistory : : SendTextToNotepad ( ) 

{ 

CString strText; 
GetWindowText (strText) ; 
int len = strText . GetLength () ; 
TRACEl ("CEditHistory: : SendTextToNotepad 
if (len 0) 
return; 
LPCSTR szText = strText; 
HWND hwndFind 
HWND hwndChild 
HWND hwnd 
UINT msg 

WPARAM wParam 
LPARAM IParam 
LRESULT res 
IParam) ; 

TRACE (": : SendMes sage ( Ox% Ix , msg 



length : %d\n" , len) ; 



= GetNotepadO ; 

= : iGetWindow (hwndFind, GW_CHILD) ; 
= hwndChild; 

= WM_SETTEXT; 
= 0; 

= (LPARAM) szText; 

= :: SendMes sage (hwnd , msg, wParam, 



wParam, IParam) ; returned %lx\n 



} 



hwnd, msg, wParam, IParam, res) 



void CEditHistory: :Experiment2 () 

{ 



char 


szBuf [2048] ; 




HWND 


hwndFind = 


GetNotepadO ; 


HWND 


hwndChild 


: :GetWindow (hwndFind, 


HWND 


hwnd = 


hwndChild; 


UINT 


msg 


= WM_GETTEXT; 



WPARAM wParam = sizeof (szBuf ) ; 

LPARAM IParam = (LPARAM) szBuf ; 

LRESULT res - :: SendMes sage (hwnd , msg, wParam, 

IParam) ; 

TRACE (": :SendMessage (Ox%lx, msg, wParam, IParam); returned %lx\n 

hwnd, msg, wParam, IParam, res) ; 

CString str = (char* ) IParam; 
CRect rc ; 
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GetClientRect {&rc) ; 
CClientDC dc(this); 

dc . DrawText ( str , Sere, DT_LEFT | DT_TABSTOP) 

} 

*/ 
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// 

// CEditHistory 
// 

// (C) Programmed by Kim, 

// unichat Media Lab 

// Information Technology Institue 

// unichat 

// 

///////////////////////////////////////////////////////////////////////////// 
// CEditHistory window 

#ifndef EDITHISTORY_H 

#define EDITHISTORY_H 

// Subclassing CEdit has the problem to halt the system for a while 
// when the input data are sth. as 



class CEditHistory : public CEdit // CRichEditCtrl 
{ 

// Construction 
public : 

CEditHistory () ; 

// Attributes 
public : 

// Operations 
public : 

HWND GetNotepad { ) ; 

void SendTextToNotepad ( ) ; 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAIi (CEditHistory) 
// } }AFX_VIRTUAL 

// Implementation 
public : 

virtual -CEditHistory ( } ; 

// Generated message map functions 
protected : 

// { { AFX_MSG (CEditHistory) 

// NOTE - the ClassWizard will add and remove member functions 

here , 

//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

#endif 
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// EditSend.cpp : implementation file 
// 

# include " stdaf x . h" 

#include "UC2 .h" 

#include "EditSend . h" 

#include "MainFrm.h" 

#include "UC2Doc . h" 

#include "UC2Messages . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

const COLORREF crBKCOLOR = PALETTERGB ( 255 , 2 5 5 , 2 55 ) ; 

1 1 1 1 / / 1 1 1 1 1 1 1 / 1/ 1 1 1 1 1 1 1 1 / / 1 / / 1 1 11 / / / / 1 1 1 1 1 1 1 1 1 // / / 1 li / 1 / 11 1 1 1 1 11 1 1 / / 1 1 1 1 / / 1 1 / 
I / CEditSend 

CEditSend: : CEditSend () 
{ 

// m_pEditBkBrush = new CBrush ( crBKCOLOR) ; // 255,255,255)); 

} 

CEditSend : : -CEditSend ( ) 

{ 

} 

BEGIN_MESSAGE_MAP (CEditSend, CEdit) 

// { {AFX_MSG_MAP (CEditSend) 

ON_WM_CHAR ( ) 

0N_WM_DESTROY C ) 

// } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CEditSend message handlers 

void CEditSend: :OnChar (UINT nChar, UINT nRepCnt , UINT nFlags) 
switch (nChar) 

{ 

case VK_ESCAPE: 
{ 

CMainFrame* pMF = {CMainFrame* ) Af xGetMainWnd ( ) ; 
CUC2DOC* pDoc = (CUC2Doc*)pMF->GetActiveDocument () ; 
ASSERT_VALID (pDoc) ; 
if (pDoc->IsDemo ( ) ) 

pDoc->SetUC2Mode (UC2MODE_OFFLINE) ; 

} 

break; 

// case VK_BACK: 

// break; 

case VK RETURN: 
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(nRepCnt == 1) 

// Get current string 
CString str ; 

int cl = GetCurrentLine { ) ; // current line (where 

int len = GetLine(cl, str . GetBuf f er (255 ) , 255); 
str .GetBuf f erSetLength (len) ; 
str . ReleaseBuf f er 0 ; 
if (str . IsEmpty ( ) ) 
return; 

ParseCommand (str ) ; 

// Append new line char 
len = GetWindowTextLength ( ) ; 

SetSelden, len); // starting position, ending 

position 

if (cl GetLastLine 0 ) 

ReplaceSel (__T { "\r\n" ) ) ; // insert newline 

} 

break; 

} 

CEdit : : OnChar (nChar , nRepCnt , nFlags) ; 

} 

void CEditSend : :OnDestroy ( ) 

{ 

CEdit: :OnDestroy() ; 
// delete Tn_pEdi tBkBrush ; 

} 

void CEditSend :: ParseCommand (LPCSTR szText) 
{ 

#ifdef _KOREAN 

static char* szMove [] = 

"Au", "EA", "AA", "^i" 

tatic char* szEmotion[] = 

"^6", "E-", "AI", "ii", "'q", "AY", "i§" 

/ English 

tatic char* szMove [] - 

"go", "back", "left", "right" 
tatic char* s2Emotion[] = 

"smile", "mad", "hello", "cry", "scratch", "pick", "special", 

#endif 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 



if 
{ 



the caret is) 
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CUC2DOC* pDoc ^ (CUC2Doc*)pMF->GetActiveDocument 0 ; 

ASSERT_VAl.ID(pDoc) ; 

int len = Istrlen (szText ) ; 

if {(len > 2) 6t& (s2Text[0] == '/')) 
{ 

for {int i=0; i < {sizeof (szMove) /sizeof { szMove [0] ) ) ; i++) 



{ 



szMove [i] [ 1] ) 



if {(szText[l] == szMove [i] [0] ) && (szText [2] 



break ; 
break; 



switch (i) 

{ 

case 0 : 
case 1 : 

case 2 : 
case 3 : 



pDoc- >SendMoveCommand {CMD_MOVEF + i) 
pDoc- >SendCommand {CMD_TURNL + i - 2) 



return; 



} 

for {i=0; i < { sizeof ( szEmotion) /sizeof ( szEmotion [0] )) ; i++) 

{ 



if { {szText [1] == szEmotion [i] [0] ) && {szText [2] 



szEmotion [i] [1] ) ) 



pDoc->SendCommand (CMD_SMILE + i) ; 
return; 



} 



} 

/ / No commands 
pDoc->SendText (szText) ; 



HBRUSH CEditSend: :OnCtlColor {CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
{ 

switch {nCtlColor) 

{ 

case CTLCOLOR_EDIT: 
case CTLCOLOR^MSGBOX : 

pDC->SetTextColor (PALETTERGB (0, 0 , 0) ) ; // Yellow 

pDC->SetBkColor {crBKCOLOR) ; 

return (HBRUSH) {m_pEditBkBrush- >GetSaf eHandle ( ) ) ; 
default : 

return CEdit : : OnCt iColor (pDC , pWnd, nCtlColor); 

} 
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#if ! defined (AFX_EDITSEND_H E4B02724_B4CD_11D1_80E2_080009B9F33 9 INCLUDED^) 

#def ine AFX_EDITSEND_H E4B02 7 24_B4CD_11D1_8 0E2_0 80 0 0 9B9F3 3 9 TNCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// EditSend.h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// CEditSend window 

class CEditSend : public CEdit 

{ 

// Construction 
public : 

CEditSend 0 ; 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAli (CEditSend) 
// } }AFX_VIRTUAL 

// Implementation 
protected : 

int GetCurrentLine { ) const { return LineFromChar (Linelndex ( - 

1) ) ; } // index from 0 

int GetLastLine ( ) const { return (GetLineCount { ) - 

1); } 

void ParseCommand (LPCSTR szText) ; 
// CBrush* m_pEditBkBrush; 

public : 

virtual -CEditSend () ; 

// Generated message map functions 
protected : 

// { {AFX_MSG (CEditSend) 

afx_msg void OnChar (UINT nChar, UINT nRepCnt, UINT nFlags) ; 
af x_msg void OnDestroy ( ) ; 
//} }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 
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ttendif // 

! defined (AFX EDITSEND H E4B02724 B4CD llDl 80E2 080009B9F339 INCLUDED 



ill 

01 

m 

hi 
ill 
a 
oi 
a 
a 
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// FlatToolBar.cpp 

// (c) 19 97, Roger Onslow 

//==============^=======^=====.^==. 

// (C) Programmed by KEN Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT 

//==^^^^^^^^=^^==^^^^^=^^^^^=^=^^^^^^^^^^^^^^^==.^^^^^^^=^^^^ 

#include "stdafx.h" 
#include " FlatToolBar . h" 

#ifdef _DEBUG 
#undef THIS_FILE 
#define new DEBUG_NEW 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

BEGIN_MESSAGE_MAP ( CFlatToolBar , CToolBar) 
// { {AFX_MSG_MAP (CFlatToolBar) 
ON_WM_WINDOWPOSCHANGING ( ) 
ON_WM_PAINT ( ) 
ON_WM_NCPAINT ( ) 
ON_WM_NCCALCSIZE ( ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

IMPLEMENT_DYNAMIC ( CFlatToolBar , CToolBar ) 




void CFlatToolBar: : SetFlatLookStyle ( ) 

{ 

// Set flat style (transparent) 
ModifyStyle (0 , TBSTYLE_FLAT) ; 
/ / others are . . . 

// #define TBSTYLE_TOOLTIPS 0x0100 
// #define TBSTYLE__WRAPABLE 0x02 0 0 

// #define TBSTYLE_ALTDRAG 0x04 0 0 

// #define TBSTYLE_FLAT 0x0800 
// #define TBSTYLE_LIST 0x1000 

} 

void CFlatToolBar: : RepaintBackground ( ) 

{ 

CRect rc; 

GetWindowRect (&:rc) ; // get rect for toolbar 
CWnd* pParent = GetParent () ; // get parent windows 
pParent - >ScreenToClient ( &rc) ; // convert to parent coords 
pParent - >InvalidateRect ( Sere) ; // paint rectangle underneath 

} 

void CFlatToolBar: : DrawSeparators ( ) 

{ 

CClientDC dc(this); // get a dc for the client area 

DrawSeparators (ficdc) ; // draw the separators on it 

} 
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void CFlatToolBar : :DrawSeparators (CClientDC* pDC) 

{ 

// horizontal vs vertical 

bool ishorz = (m_dwStyle & CBRS_ORIENT_HORZ ) != 0; 
// get number of buttons 

int nIndexMax = ( int ) Def WindowProc (TB_BUTTONCOlJNT, 0, 0); 

int nindex ; 

/ / try each button 

for (nindex = 0; nindex < nIndexMax; nlndex++) 

{ 

UINT dwStyle = GetButtonStyle (nindex) ; 

UINT wStyle = LOWORD (dwStyle) ; 

// if it is a separator 

if (wStyle == TBBS_SEPARATOR) 

{ 

// get it's rectangle and width 
CRect rect; 

GetltemRect (nindex, rect) ; 

// if small enough to be a true separator 
int w = rect. Width (); 
if (w <= 8) 
{ 

if (ishorz) 

{ 

// draw the separator bar in the middle 
CRect rectbar = rect; 

int X = (rectbar . left+rectbar . right ) /2 ; 
rectbar. left = x-1; rectbar . right = x+1; 
pDC- 

>Draw3dRect (rectbar , : : GetSysColor (COLOR__3DSHADOW) , 

: :GetSysColor (COLOR_3DHILIGHT) ) ; 

} 

else 

{ 

/ / draw the separator bar in the middle 
CRect rectbar = rect; 

rectbar. left = rectbar. left - m_sizeButton . cx; 

rectbar . right - rectbar. left + m_sizeButton . cx 

rectbar. top = rectbar . bottom+1 ; 

rectbar . bottom = rectbar . top+3 ; 

int y = (rectbar . top+rectbar . bottom) /2 ; 

rectbar. top = y-1; rectbar . bottom = y+1; 

pDC- 

>Draw3dRect (rectbar , : : GetSysColor (COLOR_3DSHADOW) , 

: : GetSysColor (COLOR_3DHILIGHT) ) ; 

} 

} 

} 

} 

} 

void CFlatToolBar : :DrawGripper (CWindowDC *pDC, CRect& rectWindow) 

{ 

CRect gripper = rectWindow; 

gripper -Def lateRect (1,1); 

if (m_dwStyle & CBRS_FLOATING) 

{ 
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// no grippers 

} 

else if (m_dwStyle & CBRS_ORIENT_HORZ) 
{ 

// gripper at left 

gripper . right = gripper . left+3 ; 

pDC->Draw3dRect (gripper, : : GetSysColor ( C0L0R_3DHIGHLIGHT) , 

: : GetSysColor (COLOR_3DSHADOW) ) ; 
gripper . Of f setRect (+4,0); 

pDC->Draw3dRect (gripper , : : GetSysColor (COLOR_3DHIGHLIGHT) , 

: : GetSysColor (COL0R_3DSHAD0W) ) ; 
rectWindow . lef t += 8; 

} 

else 

{ 

// gripper at top 

gripper - bottom = gripper . top+3 ; 

pDC->Draw3dRect (gripper, : : GetSysColor (COLOR_3DHIGHLIGHT) , 

: : GetSysColor (COLOR_3DSHADOW) ) ; 
gripper . Of f setRect ( 0 , +4 ) ; 

pDC->Draw3dRect (gripper, : : GetSysColor ( COLOR_3DHIGHLIGHT) , 

: : GetSysColor (COLOR_3DSHADOW) ) ; 
rectWindow . top += 8; 

} 

} 

void CFlatToolBar : : EraseNonClient ( ) 

{ 

// get window DC that is clipped to the non-client area 

CWindowDC dc(this); 

CRect rectClient; 

GetClientRect (rectClient) ; 

CRect rectWindow ; 

GetWindowRect (rectWindow) ; 

ScreenToClient (rectWindow) / 

rectClient . Of f setRect ( -rectWindow . lef t , -rectWindow . top) ; 
dc . ExcludeClipRect (rectClient) ; 

// draw borders in non-client area 

rectWindow. Of f setRect ( -rectWindow. lef t, -rectWindow . top) ; 
DrawBorders ( Scdc , rectWindow) ; 

// erase parts not drawn 

dc . IntersectClipRect (rectWindow) ,- 

SendMessage (WM_ERASEBKGND, ( WPARAM) dc . m_hDC) ; 

DrawGripper (&dc , rectWindow); // my addition to draw gripper 



void CFlatToolBar : lOnUpdateCmdUI (CFrameWnd* pTarget, BOOL bDisablelf NoHndler ) 

{ 

static CUIntArray styles; 
// save styles 

int nIndexMax = (int) Def WindowProc (TB_BUTTONCOUNT, 0, 0); 
int nindex; 

for (nindex = 0; nindex < nIndexMax; nlndex++) 

{ 
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UINT dwStyle = GetButtonStyle (nindex) ; 
styles . SetAtGrow (nindex, dwStyle) ; 

} 

// default processing 

CToolBar: : OnUpdateCmdUI (pTarget , bDisablelf NoHndler ) ; 

// check for changes to style (buttons presssed/released) 

for (nindex = 0; nindex < nIndexMax; nlndex++) 

{ 

UINT dwStyle - GetButtonStyle (nindex) ; 
if (styles [nindex] dwStyle) 

{ 

RepaintBackground ( ) ; // need to take care of button 

background 

Invalidate () ; // repaint toolbar (not just this 

button) 

break; 

} 

} 

} 



void CFlatToolBar : rOnWindowPosChanging (LPWINDOWPOS Ipwp) 

{ 

// default processing 

CToolBar: : OnWindowPosChanging ( Ipwp) ; 
// repaint background if size or move 

if ( ! (lpwp->f lags & SWP_NOMOVE) || !( Ipwp- >f lags & SWP_NOSIZE) ) 
{ //if moved: 

RepaintBackground ( ) ; 

PostMessage (WM_MCPAINT) ; 

} 

} 

void CFlatToolBar:: OnPaintO 

{ 

// standard tolbar 
CToolBar: : OnPaintO ; 
/ / plus separators 
DrawSeparators ( ) ; 

} 

void CFlatToolBar:: OnNcPaintO 

{ 

EraseNonClient ( ) ; 

} 

void CFlatToolBar : :OnNcCalcSize (BOOL bCalcValidRects , NCCALCSIZE_PARAMS* 
Ipncsp) 

{ 

CToolBar: : OnNcCalcSize (bCalcValidRects , Ipncsp) ; 

// adjust non-client area for gripper at left or top 

if {m_dwStyle & CBRS^FLOATING) 

{ 

// no grippers 

} 

else if (m_dwStyle & CBRS_ORIENT HORZ) 
{ 

Ipncsp- >rgrc [0] . left += 2; 
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Ipncsp 



>rgrc [0] 



right 2 ; 



else 



Ipncsp 
Ipncsp 



>rgrc [0] 
>rgrc [0] 



top += 4 ; 
bottom +~ 4; 



C + + 5.0^, °,^,e Developer StudioAg ToolBar° j A» ^±agi°0 pg^^iAoAo? 



^o^^A§i,, °®'u 'oA_e A§-i Ao£<::3'ii ^ ^^A'A°A ,»Ao'i^u, 
^uA^° ±x ±^gb^^^yAo' 1 'u. 

1. Au^>iAAg project workspace^ I ^--'U 

2. ^-^^-i^i pi°U^©A0 pl'^^^g £AAlA» projectii InsertgN'U. 

3. MainFrame . j 

#inclucie " FlatToolBar . [ Al5 ° ; gN ' U . 

4. ToolBar^! CFlatToolBar guA^ • I m^agN ' 0 . 

5. 'UA^g AUpa, ; CMainFrame: lOnCreateAg ToolBar»y^° AlEA£. i 



Afi i gN 



0. 



m_wndToolBar . SetFlatLookStyle ( ) ; 
;0'U, VC++ 5 . 0Al»6Alf 6^6 gN'U. 
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// FlatToolBar . h 

#ifndef FLATTOOLBAR_H 

#define FLATTOOLBAR_H 

class CFlatToolBar : public CToolBar 
{ 

DECLARE_DYNAMIC (CFlatToolBar) ; 
publ ic : 

void SetFlatLookStyle {) ; 

void RepaintBackground ( ) ; 

void DrawSeparators ( ) ; 

void DrawSeparators (CClientDC* pDC) ; 

void EraseNonClient ( ) ; 

void DrawGripper (CWindowDC *pDC, CRect& rectwindow) ; 
protected : 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CFlatToolBar) 

virtual void OnUpdateCmdUI ( CFrameWnd* pTarget, BOOL 
bDisablelfNoHndler) ; 

// } }afx_virtual 
// Message Handlers 
protected : 

//{ {AFX_MSG (CFlatToolBar) 

afx_msg void OnWindowPosChanging (LPWINDOWPOS IpWndPos) ; 
afx_msg void OnPaint ( ) ; 
afx_msg void OnJSTcPaint ( ) ; 

afx_msg void OnNcCalcSize ( BOOL bCalcValidRect s , NCCALCSIZE_PARAMS* 
Ipncsp ) ; 

//} }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) ; 

}; 

#endif // FLATTOOLBAR H 
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// httpUtility.cpp contains stuff used by more than one thread 

#include <stdafx-h> 
#include <afxmt.h> 

#include "blocksock . h " 
#include "httpUt i 1 ity . h" 

volatile int g_nConnection = 0; // connection number 

CString g__s trServerName = "localhost"; // used by both winsock and wininet 
CString g_strServerIP ; 
volatile UINT g_nPort = 80; 
CString g_strReq = "/custom"; 

HWND g_hMainWnd = 0; 

char g_pchStatus [25] = ""; 

CCriticalSect ion g_csStatus; 



CCallbacklnternetSession: : CCallbacklnternetSession ( LPCTSTR pstrAgent, DWORD 
dwContext , 

DWORD dwAccessType, LPCTSTR pstrProxyName , LPCTSTR pstrProxyBypass , 
DWORD dwFlags) : 

CInternetSession (pstrAgent , dwContext, dwAccessType , pstrProxyName , 
pstrProxyBypass , dwFlags) 

{ 

EnableStatusCallback ( ) ; 

} 

void CCallbacklnternetSession: rOnStatusCallback (DWORD dwContext, DWORD 
dwInternalStatus , 

LPVOID IpvStatusInf ormation, DWORD dwStatusInf ormat ionLength) 

{ 

AFX_MANAGE_STATE ( Af xGetStat icModuleState () ) ; 

int errors[] = {lO, 11, 20, 21, 30, 31, 40, 41, 42, 43, 50, 51, 60, 70, 
100, 110, 0}; 

char* text[] = { 

"Resolving name", 

"Name resolved" , 

"Connecting to server", 

"Connected to server", 

"Sending request", 

"Request sent", 

"Receiving response", 

"Response received", 

"Ctl response received", 

"Prefetch" , 

"Closing connection" , 

"Connection closed", 

"Handle created", 

"Handle closing", 

"Request complete", 

"Redirect" , 

"Unknown" } ; 

int n; 

/* // demonstrates request cancellation 
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if {dwInternalStatus ^= INTERNET_STATUS_REQUEST_SENT) { 
Af xThrowInternetException (dwContext y 999) ; 

} 

*/ 

for(n = 0; errors [n] != 0; n++) { 

if (errors [n] == (int) dwInternalStatus) break; 

} 

g_csStatus . Lock ( ) ; 

strcpy (g__pchStatus , text [n] ) ; 

if {dwInternalStatus == INTERNET_STATUS_RESOLVING_NAME | | 

dwInternalStatus INTERNET_STATUS_NAME_RESOLVED) { 

strcat (g_pchStatus , "-"); 

strcat (g_pchStatus , (char*) IpvStatus Information) ; 

} 

TRACE ("WININET STATUS: %s\n" , g_pchStatus) ; 
g_csStatus . Unlock ( ) ; 

// frame doesn't need a handler message triggers Onldle, which 
updates status bar 

: : PostMessage (g_hMainWnd, WM_CALLBACK, 0, 0); 



void LoglnternetException (LPVOID pParam, CInternetException* pe) 
{ // pParam holds the HWND for the destination window (in another thread) 

CString strGmt = CTime : : GetCurrentTime ( ) . FormatGmt ( " %m/ %d/ %y %H:%M:% 

GMT") ; 

char textl[300], text2 [100] ; 

wsprintf (textl , "CLIENT ERROR: Winlnet error #%d -- %s\r\n ", 

pe - >m_dwError , (const char*) strGmt) ; 
pe- >GetErrorMessage (text2 , 99); 
strcat ( text 1 , text2); 
if (pe- >m_dwError 12152) { 

strcat (textl, " URL not f ound?\r\n" ) ; 

} 

: :SendMessage ( (HWND) pParam, EM__SETSEL, (WPARAM) 65534, 65535); 
: :SendMessage ( (HWND) pParam, EM_REPLACESEL , (WPARAM) 0, (LPARAM) 
textl) ; 

} 
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// httpUtility.h 

#define WM_CALLBACK WM_USER + 5 
extern volatile int g_nConnect ion; 

extern CString g_strServerName ; // used by both winsock and wininet code 

extern CString g_strServerIP ; // used by both winsock and wininet code 

extern CString g_strReq; 

extern char g__pchStatus [] ; 

extern HWND g_hMainWnd; 

extern CCri t icalSect ion g_csStatus; 

extern CString g_s trIPCl lent ; 

extern volatile UINT g_nPort ; 

extern CString g_strProxy; 

extern BOOL g_bUseProxy; 

extern volatile BOOL g_bLis tening ; 

// extern CString g_strDirect; 

extern CString g_strIPServer ; 

extern volatile UINT g_nPort Server ; 

extern CString g_strURL; 

//extern CString g_strDef ault ; 

extern UINT CI ientUrlThreadProc ( LPVOID pParam) ; 
extern UINT ServerThreadProc (LPVOID pParam) ; 
extern UINT Cl ientwinlne tThreadProc (LPVOID pParam) ; 
extern UINT Cl ientSocketThreadProc (LPVOID pParam); 

extern void LoglnternetExcept ion (LPVOID pParam, CInternetException* pe) ; 
class CCallbacklnternetSession : public CInternetSession 

{ 

public : 

CCallbacklnternetSession ( LPCTSTR pstrAgent = NULL, DWORD dwContext = 

1, 

DWORD dwAccessType = PRE_CONFIG_INTERNET_ACCESS , LPCTSTR 
pstrProxyName - NULL, 

LPCTSTR pstrProxy Bypass = NULL, DWORD dwFlags = 0 ) ; 

protected : 

virtual void OnStatusCallback (DWORD dwContext, DWORD dwInternalS tatus , 
LPVOID IpvStatusInf ormation, DWORD dwStatusInf ormat ionLength) ; 

}; 
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// InputDlg.cpp : implementation file 
// 

# include " s tdaf x . h " 
#include "BMC.h" 
#include "InputDlg.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS__FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// ClnputDlg dialog 



ClnputDlg: :CInputDlg (CWnd* pParent /*=NULL*/) 
: CDialog (ClnputDlg :: IDD, pParent) 

{ 

// { {AFX_DATA_INIT (ClnputDlg) 
m__strData = _T ( " ) ; 
// } } AFX_DATA_INIT 

} 



void ClnputDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (ClnputDlg) 

DDX_Text (pDX, IDC_EDIT_STRING, m_strData) ; 
/ / } } AFX_DATA__MAP 

} 



BEGIN_MESSAGE_MAP (ClnputDlg, CDialog) 

// { {AFX_MSG_MAP (ClnputDlg) 

// NOTE: the ClassWizard will add message map macros here 

/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// ClnputDlg message handlers 
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#if ! defined ( AFX_INPUTDLG_H 2F1ADE63_AD1A_1 1D1_8 0E2_08 0 00 9B9F3 3 9 INCLUDED ) 

#def ine AFX_INPUTDLG_H 2F1ADE63_AD1A_11D1_8 0E2_08 0 00 9B9F3 3 9 INCLUDED_ ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// InputDlg.h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// ClnputDlg dialog 

class ClnputDlg : public CDialog 

{ 

// Construction 
public : 

ClnputDlg {CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA (ClnputDlg) 
enum { IDD = IDD_INPUT_DLG } ; 
est ring m_strData; 
//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (ClnputDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

//} }AFX__VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
// { {AFX_MSG (ClnputDlg) 

// NOTE: the ClassWizard will add member functions here 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

/ / { {afx__insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_INPUTDLG_H 2F1ADE63_AD1A_1 1D1_8 OE2_0 8 000 9B9F3 3 9 INCLUDED ) 



A- 149 



InputlntDlgxpp 



// Input IntDlg . cpp : implementation file 
// 

#include "stdafx.h" 
#include "UC2 .h" 
#include " Input IntDlg . h" 

#ifdef _DEBUG 
#define new DEBUG^MEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// ClnputlntDlg dialog 



ClnputlntDlg : : ClnputlntDlg (CWnd* pParent /*-MULL*/) 
: CDialog (ClnputlntDlg : :IDD, pParent) 

{ 

// { {AFX_DATA_INIT (ClnputlntDlg) 
// m_nVal = 0; 

// } }AFX_DATA_INIT 

} 



void ClnputlntDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (ClnputlntDlg) 
DDX_Text (pDX, IDC_EDIT_INT, m_nVal) ; 
// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE_^4AP (ClnputlntDlg, CDialog) 
// { {afx__MSG_MAP (ClnputlntDlg) 

ON_BN_CLICKED {IDC_BTN_DEFAULT, OnBtnDef aul t ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// ClnputlntDlg message handlers 

void ClnputlntDlg: : OnBtnDef ault () 

{ 

m_nVal - m_nDef aultVal ; 

UpdateData (FALSE) ; // initialize dialg box 

} 

BOOL ClnputlntDlg: : OnlnitDialog ( ) 
{ 

CDialog: : OnlnitDialog ( ) ; 
SetWindowText (m_strTitle) ; 

UpdateData (FALSE) ; // initialize dialg box 
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return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
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#if 

! defined ( AFX_INPUTINTDLiG_H E5 7FAA2 3_2 7A2_1 1D2_8 0E2_0 8 00 0 9B9F3 3 9 INCLUDED^) 

#def ine AFX_INPUTINTDLG_H E5 7FAA2 3__2 7A2_11D2_80E2__0 8 0 00 9B9F3 3 9 INCLUDED_ 

#if _MSC_VER >=: 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 

// InputlntDlg.h : header file 

// 

1 1 n 1 1 1 1 / 1 1 1 1 11 1 1 1 1 1 1 / 1 1 1 1 1 11 1 1 1 / 1 1 1 1 1 1 11 1 1 11 1 1 1 1 1 11 1 1 1 1 1 / 1 1 / 1 1 n 1 1 n 1 1 1 1 / 1 1 1 

II ClnputlntDlg dialog 

class ClnputlntDlg : public CDialog 
{ 

// Construction 
public : 

ClnputlntDlg (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

/ / { { AFX_D AT A (ClnputlntDlg) 
enum { IDD = IDD_INPUT_INT } ; 
int m_nVal ; 

// } }AFX_DATA 

void SetDefaultVal (const int nDV) { m_nDef aultVal = nDV; } 
void SetTitle (const CString& str) { m_strTitle = str; } 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (ClnputlntDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 

// Implementation 
protected : 

int m_nDef aul tVal ; 

CString m_strTitle; 

// Generated message map functions 
// { {AFX_MSG (ClnputlntDlg) 
afx_msg void OnBtnDef ault ( ) ; 
virtual BOOL Onini tDialog ( ) ; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

I defined ( AFX_INPUTINTDLG_H E57FAA23_2 7A2_11D2_80E2_080009B9F3 3 9 INCLUDED ) 
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// InputPassword.cpp : implementation file 
// 

#include "stdafx. h" 

#include "UC2 .h" 

#include " InputPassword . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CInputPassword dialog 




CInputPassword : : CInputPassword (CWnd* pParent /*=NULL*/) 
: CDialog (CInputPassword :: IDD, pParent) 

/ / { { AFX_DATA_INIT ( CInput Pas sword ) 
m_strPassword = _T ( " " ) ; 
// } }AFX_DATA_INIT 



void CInputPassword : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CInputPassword) 

DDX_Text {pDX, IDC_EDIT_PASSWORD , m__strPas sword) ; 
/ / } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CInputPassword, CDialog) 

//{ {afx_MSG_MAP (CInputPassword) 

// NOTE: the ClassWizard will add message map macros here 

/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CInputPassword message handlers 
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#if 

• defined (AFX_INPUTPASSWORD_H 
) 

#define AFX_INPUTPASSWORD__H_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// InputPassword . h : header file 

// 

1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II I // 1 II I /1 1 1 1 1 / 1 1 1 1 // 1 // 1 // 1 1 1 1 1 / 1 1 1 1 / 1 / n 1 1 1 1 / 1 1 1 

II CInputPassword dialog 

class CInputPassword : public CDialog 
{ 

// Construction 
public : 

CInputPassword (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA (CInputPassword) 
enum { IDD - IDD_INPUT_PASSWORD } ; 
est ring nn_strPassword ; 

// } }afx_data 



/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {afx_VIRTUAL (CInputPassword) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }afx_virtual 

// Implementation 
protected : 

// Generated message map functions 
// { {AFX_MSG (CInputPassword) 

// NOTE: the ClassWizard will add member functions here 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_INPUTPASSWORD_H A1BFE564_C3 2 1_11D1_8 0E2_080009B9F3 3 9 INCLUDED 

) \/ ~ ~ 



_A1BFE5 64_C3 21_11D1_8 0E2_080 00 9B9F3 3 9 INCLUDED 

_A1BFE5 64_C3 21_11D1_8 0E2_0 8 00 0 9B9F3 3 9 INCLUDED 
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// JunAsyncMF . cpp : implementation file 
// 

# include " stdaf x . h" 
#include "Test.h" 
#include "JunAsyncMF . h" 

#ifdef _DEBUG 

# define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] ^ FILE ; 

ttendif 

///////////////////////////////////////////////////////////////////////////// 
// C JunAsyncMF 

CJunAsyncMF : : C JunAsyncMF ( ) 

{ 
} 

CJunAsyncMF : : -CJunAsyncMF ( ) 

{ 
} 



//Do not edit the following lines, which are needed by ClassWizard. 
#if 0 

BEGIN_MESSAGE_MAP (CJunAsyncMF, CAsyncMonikerFi le ) 

// { { AFX_MSG_MAP (CJunAsyncMF) 

// } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 
#endif // 0 

///////////////////////////////////////////////////////////////////////////// 
/ / CJunAsyncMF member functions 

void CJunAsyncMF :: OnDataAva liable (DWORD dwSize, DWORD bscfFlag) 

{ 

// TODO : Add your specialized code here and/or call the base class 
TRACE ( "CJunAsyncMF: : OnDataAvailable\n" ) ; 

TRACE ( "dwSize = %ld , bscfFlag = %ld\n", dwSize, bscfFlag); 
CAsyncMonikerFile : : OnDataAvailable (dwSize , bscfFlag) ; 

} 

void CJunAsyncMF: lOnStartBinding (DWORD grf BSCOPTION) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CJunAsyncMF: : OnStartBinding\n " ) ; 

//CAsyncMonikerFile: : OnStartBinding (grf BSCOPTION) ; 

} 

void CJunAsyncMF: :OnStopBinding (HRESULT hresult, LPCTSTR szError) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CJunAsyncMF: : OnStopBinding\n " ) ; 
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TRACE ( "hresult = %d\n" , hresult) ; 

CAsyncMonikerFile : : OnStopBinding (hresult , szError) ; 

} 

void CJunAsyncMF: :OnProgress (ULONG ulProgress, ULONG ulProgressMax , 
ULONG ulStatusCode, LPCTSTR szStatusText ) 

{ 

TRACE ( "CJunAsyncMF: : OnProgress\n '* ) ; 
TRACE ( "ulProgress : %ld\n", ulProgress); 
TRACE ( "UlProgressMax : %ld\n" , ulProgressMax) ; 
TRACE { "ulStatusCode : %ld\n" , ulStatusCode) ; 
TRACE { "szStatusText : %s\n" , szStatusText); 

CAsyncMonikerFile : :OnProgress (ulProgress, ulProgressMax, ulStatusCode, 
szStatusText) ; 

} 
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#if 

! defined (AFX_iJUNASYNCMF_H 7F6B9704_B810_11D1_9169_444553 540001 INCLUDED ) 

#de f i ne AFX_ JUNAS YNCMF_H 7 F6B9704_B81 0_1 ID 1_9 1 6 9_4 4455354000 1 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >== 1000 
// JunAsyncMF.h : header file 
// 



///////////////////////////////////////////////////////////////////////////// 
/ / CJunAsyncMF command target 

class CJunAsyncMF : public CAsyncMonikerFile 
{ 

// Attributes 
public : 

// Operations 
public : 

CJunAsyncMF ( ) ; 

virtual -CJunAsyncMF () ; 

// Overrides 
public : 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CJunAsyncMF) 
protected : 

virtual void OnDataAvai 1 able (DWORD dwSize, DWORD bscf Flag) ; 
virtual void OnStartBinding (DWORD grfBSCOPTION) ; 
virtual void OnStopBinding (HRESULT hresult, LPCTSTR szError) ; 
virtual void OnProgress (ULONG ulProgress, ULONG ulProgressMax , 

ULONG ulStatusCode, LPCTSTR szStatusText ) ; 
// } }AFX_ VIRTUAL 

/ / Generated message map functions 
// { {AFX_MSG (CJunAsyncMF) 

// NOTE - the ClassWizard will add and remove member functions 



here . 



//} }afx_msg 



// Implementation 
protected : 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined ( AFX_ JUNAS YN CM F_H 7F6B9704_B810_11D1_9169_44455354 0001 INCLUDED_) 
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// JunAsyncMF . cpp : implementation file 
// 

#inclucie "stdafx.h" 
#include "Test . h" 
#include "JunAsyncMF . h" 

tifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// C JunAsyncMF 

CJunAsyncMF : : C JunAsyncMF ( ) 

{ 
} 

CJunAsyncMF : : -CJunAsyncMF ( ) 

{ 
} 



//Do not edit the following lines, which are needed by ClassWizard. 
#if 0 

BEGIN_MESSAGE_MAP (CJunAsyncMF, CAsyncMonikerFile ) 

// { {AFX_MSG_MAP (CJunAsyncMF) 

/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 
#endif // 0 

///////////////////////////////////////////////////////////////////////////// 
/ / CJunAsyncMF member functions 

void CJunAsyncMF : rOnDataAvailable (DWORD dwSize, DWORD bscfFlag) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CJunAsyncMF : : OnDataAvai lable\n " ) ; 

TRACE ( "dwSize = %ld , bscfFlag - %ld\n'\ dwSize, bscf Flag) ; 
CAsyncMonikerFile: : OnDataAvai 1 able (dwSi ze , bscfFlag) ; 

} 

void CJunAsyncMF: lOnStartBinding (DWORD grf BSCOPTION) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE { "CJunAsyncMF : : OnStartBinding\n" ) ; 

//CAsyncMonikerFile: : OnStartBinding (grf BSCOPTION) ; 

} 

void CJunAsyncMF: :OnStopBinding (HRESULT hresult, LPCTSTR szError) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CJunAsyncMF : : OnStopBinding\n" ) ; 
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TRACE { "hresult = %d\n" , hresult) ; 

CAsyncMonikerFile : : OnStopBinding (hresult , szError) ; 

} 

void CJunAsyncMF : :OnProgress (ULONG ulProgress, ULONG ulProgressMax , 
ULONG ulStatusCode, LPCTSTR szStatusText ) 

{ 

TRACE ( "CJunAsyncMF : : OnProgress\n" ) ; 
TRACE ( "ul Progress : %ld\n" , ulProgress) ; 
TRACE ( "ulProgressMax : %ld\n", ulProgressMax) ; 
TRACE ( "ulStatusCode : %ld\n", ulStatusCode) ; 
TRACE ( "szStatusText : %s\n", szStatusText); 

CAsyncMonikerFile : : OnProgress (ulProgress , ulProgressMax, ulStatusCode, 
szStatusText) ; 

} 
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// JunDataPathProp.cpp : implementation file 
// 

# include "stdafx.h" 

#include "Test.h" 

#include " JunDataPathProp . h" 

#ifdef _DEBUG 

ttdefine new DEBUG_NEW 

#undef THIS_FILE 

static char THIS__FILE[] = FILE 

#endif 

#define WM_STOPBINDING WM_USER+1 

///////////////////////////////////////////////////////////////////////////// 
// CJunDataPathProp 

CJunDataPathProp : : C JunDataPathProp ( ) 

{ 
} 

CJunDataPathProp : : -CJunDataPathProp { ) 

{ 
} 



//Do not edit the following lines, which are needed by ClassWizard. 
#if 0 

BEGIN_MESSAGE_MAP (CJunDataPathProp, CDataPathProperty ) 

// { {AFX_MSG_MAP (CJunDataPathProp) 

/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 
#endif // 0 

///////////////////////////////////////////////////////////////////////////// 
// CJunDataPathProp member functions 

void CJunDataPathProp: : OnStartBinding ( ) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CJunDataPathProp : : OnStartBinding\n\n" ) ; 
CDataPathProperty: : OnStartBinding ( ) ; 

} 

void CJunDataPathProp : :OnStopBinding (HRESULT hresult, LPCTSTR szError) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CJunDataPathProp : : OnStopBinding\n\n" ) ; 

Af xGetMainWnd ( ) - >PostMessage (WM_STOPBINDING , 0, 0) ; 

CDataPathProperty: : OnStopBinding (hresul t , szError) ; 

} 

void CJunDataPathProp : :OnDataAvailable (DWORD dwSize, DWORD bscfFlaq) 

{ 

// TODO: Add your specialized code here and/or call the base class 
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TRACE ( "CJunDataPathProp : : OnDataAvai lable\n " ) ; 
TRACE ("dwSize : %ld dwSize) ; 

TRACE {" bscfFlag : %ld\n", bscfFlag) ; 

if ( (bscfFlag & BSCF_FIRSTDATAN0TIFICATION) != 0) 

TRACE ( "BSCF_FIRSTDATANOTIFICATION\n\n") ; 

if ( (bscfFlag & BSCF_INTERMEDIATEDATANOTI FX CATION) != 0) 
TRACE ( "BSCF_INTERMEDIATEDATANOTIFICATION\n\n" ) ; 

if ( (bscfFlag & BSCF_LASTDATANOTIF I CATION) ! 0) 
TRACE ( "BSCF_LASTDATANOTIFICATION\n\n" ) ; 

if ( (bscfFlag & BSCF_DATAFULLYAVAILABLE) !- 0) 
TRACE ( "BSCF_DATAFULLYAVAILABL,E\n\n" ) ; 

if ( (bscfFlag & BSCF_AVAILABLEDATASIZEUNKNOWN) != 0) 
TRACE ( ••BSCF_AVAIL.ABLEDATASIZEUNKNOWN\n\n" ) ; 

CDataPathProperty : : OnDataAvailable (dwSize , bscfFlag) ; 

} 

void CJunDataPathProp : :OnProgress (ULONG ulProgress, ULONG ulProgressMax , 
ULONG ulStatusCode, LPCTSTR szStatusText ) 

{ 

TRACE ( "CJunDataPathProp : : OnProgress\n" ) ; 
TRACE ( "ul Progress : %ld\n", ulProgress) ; 
TRACE ( "ulProgressMax : %ld\n", ulProgressMax) ; 
TRACE ( "ulStatusCode : %ld\n" , ulStatusCode) ; 

if (ulStatusCode == BINDSTATUS_FINDINGRESOURCE) 

TRACE ( "UlStatusCode : BINDSTATUS_FINDINGRESOURCE\n" ) ; 
else if (ulStatusCode ^= BINDSTATUS_MIMETYPEAVAILABLE) 

TRACE ( "ulStatusCode : BINDSTATUS_MIMETYPEAVAILABLE\n " ) ; 
else if (ulStatusCode === BINDSTATUS_CONNECTING) 

TRACE ( "UlStatusCode : BINDSTATUS_CONNECTING\n" ) ; 
else if (ulStatusCode == BINDSTATUS_SENDINGREQUEST) 

TRACE ( "UlStatusCode : BINDSTATUS_SENDINGREQUEST\n" ) ; 
else if (ulStatusCode BINDSTATUS_REDIRECTING) 
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TRACE ( "ulStatusCode : BINDSTATUS_REDIRECTING\n" ) ; 
else if (ulStatusCode ^= BINDSTATUS_USINGCACHEDCOPY) 

TRACE ( "UlStatusCode : BINDSTATUS_USINGCACHEDCOPY\n" ) ; 
else if (ulStatusCode == BINDSTATUS_BEGINDOWNLOADDATA) 

TRACE ( "ulStatusCode : BINDSTATUS_BEGINDOWNLOADDATA\n " ) ; 
else if (ulStatusCode BINDSTATUS_DOWNLOADINGDATA) 

TRACE ( "UlStatusCode : BINDSTATUS_DOWNLOADINGDATA\n" ) ; 
else if (ulStatusCode == BINDSTATUS_ENDDOWNLOADDATA) 

TRACE ( "UlStatusCode : BINDSTATUS_ENDDOWNLOADDATA\n " ) ; 
else if (ulStatusCode == BINDSTATUS_CACHEFILENAMEAVAILABLE ) 

TRACE ( "UlStatusCode : BINDSTATUS_CACHEFILENAMEAVAILABIiE\n " ) ; 

TRACE ( "szStatusText : %s\n\n" , szStatusText) ; 

CDataPathProperty : rOnProgress (ulProgress, ulProgressMax , ulStatusCode, 
szStatusText) ; 

} 
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#if 

! defined ( AFX__JUNDATAPATHPROP_H 5959C5C2_B813_11D1_9169_444553 54 0001 INCLUDE 

#def ine 

AFX_ JUNDATAPATHPROP_H 5 95 9C5 C2_B 813_11D1_916 9_4 4455354000 1 INCLUDED_ 

#if _MSC_VER 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

// JunDataPathProp.h : header file 

// 



///////////////////////////////////////////////////////////////////////////// 
/ / CJunDataPathProp command target 

class CJunDataPathProp : public CDataPathProperty 
{ 

// Attributes 
public : 

// Operations 
public : 

CJunDataPathProp ( ) ; 

virtual -CJunDataPathProp ( ) ; 

// Overrides 
public : 

// ClassWizard generated virtual function overrides 
// { {afx_VIRTUAL (CJunDataPathProp) 
protected : 

virtual void OnStartBinding ( ) ; 

virtual void OnStopBinding (HRESULT hresult, LPCTSTR szError) ; 
virtual void OnDataAvail able (DWORD dwSize, DWORD bscfFlag) ; 
virtual void OnProgress (ULONG ulProgress, ULONG ulProgressMax, 

ULONG ulStatusCode, LPCTSTR szStatusText ) ; 
//} }AFX_VIRTUAL 

// Generated message map functions 
// { {AFX_MSG (CJunDataPathProp) 

// NOTE - the ClassWizard will add and remove member functions 

here . 

// } }AFX_MSG 

// Implementation 
protected : 

}; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 / 1 11 1 1 / 1 1 1 1 1 1 n 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

/ / { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 
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#endif // 

! defined {AFX_JUNDATAPATHPROP_H 5 959C5C2_B813__11D1_916 9_444 55 3 54 0001 INCLUDE 

D ) 
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// LoginDlg.cpp : implementation file 
// 

#include " s tdaf x , h " 

#include "UC2 .h" 

#include "LoginDlg . h " 

#include "ResMan.h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/DIBPal .h" 

#include "UC2CS.h" 

#include " InputPassword . h " 

# inc lude " Sp 1 a sh . h " 



#include "MainFrm.h" 
# i nc lude " UC2 Doc . h " 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



extern CResMan gResMan; 



extern int GetClientVersion ( ) 



// UC2Doc.cpp 



const int MSPT^TIMER : 
#define ArrayCount (a) 



4 00 ; 

( sizeof (a) / sizeof (a [ 0] ) ) 



#ifdef _MALL 
LPCTSTR BMP_LOGIN_BACK 
//LPCTSTR BMP_LOGIN_ANI 

LPCTSTR BMP_LOGIN_BTN_OK 
LPCTSTR BMP_LOGIN_BTN_NO 

//LPCTSTR BMP_LOGIN_BTN_LAN 
//LPCTSTR BMP LOGIN BTN MODEM 



PTLT_ANI (85, 
PTLT LM[2] = 



//const CPoint 
//const CPoint 
LAN or Modem 
//const CRect 
//const CRect 
const CRect 
const CRect 
const CRect 
const CRect 
const CRect 

//const int BEHAVIORO [] = 
//const int BEHAVIORl[] = 
//const int BEHAVIOR2 [] = 
#else 

//LPCTSTR BMP_LOGIN_BACK 
LPCTSTR BMP_LOGIN_BACK 

//LPCTSTR BMP_LOGIN_OVAL 
//LPCTSTR BMP LOGIN ANI 



= " MLog i nB k . bmp " ; 
- "MLgnAni . bmp " ; 

= "MBtnOK.bmp" / 
= "MBtnNo-bmp" ; 

= "MBtnLAN.bmp"; 
= "MBtnMdm. bmp" ; 
98) ; 

{CPoint (276, 219) 



CPoint (276, 171) } , 



// 



RECT_NICKNAME (13 9, 209, 246, 229); 
RECT_PAS SWORD (13 9, 232, 246, 251); 
RECT__NICKNAME (111 , 186, 218, 206); 
RECT_PAS SWORD (111, 212, 218, 232); 
RECT_MESSAGE (50, 239, 243, 259); 
RECT_SECONDS (306, 145, 374, 165); 
RECT_HOST (62 , 14, 315, 29+100); 

{0,0,1,0,0,0,0,1,0,0}; 
{0,2,3,4,6,3,4,6,3,4,6}; 
{0,4,7,4,7,4,7}; 

- "U2Login I LoginBk . bmp" ; 
= "login_screen.bmp"; 

= "U2LoginlLoginOva.bmp", 
= "U2LoginlLoginAni.bmp"; 
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//LPCTSTR BMP_LOGIN_BTN_OK 
//LPCTSTR BMP_LOGIN_BTN_NO 



= "U2Login | BtnOK.bmp" ; 
= "U2Login I BtnNo .bmp" ; 



LPCTSTR BMP_LOGIN_BTN_OK 
LPCTSTR BMP LOGIN BTN NO 



= " login_ok . bmp " ; 

~ "login_cancel.bmp"; 



//LPCTSTR BMP_LOGIN_BTN_LAN = "U2 Login | BtnLAN . bmp " ; 
//LPCTSTR BMP_LOGIN_BTN_MODEM = "U2 Login | BtnMODEM . bmp " ; 
//const CPoint PTLT_OVAL ( 91 , 12); 

//const CPoint PTLT_ANI ( 16 1 , 40); 

//const CPoint PTLT_LM[2] = {CPoint(120, 207), CPoint (207, 207)}; 

LAN or Modem 



//const CRect 
//const CRect 
const CRect 
const CRect 



RECT_NICKNAME (15 8 , 159, 264, 180); 

RECT_PAS SWORD (15 8 , 189, 264, 207); 
RECT_NICKNAME (13 9, 137, 279, 155); 
RECT_PASSWORD(13 9, 162, 279, 180); 



//const CRect 



RECT_MESSAGE (90, 258, 340, 285); 
RECT_MESSAGE(2 0, 115, 100, 155); 
RECT_SECONDS (12 5, 115, 150, 135); 
RECT_HOST (105, 7, 325, 22+100); 



const CRect 
const CRect 
const CRect 



const int BEHAVIORO [] = {0,0,1,0,0,0,0,1,0,1,0}; 

const int BEHAVIORl [] = {0,2,3,3,3,3,3,2,3}; 

const int BEHAVIOR2 [] = {4,5,6, 7,8,9,10,11, 7,8,9,10,11, 7,8,9,10,11}; 

const int* ANI__BEH[] = {BEHAVIORO, BEHAVIORl, BEHAVIOR2 } ; 

const int ANI_BEH_COUNT [ ] - 



1 1 1 1 1 1 1 1 / 1 If n 1 1 // 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 1 / 1 1 // 1 1 1 11 1 1 1 / 1 1 11 11 1 11 / 1 1 11 1 / 1 1 1 1 / 1 1 1 1 



II CLoginDlg message handlers 
BEGIN_MESSAGE_MAP (CLoginDlg, CDialog) 
//{ {AFX_MSG_MAP (CLoginDlg) 



0N_ 




ERASEBKGND ( ) 


0N_ 


"WM~ 


[querynewpalette ( ) 


ON_ 


_WM_ 


palettechanged ( ) 


0N_ 


]WM_ 


'size ( ) 


0N_ 


_WM_ 


TIMER { ) 


0N_ 


_WM_ 


DESTROY ( ) 


0N_ 


_WM_ 


[SETCURSOR () 


0N_ 


_WM_ 


lbuttondown ( ) 


0N_ 


_EN_ 


SETFOCUS (IDC_EDIT_NICKNAME, OnSet f ocusEdi tNickname ) 


0N_ 


_EN_ 


SETFOCUS {IDC_EDIT_PASSW0RD, Onset focusEditPassword) 


0N_ 


_WM_ 


LBUTTONDBLCLK ( ) 


0N_ 


_WM_ 


CTLCOLOR ( ) 


0N_ 


_EN_ 


update (XDC_EDIT_NICKNAME, OnUpdateEdi tNickname) 


0N_ 


_EN_ 


_UPDATE {IDC_EDIT_PASSW0RD, OnUpdateEditPassword) 


on" 


'en_ 


KILLFOCUS (IDC_EDIT_NICKNAME, OnKi 1 If ocusEdi tNickname 


0N_ 


EN 


KILLFOCUS (IDC_EDIT_PASSW0RD, OnKi 1 If ocusEdit Pas sword 



ArrayCount (BEHAVIORO) , 
ArrayCount (BEHAVIORl) , 
ArrayCount (BEHAVIOR2) 



}; 



#endif 
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ON_CBN_EDITUPDATE ( IDC_CB_HOST , OnEdi tupdateCbHost ) 
ON_CBN_KILLFOCUS ( IDC_CB_HOST , OnKi 1 1 f ocusCbHos t ) 
ON_WM_PAINT ( ) 
ON_WM_NCHITTEST ( ) 
/ / } } AFX_MSG_MAP 

ON_MESSAGE {CMD_CONNECT_CONNECTING, OnConnect Connect ing) 
ON_MESSAGE (CMD_CONNECT_LOGIN, OnConnec tLogin) 

ON_MESSAGE ( CMD_CONNECT_BACKUPID , OnConnectBackupID) 
ON_MESSAGE {CMD_CONNECT_FAILURE, OnConnectFailure ) 

END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CLoginDlg dialog 

CLoginDlg: rCLoginDlg (CUC2Socket* pSocket, CWnd* pParent /*=NULL*/) 
: CDialog (CLoginDlg :: IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CLoginDlg) 
m_strHost = _T(""); 
m_strPassword = _T ( " " ) ; 
m_strSec - _T ("" ) ; 
// } }AFX_DATA_INIT 
m_bConnecting - FALSE ; 

m_uiTimer = 0; 

m_jpConnThread = NULL; 

m_hConnThread = NULL; 

m_jpSocket = pSocket; 

ASSERT (m__pSocket) ; 

m_strMessage . LoadString ( IDS_LOGIN_BEGIN) ; 
m_bFir St Focus = TRUE; 

#ifndef _MALL 

m_bPause = TRUE ; 

#endif 

CString strPath ( *gResMan . GetResPath ( ) ) ; 
CString strFile (strPath + BMP_LOGIN_BACK) ; 
m_pDIBBack = new CDIB; 
if ( !m_pDIBBack->Load (strFile) ) 

{ 

delete m_pDIBBack; 
m_j>DIBBack = NULL; 
return ; 

} 

// Create the palette from the DIB. 
m_pPal = new CDIBPal; 
ASSERT (m_pPal) ; 

if ( !m_pPal - >Create (m_pDIBBack) ) 

{ 

AfxMessageBox ( "Failed to create palette from DIB file"); 
delete m_pPal; 
m_pPal = NULL; 

} 

#ifndef _iyiALL 

/* StrFile = strPath + BMP_LOGIN_OVAL ; 
m_pDIBOval = new CDIB; 
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if ( !m_pDIBOval->Loaci (strFile) ) 

{ 

delete m_pDIBOval; 
mj)DIBOval - NULL; 
return; 

} 

strFile = strPath + BMP_LOGIN_ANI ; 
m_pDIBAni = new CPhasedSprite ; 
if ( !m__pDIBAni->Load (strFile) ) 

{ 

delete m_pDIBAni; 
m_pDIBAni = NULL; 
// return; // skip 

} 

else 
{ 

//#ifdef _MALL 

// m_pDIBAni->SetNumCells (1, 8); // Row, Col 

m_pDIBAni->SetNumCells (3 , 4); // Row, Col 
m_jDDIBAni->SetCell (0) ; 
m_pDIBAni ->GetRect (m_rcAni) ; 
m rcAni ,0f f setRect (PTLT AND ; 



} 

#endif 

StrFile = strPath + BMP_LOGIN_BTN_OK; 
m_btnOK. Load (strFile) ; 
m_btnOK. SetPalette (m_jpPal) ; 

StrFile = strPath + BMP_IiOGIN_BTN_NO ; 
m_btnCancel . Load ( StrFile) ; 
Tn_btnCancel . SetPalette (m_pPal) ; 

#ifndef _MALL 

/* for (int i=0; x < 2; i++) 



{ 



StrFile = (i==0) ? strPath + BMP_LOGIN_BTN_LAN 

: StrPath + BMP_LOGIN_BTN_MODEM; 
m_apDIBLM[i] = new CPhasedSprite; 
if ( •m_apDIBLM[i] - >Load ( strFi le ) ) 
{ 

delete m_apDIBLM [i ] ; 
m_apDIBLM[i] - NULL; 



} 

else 
{ 



m_apDIBLM [i] ->SetNumCells (3 , 1); // Row, Col 

m_apDIBLM [i] ->SetCell (0) ; 
m_apDIBLM[i] - >GetRect (m_rcLM [i] ) ; 
m_rcLM [i] .Of f setRect (PTLT LM [i] ) ; 



*/ 

// m nCurCell = 0; 
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// Tn_nBehavior = ANI_TAP; 

#endif 

m_uiTimer = 0; 

m_nElapsedSec - 0; 

m_dwLastTick = OL; 

ni_NullBrush-CreateStockObject (NULL_BRUSH) ; 

m_fontMessage.CreateFont (-12, 0, 0, 0, FW_BOLD,// FW_NORMAL 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
DEFAULT_CHARSET , OUT_CHARACTER_PRECI S , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY , 

DEFAULT_PITCH | | FF_DONTCARE , 

#ifdef _KOREAN 

"±^. ^AH") ; 

#else 

"Times New Roman") ; 

#endif 
} 

CLoginDlg : : -CLoginDlg ( ) 

{ 

if (m_pDIBBack) 

delete m_pDIBBack; 
if (m_j)Pal) 

delete m_pPal ; 
#ifndef _MALL 
/* if (m_pDIBOval) 

delete m_pDIBOval; 
if (m_j)DIBAni) 

delete m_pDIBAni; 
for (int i=0; i < 2; i++) 
{ 

if (m_apDIBLM [i] ) 

delete m_apDIBLiyi [i] ; 

}*/ 

#endif 
} 

void CLoginDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CLoginDlg) 

DDX__CBString (pDX, IDC_CB_HOST, m_strHost) ; 
DDX_Text (pDX, IDC_EDIT_NICKNAME , m_st rNickName) ; 
DDV_MaxChars (pDX, m_st rNickName , 20); 
DDX_Text (pDX, IDC_EDIT_PASSWORD, m_str Password) ; 
DDV_MaxChars (pDX, m_strPassword, 12); 
DDX_Text (pDX, IDC_ST_MESSAGE, m_strMessage ) ; 
DDX_Text (pDX, IDC_ST_SECONDS, m_strSec) ; 
// } }AFX_DATA_MAP 

} 

void CLoginDlg :: PositionControl (const int nCtrllD, const CRectSc rcCtrl) const 
{ 

CWnd* pW = GetDlgltem(nCtrllD) ; 
ASSERT (pW) ; 

pW- >SetWindowPos (NULL, rcCtrl.left, rcCtrl.top, 
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} 



rcCtrl .width ( ) , rcCtrl .Height {) 
SWP_NOZORDER | SWP__NOACTIVATE ) ; 



BOOL CLoginDlg: :OnInitDialog {) 
{ 

if ( !m_pDIBBack) 

return FALSE; 
CDialog; : Onini tDialog { ) ; 



m_btnOK. SubclassDlgltem (IDOK, this) ; 
m_btnCancel - SubclassDlgltem ( IDCANCEL, this) ; 



#ifdef __MALL 

// CPoint ptLT{360, 262); 

CPoint ptLT(338, 178); 

m_btnOK , MoveResize (ptLT) ; 
// ptLT.x = 10; 

// ptLT.y = 265; 

ptLT.x = 2 66; 

ptLT.y = 231; 

m_btnCancel .MoveResize (ptLT) ; 

#else 

// CPoint ptLT(349, 238); 

CPoint ptLT(35, 191); 

m_btnOK. MoveResize (ptLT) ; 
// ptLT.x = 17; 

ptLT.x = 174; 

m_btnCancel .MoveResize (ptLT) ; 



#endif 

PositionControl (IDC_EDIT_NICKNAME , RECT_NICKNAME) ; 

PositionControl (IDC_EDIT_PASSWORD , RECT_PAS SWORD) ; 
#ifndef _MALL 

// GetDlgltem (IDC_EDIT_PASSWORD) - >ShowWindow (SW_HIDE) ; 

#endif 

PositionControl { IDC_ST_MESSAGE , RECT_MESSAGE) 
PositionControl (IDC_ST_SECONDS , RECT_SECONDS ) 

PositionControl ( IDC_CB_HOST, RECT_HOST) ; 

CWnd* pW = GetDlgltem (IDC_ST_MESSAGE) ; 
pW->SetFont (&m_fontMessage, FALSE) ; 

CComboBox* pCB = { CComboBox* ) GetDlgltem ( IDC_CB_HOST) ; 
pCB->SetItemHeight (-1, 15) ; 
pCB->ShowWindow(SW_HIDE) ; 

for (int i=0; i < gResMan . GetNumServer IPs ( ) ; i++) 

{ 

pCB->InsertString(-l, *gResMan . GetServerIP ( i ) ) ; 

} 

CUC2APP* pApp = (CUC2App*) AfxGetApp 0 ; 
ASSERT (pApp) ; 

m_nTimeOut = pApp- >RegGetTimeOut ( ) ; 
if (m_nTimeOut < 10) 

m_nTimeOut = 10; // must be at least 10 sec. 



A- 170 



LoginDlg.cpp 




SetConnType (pApp- >RegGetConnType () ) ; 
m_uiTimer = SetTimer (4002 , MSPT_TIMER, NULL) ; 

// CG: The following block was added by the ToolTips component. 

{ 

// Create the ToolTip control. 
m_tooltip . Create (this) ; 
m_tool tip .Activate (TRUE) ; 

m_tooltip.AddTool (GetDlgltem { IDC_EDIT__NICKNAME) , 
IDC_EDIT_NICKNAME) ; 

m_tooltip.AddTool (GetDlgltem { IDC__EDIT_PASSWORD) , 
IDC_EDlT_PASSWORD) ; 
// m_tooltip . AddTool (this , IDS__CONNECT_LAN, &:m_rcLM[0], 100); 

// m_tooltip. AddTool (this, IDS_CONNECT_MODEM , &m_rcLM[l], 101] 

// m__tooltip . AddTool (GetDlgItem(IDC_<name>) , "<text>") ; 

} 

/* 

CRect rcWnd; 
GetWindowRect (&:rcWnd) ; 
CClientDC dc(this); 

// Center this dialog in the screen 

CPoint lt{ (dc .GetDeviceCaps (HORZRES) - rcWnd . Width () ) / 2, 

(dc.GetDeviceCaps (VERTRES) - rcWnd . Height () ) / 2); 

SetWindowPos (NULL, It.x, It.y, 0, 0, SWP_NOSIZE | SWP__N0ZORDER | 
SWP_NOACTIVATE) ; 
*/ 

// CSplashWnd: : HideSplashScreen () ; 
#ifndef _MALL 

// StartAnimation (ANI_TAP) ; 
#endif 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void CLoginDlg : rOnPaletteChanged (CWnd* pFocusWnd) 

{ 

CDialog: : OnPalet teChanged (pFocusWnd) ; 

if (pFocusWnd !^ this) 

OnQueryNewPalette () ; 

} 

BOOL CLoginDlg: : OnQueryNewPalette { ) 

{ 

if (m_pPal) 
{ 

CDC* pdc - GetDCO ; 

CPalette* pPalOld = pdc- >SelectPalette (m_pPal , FALSE); // 

foreground 

UINT u = pdc->RealizePalette 0 ; 
if (pPalOld) 

pdc- >SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
// if (u) 

// { // Some colors changed so we need to do a repaint. 

Invalidate 0 ; // Repaint the lot. 
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return TRUE; // Say we did something. 

// } 
} 

return FALSE; // Say we did nothing. 

} 

BOOL CLoginDlg : : PreTranslateMessage (MSG* pMsg) 

{ 

// CG: The following block was added by the ToolTips component. 

{ 

// Let the ToolTip process this message. 
m_tooltip . RelayEvent (pMsg) ; 

} 

return CDialog :: PreTranslateMessage (pMsg ) ; // CG : This was added 

by the ToolTips component . 

} 

void CLoginDlg : rOnSize (UINT nType , int cx, int cy) 

{ 

CDialog :: OnSize (nType , cx, cy) ; 
if (m_pDIBBack) 

SetWindowPos {NULL, 0, 0, m_pDIBBack - >GetWidth ( ) , m_j)DIBBack- 
>GetHeight () , 

SWP_NOMOVE I SWP_NOZORDER | SWP_NOACTIVATE ) ; 
BOOL CLoginDlg : :OnEraseBkgnd (CDC* pDC) 

{ 

CDialog: :OnEraseBkgnd (pDC) ; // This should be called here! 

// Make sure we have what we need to do a paint. 

if ( !m_pDIBBack) // | | !m_pDIBOval) 

{ 

TRACE ("CLoginDlg: No DIB!\n"); 
return FALSE; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (m_pPal) 
{ 

pPalOld = pDC->SelectPalette (m_pPal , FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette 0 ; //we realize in response to 

WM_QUERYNEWPALETTE 

} 

m_pDIBBack->Draw (pDC, 0, 0); 
#ifndef _MALL 

/ / m_pDIBOval - >Draw (pDC , PTLT_OVAL . x , PTLT_OVAL . y ) ; 

#endif 

/* 

if (m_pDIBAni) 

m_pDIBAni->Draw (pDC, PTLT_AN1) ; 
if (m_apDIBLM [0] ) 

m_apDIBLM[0] ->Draw(pDC, PTLT_LM[0] ) ; 
if (m_apDIBLM [1] ) 
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m_apDIBLM[l] ->Draw(pDC, PTLT_LM[1] ) ; 

// Select old palette if we altered it. 
if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 

return TRUE; 



} 



void CLoginDlg : :OnPaint () // will work for InvalidateRect ( ) 

{ 

CPaintDC dc(this); // device context for painting 

// Make sure we have what we need to do a paint, 

if { !m_pDIBBack) // || lm_pDIBOval) 

{ 

TRACE ("CLoginDlg: No DIB!\n"); 
return; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld - NULL; 
if (m_jpPal) 

{ 

pPalOld = dc . SelectPalette (m__pPal , FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette ( ) ; // we realize in response tc 

WM_QUERyNEWPALETTE 

} 

// m__pDIBBack- >Draw (&dc , 0, 0); 

/ / m_pDIBOval - >Draw ( &dc , PTLT_OVAL . x , PTLT_OVAL . y ) ; 

#ifndef _MALL 
/* if (m__pDIBAni) 

m_pDIBAni->Draw(&dc, PTLT_ANI) ; 
if (m_apDIBLM [0] ) 

m_apDIBLM [ 0 ] - >Draw ( &dc , PTLT_LM [ 0 ] ) ; 
if (m_apDIBLM [1] ) 

m_apDIBLM[l] ->Draw(&dc, PTLT_LM[1] ) ;*/ 

#endif 

// Select old palette if we altered it. 
if (pPalOld) 

dc . SelectPalette (pPalOld, FALSE) ; 

} 

void CLoginDlg : :OnTimer (UINT nIDEvent) 

{ 

if (m_bConnecting) 

{ 

int nSec = ( : : GetTickCount () - m_dwLastTick) / 1000 ; 
if (nSec !^ m_nElapsedSec) 

{ 

m_nElapsedSec = nSec; 

CWnd* pW = GetDlgItem{IDC_ST_SECONDS) ; 
// pW->ShowWindow(SW_HIDE) ; 

m_strSec . Format ( "%3d" , m_nElapsedSec ) ; 
UpdateData (FALSE) ; // Write 

InvalidateRect (RECT_SECONDS , TRUE) ; 
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// pW->ShowWindow(SW_SHOW) ; 

if (m_nElapsedSec > m_nTimeOut) 

{ 

ShowMessage ( IDS_ERROR_TIMEOUT) ; 
m_pSocket - >FDisconnect () ; 
StopCount ( ) ; 

WaitForConnectThread ( ) ; // Wait until the thread ends 

m_btnOK. EnableWindow (TRUE) ; 

GetDlgltem(IDCANCEL) ; 

CWnd* pWnd = GetDlgltem ( IDCANCEL) ; 

pWnd- >SetFocus () ; 

} 

} 

} 

I II III III II Animation 
ttifndef _MALL 

/* if ( !m_pDIBAni | ( (m_nBehavior < 0) | | m_bPause) 
return; 

if (++m_nCurCell > ANl_BEH_COUNT [m_nBehavior] ) 
{ 

if (m^bConnecting) 

StartAnimation (ANI_ROUND) ; 

else 

{ 

StartAnimation(ANI__TAP) ; 
// StopAnimation ( ) ; 

} 

} 

#endif 



CClientDC dc (this) ; 
CPalette* pPalOld = NULL; 
if (m_pPal) 
{ 

pPalOld = dc-SelectPalette (m_pPal, FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette {) ; //we realize in response to 

WM_QUERYNEWPALETTE 

} 

#ifndef _MALL 

/* int nCell = ANI_BEH [m^nBehavior] [m_nCurCell} ; 
if (nCell != m_pDIBAni->GetCellID() ) 
{ 

m_pDIBAni->SetCell (nCell) ; 
m__pDIBAni - >Draw ( Scdc , PTLT_ANI ) ; 

} 

*/ 

#endif 

// Select old palette if we altered it . 
if (pPalOld) 

dc . SelectPalette (pPalOld, FALSE) ; 



// CDialog : rOnTimer (nlDEvent) ; 
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} 

void CLoginDlg : : OnDestroy { ) 

{ 

CDialog: : OnDestroy () ; 
if (m_uiTiTner ) 

{ 

KillTimer (m_uiTimer) ; 
// m__uiTimer = 0; 

} 

} 

BOOL CLoginDlg :: OnSetCursor (CWnd* pWnd, UINT nHitTest, UINT message) 
{ 

// : :SetCursor {AfxGetApp () - >LoadCursor { IDC_HARROW) ) ; 

// return TRUE; 

return CDialog :: OnSetCursor (pWnd , nHitTest, message); 

} 

void CLoginDlg : rOnLButtonDown (UINT nFlags, CPoint point) 
{ 

#ifndef _MALL 

/* m_nBehavior++ ; 

if (m_nBehavior > 2) 

m__nBehavior = 0 ; 

m_nCurCell = 0; 

if ( !m_bConnecting && m_apDIBLM [0 ] && m_apDIBLM [ 1] ) 
{ 

if (m_rcLM [0] .PtXnRect (point) ) // LAN 

{ 

SetConnType (GLOBAL_HOST) ; 

ShowMessage (IDS_CONNECTION_TYPE_GLOBAL) ; 

} 

else if (m_rcLM [1] . PtInRect (point) ) // MODEM 
{ 

SetConnType (LOCAL_HOST) / 

ShowMessage (IDS_CONNECTION_TYPE_LOCALi) ; 

} 

} 

V 

#endif 

CDialog: : OnLButtonDown (nFlags , point) ; 

} 

void CLoginDlg :: SetConnType (const int n) 

{ 

m_nConnType = n ; 

if (m_nConnType == USERDEF_HOST) 
{ 

CUC2App* pApp = (CUC2App*) AfxGetApp 0 ; 
ASSERT (pApp) ; 

pApp- >RegGetServer (m_strHost ) ; 

CComboBox* pCB = (CComboBox* ) GetDlgltem (XDC_CB_HOST) ; 
pCB->ShowWindow(SW_SHOW) ; 
if ( ! m_strHost . IsEmpty () ) 

{ 
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pCB- >InsertString (0 , m_strHost) ; 
pCB- >SetCurSel ( 0 ) ; 

} 

} 

#ifndef _MALL 

/* if (m_apDIBLM [0] && m_apDIBLM [1] ) 

{ 

m_apDIBLM [0] ->SetCell ( (n == GLOBAL._H0ST) ? 2 : 0) ; 
m_apDIBLM [1] ->SetCell ( (n LOCAL._HOST) ? 2 : 0) ; 

InvalidateRect (m_rcLM [0] , FALSE) ; 
InvalidateRect (Tn_rcLM [1] , FALSE) ; 

} 

*/ 

#endif 
} 

void CLoginDlg : :OnLButtonDblClk (UINT nFlags, CPoint point) 
{ 

if (nFlags & MK_CONTROL) 
{ 

#ifndef _MALL 

// Authority Check 

if (m_rcAni . PtInRect (point ) ) 

{ 

CInput Password PasswordDlg; 
PasswordDlg . DoModal ( ) ; 

if (PasswordDlg . m_strPassword === UC2PASSWORD) 

{ 

CComboBox* pCB = (CComboBox*) GetDlgItem(IDC_CB_HOST) ; 
pCB- >ShowWindow (SW_SHOW) ; 
SetConnType (USERDEFHOST) ; 

} 

} 

#endif 

} 

CDialog: : OnLButtonDblClk (nFlags , point) ; 

} 

void CLoginDlg : :OnOK ( ) 

{ 

m_btnOK. EnableWindow (FALSE) ; // Disable OK button to prohibit 
reentrancy 

UpdateControlBackground (RECT_MESSAGE) ; 
UpdateData (TRUE) ; // Retrieve 
if (m_strNickName . IsEmpty ( ) ) 
{ 

// MsgProgress2 ( "Aa^ Al . §A» A6 • AgiH^i a . " ) ; 

CEdit* pEdit = (CEdit*) GetDlgltem (IDC_EDIT_NICKNAME) ; 
pEdit- >SetFocus () ; 

pEdit->SetSel (0, -1); // select all 
pEdit- >ReplaceSel ( "chat -name ! " ) ; 
pEdit->SetSel (0, -1) ; 
m_btnOK- EnableWindow (TRUE) ; 
return ; 

} 

ShowMessage ( IDS_LOGIN_CONNECTING) ; 
#ifndef MALL 
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// StartAnimation {ANI_ROUND) ; 

#endif 

/ / New Connect 

: : ZeroMemory (&m_eclnf o, sizeof {EC_CONNINFO) ) ; 
int len; 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 
CUC2DOC* pDoc = (CUC2DOC*) pMF->GetActiveDocument ( ) ; 

pDoc- >PlayWaveFile ( "down_event . wav" ) ; 

CUC2App* pApp = (CUC2APP*) AfxGetApp () ; 
ASSERT (pApp) ; 

pApp- >RegSetConnType (m_nConnType) ; // Save current connection type 

if {m_nConnType == USERDEF_HOST) 
{ 

len = m_strHost - GetLength ( ) ; 

m_eclnf o . szServer = m_strHost - GetBuf f er ( len) ; 

pApp- >RegSetServer (m_strHost ) ; // Save server address 

} 

else 

{ 

CString* pS = gResMan . GetServerIP (m_nConnType) ; 

// IP addres 

*pS = "216.112.5.150"; 



if (pS) 
{ 

len = pS->GetLength ( ) ; 

m_ecInfo , szServer = pS- >GetBuf f er { len) ; 

} 

else 

{ 

m_ecInfo . szServer ^ _T ( " 88 . 1 . 26 . 2 " ) ; 

} 

} 

len = m_strNickName . GetLength ( ) / 

m_eclnf o . szNick = m_strNickName . GetBuf f er ( len) ; 

// This should be in memory for ConnectionFunct ion thread 
static CString strNickBak = m_s trNickName + _T("0"); 
m_eclnf o . szNickBak = strNickBak . GetBuf fer ( len-fl ) ; 

static CString strUserName; 

strUser Name .Format ( "%c%d%02d^ " , UC2_SIGN_CHAR , GetClientVersion ( ) / 
100, GetClientVersion () % 100); 

// StrUserName += *{ (CMainFrame* ) AfxGetMainWnd ())- >GetUserID () ; // 
Can't use Korean 

len = StrUserName . GetLength () ; 

m_eclnf o . szUserName = strUserName . GetBuf fer { len+1 ) ; 

m_eclnf o . szPass = NUXjL.; 

m_ecInfo . f Authenticate = FALSE; // use anonymous connection 

ASSERT (m_nTimeOut >= 10); 

m_ecInfo.dwTimeOut = (DWORD) m_nTimeOut * 1000; // 

milliseconds 



A- 177 



LoginDlg.cpp 




HRESULT hr = : : HrVerif yNickA {m_eclnf o . szNick) ; 
//HRESULT hr = : : HrVerif yNickW (m_eclnf o . szNick) ; 
if (FAILED (hr) ) 
{ 

ShowMessage { IDS_INVALID_CHATID) ; 

CEdit* pEdit = (CEdit * ) GetDlgltem ( IDC_EDIT_NICKNAME) ; 
pEdi t - >SetFocus () ; 

pEdit->SetSel {0 , -1); // select all 
m_btnOK.EnableWindow(TRUE) ; 
return ; 

} 

StartCount ( ) ; 
// m_btnCancel - EnableWindow (FALSE) ; 
WaitForConnectThread ( ) ; 

m_pConnThread = Af xBeginThread (ConnectFunct ion , ( LPVOID) this ) ; 
ASSERT (m_pConnThread) ; 

m__hConnThread = m_pConnThread- >m_hThread ; // Save the handle for 
: : WaitSingleObj ect 

TRACE ( "CLoginDlg created a thread for Connect ionFunct ion [%lx] \n" , 
m_pConnThread->m_nThreadID) ; 

// CDialog : : OnOK ( ) ; // Connect ionFunct ion will call EndDialog 



void CLoginDlg :: OnCancel { ) 
{ 

ShowMessage ( IDS_CANCELED_CONNECTION) ; 

CMainFrame* pMF (CMainFrame* ) Af xGetMainWnd ( ) ; 
CUC2DOC* pDoc = (CUC2DOC*) pMF->GetActiveDocument { ) ; 

pDoc->PlayWaveFile ( "down_event . wav" ) ; 

mj>Socket- >FDisconnect () ; 
StopCount ( ) ; 

WaitForConnectThread () ; // Wait until the thread ends 
CDialog : : OnCancel ( ) ; 



HBRUSH CLoginDlg : :OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
{ 

#ifdef _MALL 

if (nCtlColor CTLCOLOR_EDIT) 
{ 

pDC->SetTextColor (PALETTERGB (0, 0, 255)); // yellow 255,255,128 
pDC->SetBkMode (TRANSPARENT) / 
return (HBRUSH) m_NullBrush; 

} 

else 

{ 

return CDialog :: OnCtlColor (pDC, pWnd, nCtlColor); 

} 

#else 

pDC->SetBkMode (TRANSPARENT) ; 
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return (HBRUSH) m_NullBrush; 

#endif 
} 

void CLoginDlg :: UpdateControlBackground (const CRect& rcBack, const bDeflate) 
{ 

if ( !m_jpDIBBack) 

return ; 
CRect rc (rcBack) ; 
if (bDeflate) 

rc .Def lateRect (1, 2) ; 
InvalidateRect {&rc, TRUE) ; 

} 

void CLoginDlg :: ShowMes sage (const int nIDS) 

{ 

UpdateData (TRUE) ; // Retrieve contents in edit control 
if (nIDS ScSc ! m_strMessage . LoadString (nIDS) ) 
return; 

CWnd* pWnd = GetDlgltem ( IDC_ST_MESSAGE) ; 
pWnd->ShowWindow(SW_HIDE) ; 

UpdateControlBackground (RECT_MESSAGE, FALSE); // Don't deflate 
rectangle 

UpdateData (FALSE) ; // Write 

pWnd->ShowWindow(SW_SHOW) ; 

} 

void CLoginDlg: : OnSetf ocusEditNickname () 

{ 

if (m_bFir St Focus) 

{ 

m_bFirst Focus = FALSE; 
return; 

} 

ShowMessage (IDC_EDIT_NICKNAME) ; 
#ifndef _MALL 

// StartAnimation (ANI_LOOK) ; 

#endif 

} 

void CLoginDlg: : OnSetf ocusEditPassword ( ) 
{ 

ShowMessage ( IDC_EDIT_PASSWORD) ; 
#ifndef _MALL 
// StartAnimation (ANI_LOOK) ; 
#endif 
} 

void CLoginDlg : : OnUpdateEdi tNickname ( ) 

{ 

// TODO: If this is a RICHEDIT control, the control will not 

// send this notification unless you override the 
CDialog: : Onini tDialog ( ) 

// function to send the EM_SETEVENTMASK message to the control 

// with the ENM_UPDATE flag ORed into the iParam mask. 
#ifndef _MALL 
// StartAnimation (ANI_LOOK) ; 
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#endif 

UpdateControlBackground (RECT_MICKNAME ) ; 



void CLoginDlg : : OnKil If ocusEditNickname ( ) 
OnUpdateEditNickname ( ) ; 



void CLoginDlg: : OnUpdateEditPassword ( ) 

UpdateControlBackground (RECT_PAS SWORD) ; 



void CLoginDlg: : OnKi llf ocusEditPassword ( ) 
OnUpdateEditPassword ( ) ; 



void CLoginDlg: : OnEditupdateCbHost ( ) 

CRect rc (RECT_HOST) ; 

rc- bottom = rc . top + 22; 

UpdateControlBackground (rc) ; 



void CLoginDlg: : OnKil If ocusCbHost () 
OnEditupdateCbHost { ) ; 



// another thread for connection 

// m_pFactory- >HrMakeSocket ( ) blocks 

UINT CLoginDlg :: Connect Function (LPVOID pParam) 

{ 

CLoginDlg* pDlg = (CLoginDlg* ) pParam; 
HWND hDlg = pDlg- >Ge tSaf eHwnd ( ) ; 

if ( IpDlg- >m__pSocket - >FConnect ( &pDlg- >m_eclnf o, hDlg)) 
{ 

: : PostMessage (hDlg, WM_COMMAND, MAKEWPARAM (CMD_CONNECT_FAILURE , 

0 ) , 0 ) ; 

return FALSE ; 

} 

pDlg->EndDialog (IDOK) ; 



return TRUE; 

} 

void CLoginDlg :: WaitForConnectThread ( ) // to end 

{ 

if ( !m_hConnThread) 
return; 

TRACE ("CLoginDlg - : : WaitForSingleObject (Ox%lx, 3000L);\n", 
m_hConnThread) ; 
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DWORD dwRc = : : WaitForSingleObject (m_hConnThread, 3000L) ; 

switch (dwRc) 

{ 

case WAIT_OB JECT_0 : 

TRACE 0 ( "Thread : WAIT_OBJECT_0\n" ) ; 

break ; 
case WAIT_ABANDONED : 

TRACEO ( "Thread : WAIT_ABANDONED\n" ) ; 

break; 
case WAIT_TIMEOUT : 

TRACEO ( "Thread Hung! Delet ing . . . \n" ) ; 

AfxMessageBox ( "Connecting thread hung ! " ) ; 
// delete m__pConnThread; 

break; 
case WAIT_FAILED: 

PrintWin32Error ( "Thread: WAIT_FAILED ") ; 

breaks- 
default : 

TRACEO ( "Thread Hung I \n" ) ; 

break; 

} 

m__pConnThread = NULL; // auto-deleted 
m_hConnThread = NULL; 

} 

void CLoginDlg : : StartCount ( ) 

{ 

m_dwLastTick = : : GetTickCount ( ) ; 

m_nElapsedSec = -1; 

m_bConnecting = TRUE; 

} 

void CLoginDlg: rStopCount () 

{ 

m_bConnecting = FALSE; 

} 

1 1 1 1 1 1 1 11 1 1 1 / 1 1 1 1 1 / 1 / 11 1 1 1 / 1 1 1 1 / 1 1 1 1 1 1 1 1 1 u 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

mil 

II ChatSock message handler 

LRESULT CLoginDlg :: OnConnectConnecting (WPARAM wParam, LPARAM IParam) 
{ 

ShowMessage ( IDS_CONlsrECTING_SERVER) ; 
return 0 ; 

} 

LRESULT CLoginDlg : :OnConnect Login (WPARAM wParam, LPARAM iParam) 
{ 

ShowMessage { IDS_LOGGING_ON_SERVER) ; 
return 0 ; 

} 

LRESULT CLoginDlg : :OnConnectBackupID (WPARAM wParam, LPARAM iParam) 

{ 

ShowMessage (IDS_TRYING_backup_ID) ; 
m_eclnf o . szNick = rti_ecInfo. szNickBak; 
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return 0; 

} 

LRESULT CLoginDlg : :OnConnectFailure {WPARAM wParam, LPARAM iParam) 
{ 

ShowMessage ( IDS_CONNECTION_FAILED) ; 
/ / Af xGetApp ( ) - >WinHelp (HID_MYTOPIC) ; 
StopCount 0 ; 

m_btnOK-EnableWindow{TRUE) ; 
// m_bmbCancel . Enable Window (TRUE) ; 
return 0; 

} 

UINT CLoginDlg: :OnNcHitTest (CPoint point) 
{ 

UINT nHitTest = CDialog :: OnNcHitTest (point ) ; 
#ifndef _MALL 

CPoint pt (point) ; 
ScreenToClient (ipt) ; 
// const CRect rclnput(129, 172, 366, 261); 

const CRect rclnput(113, 159, 307, 246); 

if { ! rclnput . PtInRect (pt) && ! m_rcAni . Pt InRect (pt ) 

(nHitTest == HTCLIENT) && ( : : GetAsyncKeyS tate (MK_LBUTTON) < 0) ) 
nHitTest = HTCAPTION; 

#endif 

return nHitTest; 

} 



A- 182 



LoginDlg.h 




#if ! defined (AFX_LOGINDLG_H 5D0 7DF04_B3 4 4_1 1D1_8 0E2_0 8 0 0 0 9B9F3 3 9 INCLUDED_) 

#def ine AFX_L.OGINDLG_H 5D0 7DF04_B344_11D1_80E2_0 80 00 9B9F3 3 9 INCLUDED^ 

#if _MSC_VER >- 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// LoginDlg.h : header file 
// 

#include "UC2Ani/PSButton . h" 

#include "UC2CS.h" // EC_CONNINFO 

///////////////////////////////////////////////////////////////////////////// 

// CLoginDlg dialog 

class CDIB; 

class CDIBPal; 

class CPhasedSprite ; 

class CUC2Socket; 

enum CONNECT I ON_TYPE 
{ 

GLOBAL_HOST= 0 , LOCAL_HOST= 1 , USERDEF_HOST 

}; 



class CLoginDlg : public CDialog 

{ 

// Construction 
public : 

virtual BOOL PreTranslateMessage (MSG* pMsg) ; 

CLoginDlg (CUC2Socket* pSocket, CWnd* pParent=NULL) ; // standard 
constructor 

virtual -CLoginDlg (} ; 



#ifndef _MALL 

enum ANI_BEHAVIOR 
{ 

ANI_TAP=0, ANI_L0OK, ANI_ROUNrD 

}; 

#endif 

// Dialog Data 

//{ {afx_DATA (CLoginDlg) 
enum { IDD = IDD_DIALOG_LOGIN } ; 
CString m_strHost; 
CString m_strNickName ; 

CString m_strPassword ; 

CString m_strMessage ; 

CString m_strSec; 
// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CLoginDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 



/ / Implementation 
protected : 
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void 

const ; 

void 
bDef late=TRUE) 
void 
void 



PositionControl (const int nCtrllD, const CRecti rcCtrl) 

UpdateControlBackground (const CRectfic rcBack, const 

ShowMes sage (const int nIDS) ; 
SetConnType ( const int n) ; 



CToolTipCtrl 
CDIB* 
#ifndef _MALL 
CDIB* 

CPhasedSprite* 

CPhasedSprite* 

CRect 

CRect 

#endif 

CDIBPal* 

CPSButton 

CPSButton 

CBrush 

BOOL 

#ifndef _MALL 
// Animation 
void 



Tn_tooltip ; 
m_pDIBBack ; 

Tn__pDIBOval ; 
m_pDIBAni ; 
m_apDIBLM [2] ; 
Tn_rcAni ; 
m rcLM [2] ; 



m_jpPal ; 
m_btnOK; 
m_btnCancel ; 

m_Nu 11 Brush ; 
m_bFirstFocus ; 



// Background frame image 

// Oval image 

/ / Ani Character 

// LAN or MODEM button image 

// LAN or MODEM 

// main palette 



0; } 



#endif 



void 



int 
int 
BOOL 

UINT 
int 
DWORD 
CFont 



StopAnimation ( ) 

{ m_bPause = TRUE; m_nCurCell =0; } 
StartAnimation (const int nBeh) 

{ m_bPause = FALSE; m_nBehavior = nBeh; m_nCurCell 



m_nCurCell; // for m_pDIBAni 

m_nBehavior; // for m_pDIB7Vni 
m_bPause; // Pause Animation 

m__uiTimer ; 

m_nElapsedSec ; 
m__dwLastTick; 
m_f ontMessage ; 



CUC2Socket* m__pSocket ; 

EC_CONN INFO m_e c I n f o ; 

BOOL m_bConnecting; 

CWinThread* m_pConnThread ; 
HANDLE m__hConnThread; 
int m_nConnType ; 

int m_nTimeOut ; 



void StartCount () ; 
void StopCountO; 

static UINT ConnectFunct ion (LPVOID pParam) ; 
void WaitForConnectThread ( ) ; 

// ON_MESSAGE 

LRESULT OnConnectConnecting (WPARAM, LPARAM) ; 
LRESULT OnConnectLogin (WPARAM, LPARAM) ; 
LRESULT OnConnectBackupID (WPARAM, LPARAM); 
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} 



LRESULT OnConnectFailure (WPARAM, LPARAM) ; 

// Generated message map functions 
//{ {AFX_MSG (CliOginDlg) 
virtual BOOL OnlnitDialog ( ) ; 
afx_msg BOOL OnEraseBkgnd ( CDC* pDC) ; 
afx_msg BOOL OnQueryNewPalette ( ) ; 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
afx_msg void OnSize (UINT nType , int cx, int cy) ; 
afx_msg void OnTimer (UINT nIDEvent) ; 
afx_msg void OnDestroyO; 

afx_msg BOOL OnSetCursor (CWnd* pWnd, UINT nHitTest, UINT message); 
afx_msg void OnLButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnSet f ocusEditNickname ( ) ; 
afx_msg void OnSetfocusEdit Password () ; 

afx_msg void OnLButtonDblClk (UINT nFlags, CPoint point); 
virtual void OnOK () ; 
virtual void OnCancelO; 

afx_msg HBRUSH OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) ; 

afx_msg void OnUpdateEditNickname () ; 

afx_msg void OnUpdateEdi tPassword ( ) ; 

afx_msg void OnKillf ocusEditNickname () ; 

afx_msg void OnKillf ocusEdi tPassword () ; 

afx_msg void OnEditupdateCbHos t ( ) ; 

afx_msg void OnKillf ocusCbHost () ; 

afx_msg void OnPaint ( ) ; 

afx_msg UINT OnNcHitTest (CPoint point); 

//} }AFX_MSG 

DECLARE MESSAGE MAP ( ) 



// { { AFX_INSERT_L0CATI0N} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

I defined (AFX_LOGINDLG_H 5D07DF04_B344_11D1 80E2 080009B9F339 INCLUDED ) 
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// MainFrm.cpp : implementation of the CMainFrame clas 
// 

//^^==^^==^^^=^===^^^==^^=^^==^=^^^^==^^=^===^=^^^==^= 
II (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT 

//==^======..===^===^==========-=================--=== 

# include "stdaf x .h" 
#include "UC2 -h" 

#include "MainFrm.h" 

#include "Splash .h" 

#include "CloseDlg . h" 

#include "UC2Doc.h" 

#include "UC2View.h" 
#include "WebView.h" 



//#include "ResMan .h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

#define C_MAX_BEEP_TIME 5 00 

//extern CResMan gResMan; 

// Menu/View/Status Bar: ID_VIEW_STATUS_BAR 

// Menu/View/ Control Panel: CG_ID_VIEW_CONTROLPANEL 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame 

IMPLEMENT_DYNCREATE (CMainFrame, CFrameWnd) 

BEGIN_MESSAGE_MAP (CMainFrame, CFrameWnd) 

ON_UPDATE_C0MMAND_UI ( ID_INDICATOR_DATE , OnUpdateDate ) 
ON__UPDATE_COMMAND_UI ( ID_INDICATOR_TIME , OnUpdateTime ) 
ON_C0MMAND_EX (CG_ID_VIEW_HISTORYPANEL, OnBarCheck) 

ON UPDATE_COMMAND_UI ( CG_ID_VIEW_HISTORYPANEL , OnUpdateControlBarMenu) 
ON~COMMAND_EX (CG_ID_VIEW_CONTROLPANEL , OnBarCheck) 

ON~UPDATE_COMMAND_UI ( CG_ID_VIEW_CONTROLPANEL , OnUpdateControlBarMenu) 

ON~WM_QUERYNEWPALETTE ( ) 

ON_WM_P ALETTE CHANGED ( ) 

// { {AFX_MSG_MAP (CMainFrame) 

on_wm_create ( ) 

on_wm__close ( ) 

on_wm_getminmaxinfo ( ) 

on_wm_querynewpalette ( ) 

on_wm_p alette changed ( ) 

on_wm_destr0y ( ) 

on_wm_size 0 

ON_COMMAND ( ID_EDIT_COPY , OnEditCopy) 

ON UPDATE_COMMAND_UI (ID_EDIT_COPY, OnUpdateEdi tCopy ) 
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ON^COMMMD (ID_EDIT_CUT, OnEditCut) 

ON_UPDATE_COMMAND_UI ( ID_EDIT_CUT , OnUpdateEdi tCut ) 
ON_COMMAND ( ID_EDIT_NOTEPAD , OnEdi tNotepad) 
ON_COMMAND ( ID_EDIT_PASTE , OnEdi tPaste) 

ON_UPDATE_COMMAND__UI ( ID_EDIT_PASTE , OnUpdateEdi t Pas te ) 
ON_COMMAND ( ID_EDIT_UNDO , OnEdi tUndo) 

ON_UPDATE_COMMAJSrD_UI { ID_EDIT_lJNDO , OnUpdateEdi tUndo ) 
ON__COMMAND { ID_HELP__HOMEPAGE , OnHelpHomepage ) 
// SATYA CHANGES START 

// Added new message Handlers for PopMenu from 
// desk top Icon.. 

ON_COMMAND (UCMN_MINIMISE , OnPopMinimise ) 
ON_COMiyLAND ( UCMN_MAX I M I SE , On Pop Max i mi s e ) 
ON_COMMAND {UCMN_UNICHAT , OnUniChat ) 
ON_COMMAMD (UCMN_EXIT , OnUCExit ) 
ON_WM_SYSCOMMAND ( ) 
// SATYA CHANGES END 
//} }AFX_MSG_MAP 
// Global help commands 

ON__COMMAND (ID__HELP_FINDER, CFrameWnd : : OnHelpFinder ) 
ON_COMMAND ( ID^HELP , CFrameWnd : : OnHe Ip ) 

ON__COMMAND { ID_CONTEXT_HELP , CFrameWnd : : OnContextHelp ) 
ON~COMMAND (ID_DEFAULT_HELP, CFrameWnd: : OnHelpFinder ) 
// User-Defined Messages 

ON_MESSAGE { CSMSG_CMD_ADDCHANNEL , OnCsAddChannel ) 

ON_MESSAGE ( CSMSG_CMD_PRIVATEMSG , OnCsPrivateMsg) 

ON_MESSAGE ( CSMSG_CMD_QUERYDATA, OnCsQueryData ) 

ON_MESSAGE {CSMSG_CMD_INVITE , OnCsInvite) 

ON_MESSAGE ( CSMSG_CMD_GOTMEMLIST , OnCsGotMemLi S t ) 

ON_iyiESSAGE (CSMSG_CMD_ADDMEMBER, OnCsAddMember ) 

ON_MESSAGE ( CSMSG_CMD_DELMEMBER , OnCsDelMember ) 

ON~MESSAGE ( CSMSG_CMD_DELCHANNEL , OnCsDelChannel ) 

ON~MESSAGE ( CSMSG_CMD_MODEMEMBER , OnCsModeMember ) 

ON~MESSAGE { CSMSG__CMD_MODECHANNEL , OnCsModeChannel ) 

ON_MESSAGE (CSMSG_CMD_TEXT_A, OnCsTextA) 

ON_MESSAGE (CSMSG_CMD_DATA, OnCsData) 

ON_MESSAGE ( CSMSG_CMD_WHISPERTEXT_A, OnCsWhisperText ) 

ON_MESSAGE {CSMSG_CMD_WHISPERDATA, OnCsWhi sperData ) 

ON_MESSAGE ( CSMSG_CMD_NEWTOPIC , OnCsNewTopic ) 

ON_MESSAGE ( CSMSG_CMD_NEWNICK, OnCsNewNick) 

ON_MESSAGE ( CMD_CHANNELFULL_RETRY , OnChanne iFu 1 iRe t ry ) 
#ifdef _UNITEL 

ON_MESSAGE ( WM_COMMREAD , OnCommRead) 

ON_ME S SAGE { UM_EX I T , OnUmEx i t ) 

// ON_MESSAGE (UM_DOWNLOAD, OnUmDownLoad) 

#endif // _UNITEL 

END_MESSAGE__MAP ( ) 

static UINT indicators [] = 

{ 

ID_SEPARATOR, // status line indicator 

ID_INDICATOR_CAPS , 
I D_ I ND I C ATOR_NUM , 
ID_INDICATOR_SCRL , 

}; 

///////////////////////////////////////////////////////////////////////////// 
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// CMainFrame construction/destruction 

CMainFrame : : CMainFrame ( ) 
{ 

TRACE { "CMainFrame : : CMainFrame ( ) \n" ) ; 
m_tmStart = CTime : : GetCurrentTime ( ) ; 
m_pPalette = NULL; 
m_bFree2e = FALSE; 
m_bAskBeforeClose = TRUE; 

} 

CMainFrame : : -CMainFrame ( ) 
{ 

TRACE ( "CMainFrame : : -CMainFrame { ) \n" ) ; 

} 

int CMainFrame :: OnCreate (LPCREATESTRUCT IpCreateStruct ) 
{ 

TRACE ( "CMainFrame : : OnCreate ( ) \n" ) ; 
if (CFrameWnd :: OnCreate (IpCreateStruct) == -1) 
return -1; 



if {! m_wndToolBar . Create (this ) || 

!m wndToolBar . LoadToolBar (IDR MAINFRAME)) 



TRACED ( "Failed to create toolbar\n") 
return -1; // fail to create 



} 



if (! m_wndStatusBar . Create (this) || 

! m_wndStatusBar . Set Indicators (indicators , 
sizeof (indicators) /sizeof (UINT) ) ) 



{ 



} 



TRACEO ( "Failed to create status bar\n"); 
return -1; // fail to create 



/* 

// TODO: Remove this if you don't want tool tips or a resizeable 
toolbar 

m_wndToolBar . SetBarStyle {m_wndToolBar . GetBarStyle ( ) | 
~ CBRS_TOOIjTIPS I CBRS_FL.YBY | CBRS_SIZE_DYNAMIC) ; 

// TODO: Delete these three lines if you don't want the toolbar to 
// be dockable 

m_wndToolBar . EnableDocking ( CBRS_ALIGN_ANY) ; 
EnableDocking (CBRS_ALIGN_ANY) ; 
DockControlBar (&m_wndToolBar) ; 

*/ 

// TODO: Add a menu item that will toggle the visibility of the 
// dialog bar named "ControlPanel " : 

// 1 . In ResourceView, open the menu resource that is used by 
// the CMainFrame class 

// 2. Select the View submenu 

// 3. Double-click on the blank item at the bottom of the submenu 
// 4. Assign the new item an ID: CG_ID_VIEW_CONTROL PANEL 
// 5. Assign the item a Caption: ControlPanel 
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// TODO: Change the value of CG_ I D_V I EW_CONTROL PANEL to an appropriate 

value : 

// 1. Open the file resource. h 

// CG: The following block was inserted by the 'Dialog Bar' component 

{ 

// Initialize dialog bar m_wndControlPanel 
if ( ! m_wndControl Panel . Create (this , 

CBRS_B0TTOM | CBRS_TOOLTIPS | CBRS_FLYBY | 
CBRS_HIDE_INPLACE) ) 
{ 

TRACED ( "Failed to create dialog bar m_wndControlPanel\n" ) ; 
return -1; // fail to create 

} 

#ifdef DOCKING 

m_wndControlPanel . EnableDocking ( CBRS_ALIGN_BOTT0M | 
CBRS_AL.IGN_TOP) ; 

EnableDocking (CBRS_ALIGN_ANY) ; 

DockControlBar ( &in_wndControl Panel ) ; 

#endif 

} 

// TODO: Add a menu item that will toggle the visibility of the 
// dialog bar named "HistoryPanel " : 

// 1 . In ResourceView, open the menu resource that is used by 
// the CMainFrame class 

// 2 . Select the View submenu 

// 3. Double-click on the blank item at the bottom of the submenu 
// 4. Assign the new item an ID: CG_ID_VIEW_HISTORYPANEL 
// 5- Assign the item a Caption: HistoryPanel 

// TODO: Change the value of CG_ID_VIEW_HISTORYPANEL to an appropriate 

value : 

// 1. Open the file resource. h 

// CG : The following block was inserted by the 'Dialog Bar" component 

{ 

// Initialize dialog bar m_wndHi story Panel 
if { !m_wndHi story Panel . Create ( this ^ 

CBRS_RIGHT | CBRS_TOOLTIPS | CBRS_FL.YBY | 
CBRS_HIDE_INPLACE) ) 

{ 

TRACEO C "Failed to create dialog bar m_wndHistoryPanel\n" ) ; 
return -1; // fail to create 

} 

m_wndHistoryPanel .EnableDocking {CBRS_ALIGN_RIGHT | 
CBRS_ALIGN_LEFT) ; 

EnableDocking (CBRS_ALIGN__ANY) ; 
// Changes Start for Out 
EnableDocking (CBRS_ALIGN_ANY) ; 

//DockControlBar (Scm^wndHistoryPanel) ; // syc 0708 

// syc 0708 begin 
CRect rect; 
GetWindowRect (Street) ; 

CPoint pt (rect . right - 40, rect. top + 25); 
FloatControlBar ( &m_wndHistoryPanel , pt) ; 
// end 
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//DockControlBar { &m_wndHi story Pane 1 ) ; 
// Changes End ! ! ! ! 
CString strTitle; 

if (StrTitle. LoadString (IDS_HISTORY_PANEL) ) 

m__wndHi story Panel . SetWindowText (strTitle) ; 

ShowCont rol Bar (&m_wndHi St cry Panel , FALSE, FALSE); 

} 

// CG : The following line was added by the Splash Screen component. 
TRACE ( "CSplashWnd : : ShowSplashScreen ( ) \n" ) ; 
CSplashWnd: : ShowSplashScreen ( this ) ; 
TRACE { "CMainFrame : :OnCreate ( ) - done\n"); 

// CG : The following block was inserted by 'Status Bar' component. 

{ 

// Find out the size of the static variable 'indicators' defined 

// by AppWizard and copy it 

int nOrigSize = sizeof (indicators) / sizeof (UINT) ; 

UINT* pindicators = new UINT [nOrigSize + 2]; 

memcpy (pindicators , indicators, sizeof (indicators) ) ; 

// Call the Status Bar Component's status bar creation function 
if (! InitStatusBar (pindicators , nOrigSize, 60)) 

{ 

TRACED ( "Failed to initialize Status Bar\n"); 
return -1; 

} 

delete [] pindicators; 

} 

//SATYA CHANGES START 

/ / add Unichat icon on the status area 

if ( lAddUCIconOnStatusArea 0 ) 

{ 

Af xMessageBox ( "AdD ICon Failed"); 

} 

//SATYA CHANGES END 
return 0 ; 

} 

void CMainFrame :: ShowHistoryPanel (const BOOL bShow) 

{ 

ShowControlBar {&:m_wndHistoryPanel , bShow, FALSE); 

} 

void CMainFrame :: AdjustPrame (const int nW, const int nH) 

{ 

SetFreeze (FALSE) ; 
CClientDC dc(this); 

int nWidth = min (dc . GetDeviceCaps (HORZRES ) - 40, nW) ; 
int nHeight = min (dc . GetDeviceCaps (VERTRES ) - 40, nH) ; 
if ( ( (nW + 40) >= dc .GetDeviceCaps (HORZRES) ) || 
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( (nH +40} >= dc .GetDeviceCaps (VERTRES) ) ) 

SetWindowPos (ScwndTopMost , 0, 0, nWidth, nHeight, SWP_NOZORDER) ; 

else 

SetWindowPos {&vmdTopMost , 0, 0, nWidth, nHeight, SWP_NOMOVE | 
SWP_NOZORDER) ; 

RecalcLayout {) ; 

CScrollView* pView = (CScrollView* ) GetAct iveView ( ) ; 
pView- >ResizeParentToFit (FALSE) ; // Try shrinking first 

pView- >ResizeParentToFit (TRUE) ; // Let's be daring 

SetFreeze ( ) ; 

} 

// You can call this method in CXXView : : Onini tialUpdate 

BOOL CMainFrame : : InitControlPanel (CPalette* pPal) 

{ 

TRACED ( "CMainFrame : : InitControlPanel () \n") ; 
SetPalette (pPal) ; 

if ( ! m_wndControl Panel . InitControls ( ) ) 

return FALSE ; 
if ( ! m_wndHistoryPanel . InitControls ( ) ) 

return FALSE; 
return TRUE; 

} 

BOOL CMainFrame :: PreCreateWindow (CREATESTRUCT& cs) 

{ 

TRACED ( "CMainFrame : : PreCreateWindow () \n" ) ; 

// TODO : Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 
C S . cx 64 0; 
CS . cy = 4 80 ; 

#ifdef DEMO 

if (cs . hMenu) 

{ 

: : DestroyMenu (cs . hMenu) ; 
cs. hMenu = NULL; 

} 

#endif 

return CFrameWnd : : PreCreateWindow ( cs ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame diagnostics 

#ifdef _DEBUG 

void CMainFrame : lAssertValid ( ) const 

{ 

CFrameWnd: : AssertValid () ; 

} 

void CMainFrame :: Dump (CDumpContext&: dc) const 

{ 

CFrameWnd: :Dump(dc) ; 

} 

#endif / /_DEBUG 
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1 1 11 1 1 1 1 1 1 1 1 / 1 1 1 1 11 1 / 1 1 / 1 f 1 1 1 f / 11 1 1 / 1 1 1 1 1 1 11 1 1 / 1 1 1 1 1 1 / 1 1 1 1 / 1 1 / 1 1 / 1 1 1 1 / n / 1 If I 

II CMainFrame message handlers 

BOOL CMainFrame: : OnQueryNewPalette { ) 

{ 

CView* pview = GetActiveView { ) ; 
if (pview) 

pview- >SendMessage ( WM_QUERYNEW PALETTE , (WPARAM) 0, (LPARAM) o) ; 

if (m_wndControlPanel .GetSaf eHwnd 0 ) 

m_wndControlPanel . SendMessage (WM_QUERYNEW PALETTE , (WPARAM) 0 , 

(LPARAM) 0) ; 

return CFrameWnd : : OnQueryNewPalette () ; 



void CMainFrame :: OnPaletteChanged (CWnd* pFocusWnd) 

{ 

// CG : This function was added by the Palette Support component 
if (pFocusWnd == this || IsChild (pFocusWnd) ) 
return; 

// OnQueryNewPalette ( ) ; 

// Pass this message on to the active view (OSBVeiw-derived) 
CView* pview = GetActiveView () ; 

if (pview) // OnPaletteChanged is not public, so I'll send a message 
pv i ew - > S endMe s s age ( WM_PALETTE CHANG ED , 

(WPARAM) (pFocusWnd- >GetSaf eHwnd 0 ) , 
(LPARAM) 0) ; 

if (m_wndControl Panel . GetSaf eHwnd ( ) ) 

m_wndControl Panel . SendMessage (WM_PALETTE CHANGED, 
(WPARAM) (pFocusWnd- >GetSaf eHwnd 0 ) , (LPARAM) 0); 
CFrameWnd: : OnPaletteChanged (pFocusWnd) ; 



CPalette* CMainFrame: : SetPalette (CPalette* pPalette) 

{ 

// CG : This function was added by the Palette Support component 

// Call this function when the palette changes. It will 

// realize the palette in the foreground to cause the screen 

// to repaint correctly. All calls to CDC : : SelectPalette in 

// painting code should select palettes in the background. 

CPalette* pOldPalette = m_pPalette; 
m_pPalette = pPalette; 
OnQueryNewPalette ( ) ; 
return pOldPalette ; 



void CMainFrame :: OnClose () 
{ 

TRACED ( "CMainFrame : :OnClose {) \n" ) ; 

CUC2DOC* pDoc = (CUC2Doc*)GetActiveDocument 0 ; 

ASSERT (pDoc) ; 
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if (pDoc - >IsDetno ( ) ) 

{ 

pDoc - >EndDemo { ) ; 
return/ 

} 

if (m_bAskBef oreClose) 

{ 

CCloseDlg dig; 

dig . m_st rMessage . LoadString ( IDS_CLOSE_TEXT) ; 
if (dlg.DoModal 0 IDOK) 
return; 

} 

// delet the Icon before closing the application 
DeleteUCIconOnStatusArea ( ) ; 



CFrameWnd: -.OnClose () ; 

} 

void CMainFrame : : OnDestroy ( ) 

{ 

TRACED ( "CMainFrame : : OnDestroy ( ) \n" ) ; 
CFrameWnd: : OnDestroy {) ; 

} 



void CMainFrame :: SetFreeze (const BOOLi bFreeze) 

{ 

m_bFreeze = bFreeze; 
if {m_bFreeze) 

GetWindowRect (&:m_rcMax) ; 

} 



void CMainFrame : lOnGetMinMaxInfo (MINMAXINFO FAR* IpMMI) 
{ 

TRACED ( " OnGe tMinMaxInf o " ) ; 

if (m_bFreeze) 

{ 

CRect rc ; 

GetWindowRect (ficrc) ; 

TRACE (" (%d,%d) (%d,%d)\n'\ rc.left, rctop, m_rcMax . Width ( ) , 
m_rcMax . Height ( ) ) ; 

IpMMI - >ptMaxSize . X = m_rcMax . Width {) ; 

IpMMI - >ptMaxSize .y m_rcMax . Height () ; 

IpMMI - >ptMaxPosition . X = rc.left; 

IpMMI - >ptMaxPosition .y = rc.top; 

IpMMI - >ptMinTrackSize . X = 0; 

IpMMI - >ptMinTrackSize .y = 0; 

IpMMI- >ptMaxTrackSize .X = m_rcMax . Width () ; 

IpMMI - >ptMaxTrackSize . y = m_rcMax . Height {) ; 

} 

TRACED ("\n") ; 

CFrameWnd: : OnGe tMinMaxInf o (IpMMI ) ; 

} 

// If the mainframe is maximized, disable the Freeze menu option because 

// there is no point in making the window non-resizable because a maximized 

// window cannot be resized anyway. 

void CMainFrame : :OnSize (UINT nType , int cx, int cy) 
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{ 

CFrameWnd : : OnSize (nType , cx, cy) ; 
#ifdef _DEBUG 

TCHAR* szType = 
switch (nType) 
{ 

case SIZE_MAXIMIZED : szType = " SIZE_MAXIMIZED" ; breaks- 
case SI2E_MINIMIZED : szType - " S IZE_MINIMI2ED " ; break; 
case SIZE_RESTORED: szType = " SIZE_RESTORED" ; break 
case SIZE_MAXHIDE : szType = "SIZE_MAXHIDE" ; break 
case SIZE_MAXSHOW: szType = "SIZE_MAXSHOW" ; break 
} 

TRACE ( "CMainFrame : : OnSize (%s , %d, %d} \n" , szType , cx, cy) ; 

#endif 



// CMenu* pMenu = GetMenuO ; 

// if (nType =^ SIZE_MAXIMIZED) 

// pMenu->EnableMenuItem(ID_VIEW_FREEZE, MF_DISABLED | MF_GRAYED) 

// else 

// pMenu->EnableMenuItem(ID_VIEW_FREEZE, MF_ENABIjED) ; 

// DrawMenuBar ( ) ; 

} 
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II Edit 

HWND CMainFrame :: GetNotepad ( ) 

{ 

HWND hwndFind = :: FindWindow ( "Notepad" , NULL); // "Tortoise's 

Experiment " 

CTime time = CTime : : GetCurrentTime () ; 

CString strFile (time . Format (_T ( "UC%y%m%d . txt " ) ) ) ; 

if ( 'hwndFind) 

{ 

STARTUP INFO si; 
PROCESS__INFORMATION pi ; 

: : ZeroMemory ( &si , sizeof(si)); 
si.cb = sizeof(si); 



// int len = strFile . GetLength () ; 

// char* szFile = strFile . GetBuf fer { len) ; 

// HINSTANCE hRes = : : ShellExecute (GetSaf eHwnd () , "open", szFile, 
NULL, NULL, SW_SHOWNORMAL ) ; 

// TRACE (": rShellExecute (%xh) returned %ld\n" , hRes); 

// if (hRes <= (HINSTANCE) 32) 

// { 

// CString strError; 

// StrError . LoadString ( IDS_ERROR_BROWSER) ; 

// StrError szFile; 

// AfxMessageBox (strError ) ; 

// return NULL; 

// } 



CString strCmd = _T( "WRITE ") + strFile; 

BOOL bRes - : : CreateProcess ( "C : \ \WINDOWS\\NOTEPAD . EXE " , 
strCmd.GetBuf f er (128) , NULL, NULL, 

FALSE, NULL, NULL, NULL, &si, ficpi); 

if (IbRes) 
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return NULL; 
: : CloseHandle (pi . hThread) ; 
: : WaitForlnputldle (pi - hProcess , 10000) ; 
: : CloseHandle (pi - hProcess } ; 
int nRep~0; 

while (ihwndFind && (nRep++ < 20)) 
{ 

: :Sleep (1000) ; 
TRACE ( " z " ) ; 

hwndFind = :: FindWindow ( "Notepad" , NULL); // 
"Tortoise's Experiment" 

} 

} 

// :: SendMessage (hwndFind, WM_SETTEXT, 0, (LPARAM) (LPCSTR) strFile) ; 
return hwndFind; 

} 

// 1. Find a running Notepad (or initiate a new Notepad) application. 
// 2. Set the contents in the notepad (Edit control) with some texts, 
void CMainFrame : : SendTextToNotepad ( ) 

{ 

CEdit* pE = m_wndHistoryPanel . GetEditHistory ( ) ; 
if (!pE) 

return ; 
CString strText; 
pE->GetWindowText (strText) ; 
int len = strText . GetLength () ; 

TRACEl { "SendTextToNotepad - length : %d\n" , len); 
if (len == 0) 
return ; 
LPCSTR szText = strText; 
HWND hwndFind = GetNotepad () ; 

HWND hwndChild = : : GetWindow (hwndFind , GW_CHILD) ; 

HWND hwnd = hwndChild; 

UINT msg = WM_SETTEXT; 

WPARAM wParam = 0; 

LPARAM iParam = (LPARAM) szText ; 

LRESULT res = :: SendMes sage (hwnd , msg, wParam, 

IParam) ; 

TRACE (":: SendMessage ( Ox%lx, msg, wParam, iParam) ; returned %lx\n 

hwnd, msg, wParam, IParam, res) ; 

} 

void CMainFrame :: OnEditCopy ( ) 
{ 

CEdit* pEdit = GetEditFocus () ; 
if (pEdit) 

pEdit - >Copy ( ) ; 

} 

void CMainFrame : : OnEditCut ( ) 

{ 

CEdit* pEdit = GetEditFocus () ; 
if (pEdit) 

pEdit->Cut 0 ; 

} 
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void CMainFrame : : OnEdi tNotepad ( ) 

{ 

// CEditHistory* pEH = m_wndHistoryPanel . GetEdi tHis tory ( ) 
// if (pEH) 

// pEH->SendTextToNotepad ( ) ; 

SendTextToNotepad { ) ; 

} 

void CMainFrame :: OnEdi t Paste ( ) 
{ 

CEdit* pEdit = GetEditFocus () ; 
if (pEdit) 

pEdit - >Paste ( ) ; 

} 

void CMainFrame :: OnEdi t Undo ( ) 
{ 

CEdit* pEdit = GetEditFocus () ; 
if (pEdit) 

pEdit- >Undo ( ) ; 

} 

void CMainFrame : :OnUpdateEdi t Copy (CCmdUI* pCmdUI) 

{ 

CEdit* pEdit = GetEditFocus () ; 

if (pEdit) 

{ 

int nl , n2 ; 

pEdit- >GetSel (nl, n2) ; 

pCmdUI->Enable (nl != n2 ) ; // IsTextSelected 

} 

else 

{ 

pCmdUI->Enable (FALSE) ; 

} 

} 

void CMainFrame: :OnUpdateEditCut (CCmdUI* pCmdUI) 
{ 

CEdit* pEdit = GetEdi tFocus () ; 

if (pEdit) 

{ 

int nl, n2 ; 

pEdit - >GetSel (nl , n2 ) ; 

pCmdUI->Enable (nl != n2 ) ; // IsTextSelected 

} 

else 

{ 

pCmdUI->Enable (FALSE) ; 

} 

} 

void CMainFrame :: OnUpdateEdit Paste (CCmdUI* pCmdUI) 

{ 

pCmdUI->Enable ( : : IsClipboardFormatAvai lable (CF_TEXT) ) ; 

} 
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void CMainFrame : :OnUpdateEditUndo (CCmdUI* pCmdUI) 

{ 

CEdit* pEdit = GetEditFocus ( ) ; 

pCmdUI->Enable (pEdit ? pEdit->CanUndo {) : FALSE); 

} 

// Get current (focused) edit control 
CEdit* CMainFrame: : GetEditFocus ( ) 

{ 

CWnd* pFocus = GetFocusO; 

CEdit* pEditSend = m_wndControlPanel . GetEditSend ( ) ; 

CEdit* pEditHistory m_wndHistoryPanel . GetEditHi story () ; 

if (pEditSend == pFocus) 

return pEditSend; 
if (pEditHistory pFocus) 

return pEditHistory; 
return NULL; 

} 

BOOL CMainFrame : :ShellBrowseURL (LPCTSTR szURL) 
{ 

TRACE ( "Browsing %s\n" , szURL) ; 

HINSTANCE hRes = : : ShellExecute (GetSaf eHwnd () , "open", szURL, NULL, 
NULL, SW_SHOWNORMAL) ; 

TRACE (":: ShellExecute (%xh) returned %ld\n", hRes); 

if (hRes <- (HINSTANCE) 32) 

{ 

CString strError; 

strError. Loads t ring ( IDS_ERROR_BROWSER) ; 
StrError += szURL; 
AfxMessageBox (strError) ; 
return FALSE; 

} 

return TRUE; 

} 

/* 

BOOL CMainFrame : :LaunchBrowser (LPCTSTR szURL) 

{ 

HKEY hKey; 
CString strBuf; 
LONG cbSize - 255; 

if ( : : RegOpenKey (HKEY_LOCAL_MACHINE , 

"Sof tware\\Classes\\http\\shell\\open" , &hKey) ) 

{ 

TRACE ("ERROR Open Registry\n" ) ; 
return FALSE; 

} 

// "C : \PROGRA~l\PLUS ! \MICROS-l\ iexplore . exe " -nohome 

: : RegQueryValue (hKey , "Command", strBuf . GetBuf f er (cbSize) , fccbSize) 
: : RegCloseKey (hKey) ; 
StrBuf . ReleaseBuf f er ( ) ; 

CString strExec; 

CString strURL (szURL) ; 

int nTot = StrBuf . GetLength 0 ; 

int sep = StrBuf . ReverseFind ( ' '); 
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int nRead = nTot - sep; 

strExec = strBuf . Left (nTot -nRead) + " " + strURL; 
TRACE ( " : :WinExec {%s) \n" , strExec) ; 
: :WinExec (strExec, SW_SHOWNORMAL) ; 

return TRUE; 

} 

*/ 

void CMainFrame : : OnHelpHomepage ( ) 

{ 

CString strURL; 

if (strURL.LoadString(IDS_UNICHAT_HOMEURL) ) 
ShellBrowseURL (strURL) ; 

} 

BOOL CMainFrame :: Is256Palette ( ) const 
{ 

BOOL bResult=TRUE; 

// Get a screen DC to work with. 
HWND hwndActive = : : GetAct iveWindow ( ) ; 
HDC hdcScreen = :: Get DC (hwndActive) ; 
ASSERT (hdcScreen) ; 

// Make sure we are on a palettized device. 

if ( ! ( : :GetDeviceCaps (hdcScreen, RASTERCAPS) & RC_PALETTE) ) 

{ 

bResult = FALSE; 

} 

else 

{ 

// Get the number of system colors and the number of palette 
// entries. Note that on a palletized device the number of 
// colors is the number of guaranteed colors, i.e., the numbe 
// of reserved system colors. 

int iSysColors = :: GetDeviceCaps (hdcScreen, NUMCOLORS) ; 
int iPalEntries = : :GetDeviceCaps (hdcScreen, SIZEPALETTE) ; 

// If there are more than 256 colors we are wasting our time, 
if (iSysColors < 0 | | iSysColors > 256) 

{ 

bResult = FALSE; 

} 

} 

: : ReleaseDC (hwndActive , hdcScreen) ; 
return bResult; 

} 
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II ChatSock Message Handler 

LRESULT CMainFrame : :OnCsAddChannel (WPARAM wParam, LPARAM iParam) 
{ 

CUC2DOC* pDoc = (CUC2DOC* ) GetActiveDocument ( ) ; 
return pDoc- >OnCsAddChannel (wParam, iParam) ; 

} 

LRESULT CMainFrame : lOnCsPrivateMsg (WPARAM wParam, LPARAM IParam) 
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CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument ( ) ; 
return pDoc- >OnCsPrivateMsg (wParam, iParam) ; 

LRESULT CMainFrame : : OnCsQueryData (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc (CUC2DOC*) GetActiveDocument () ; 
return pDoc- >OnCsQueryData ( wParam, IParam) ; 

LRESULT CMainFrame : rOnCsInvite (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument () ; 
return pDoc - >OnCsInvi te (wParam, IParam); 

LRESULT CMainFrame : lOnCsGotMemList (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument 0 ; 
return pDoc - >OnCsGotMemList (wParam, IParam); 

LRESULT CMainFrame : :OnCsAddMember (WPARAM wParam, LPARAM iParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument () ; 
return pDoc - >OnCsAddMember (wParam, IParam); 

LRESULT CMainFrame : rOnCsDelMember (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC* ) GetActiveDocument () ; 
return pDoc - >OnCsDelMember (wParam, IParam); 

LRESULT CMainFrame :: OnCsDel Channel (WPARAM wParam, LPARAM iParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument 0 ; 
return pDoc - >OnCsDelChannel (wParam, IParam); 

LRESULT CMainFrame : rOnCsModeMember (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument 0 ; 
return pDoc->OnCsModeMember (wParam, IParam); 

LRESULT CMainFrame : :OnCsModeChannel (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument 0 ; 
return pDoc - >OnCsModeChannel (wParam, IParam); 

LRESULT CMainFrame : :OnCsText A (WPARAM wParam, LPARAM iParam) 

CUC2DOC* pDoc (CUC2DOC*) GetActiveDocument 0 ; 
return pDoc - >OnCsTextA (wParam, IParam); 
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LRESULT CMainFrame : : OnCsData (WPARAM wParam, LPARAM iParam) 

CUC2DOC* pDoc =^ {CUC2DOC*) GetActiveDocument ( ) ; 
return pDoc - >OnCsData (wParam, iParam) ; 



LRESULT CMainFrame : lOnCsWhisperText (WPARAN wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument {) ; 
return pDoc - >OnCsWhisperText ( wParam, IParam); 



LRESULT CMainFrame :: OnCsWhisperData (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument {) ; 
return pDoc - >OnCsWhisperData (wParam, IParam); 



LRESULT CMainFrame :: OnCsNewTopic (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument 0 ; 
return pDoc - >OnCsNewTopic (wParam, IParam); 



LRESULT CMainFrame :: OnCsNewNick (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument () ; 
return pDoc - >OnCsNewNick: (wParam, IParam); 



LRESULT CMainFrame :: OnChannelFullRe try (WPARAM wParam, LPARAM IParam) 

CUC2DOC* pDoc = (CUC2DOC*) GetActiveDocument () ; 
return pDoc - >OnChannelFullRetry (wParam , IParam); 



void CMainFrame : :OnUpdateDate (CCmdUI* pCmdUI) 

// CG : This function was inserted by 'Status Bar' component. 

// Get current date and format it 
CTime time CTime : : GetCurrentTime ( ) ; 
CString strDate = t ime . Format (_T (" %x" )) ; 

// BLOCK: compute the width of the date string 

CSize size; 

{ 

HGDIOBJ hOldFont = NULL; 

HFONT hFont = (HFONT) m_wndStatusBar . SendMessage (WM_GETFONT) 
CClientDC dc (NULL) ; 
if (hFont != NULL) 

hOldFont = dc. SelectObj ect ( hFont ) ; 
size = dc . GetTextExtent (strDate) ; 
if (hOldFont != NULL) 

dc . SelectObject (hOldFont) ; 
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} 

// Update the pane to reflect the current 
UINT nID, nStyle; 
int nWidth; 

m_wndStatusBar . GetPaneInf o (m_nDatePaneNo, 
m_wndStatusBar . SetPaneInf o (m_nDatePaneNo, 
pCmdUI - >SetText (strDate) ; 
pCmdUI->Enable (TRUE) ; 

} 

void CMainFrame : : OnUpdateTime ( CCmdUI *> pCmdUI) 

{ 

// CG : This function was inserted by 'Status Bar' component. 

// Get current date and format it 
CTime time = CTime : : GetCurrentTime ( ) ; 
CString strTime = t ime . Format (_T (" %X ")) ; 

// BLOCK: compute the width of the date string 

CSize size; 

{ 

HGDIOBJ hOldFont = NULL; 

HFONT hFont - (HFONT) m_wndStatusBar . SendMessage (WM_GETFONT) ; 
CClientDC dc (MULL) ; 
if (hFont != NULL) 

hOldFont = dc . SelectObj ect (hFont ) ; 
size = dc . GetTextExtent ( StrTime) ; 
if (hOldFont != NULL) 

dc . SelectObj ect (hOldFont) ; 

} 

// Update the pane to reflect the current 
UINT nID, nStyle; 
int nWidth; 

m_wndStatusBar . GetPaneInf o (m_nTimePaneNo , 
m_wndS tatusBar . Set Paneinf o (m_nTimePaneNo , 
pCmdUI->SetText (strTime) ; 
pCmdUI->Enable (TRUE) ; 

} 

BOOL CMainFrame :: InitStatusBar (UINT *pIndicators , int nSize, int nSeconds 

{ 

// CG : This function was inserted by 'Status Bar' component. 

// Create an index for the DATE pane 
m_nDatePaneNo = nSize++; 

plndicators [m_nDatePaneNo] = ID_INDICATOR_DATE ; 
/ / Create an index for the TIME pane 
m_nTimePaneNo = nSize++; 
nSeconds = 1 ; 

pindicators [m_nTimePaneNo] = ID_INDICATOR TIME ; 

// TODO : Select an appropriate time interval for updating 
// the status bar when idling. 

m_wndStatusBar - SetTimer ( 0x1000 , nSeconds * 1000, NULL) ; 




date 

nID, nStyle, nWidth) ; 
nID, nStyle, size.cx); 



time 

nID, nStyle, nWidth) ; 
nID, nStyle, size.cx); 
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return m_vmdStatusBar . Set Indicators (pindicators , nSize) 



// SATYA CHANGES START 

BOOL CMainFrame:: OnCreateClient (LPCREATESTRUCT Ipcs, CCreateContext * 
pContext ) 

{ 

TRACE (" \nCMainFrame : : OnCreateCl ient \n " ) ; 
VERIFY (m_wndSplitter.CreateStatic (this, 2 , 1) ) ; 
TRACE (" \nCMa in Frame : : OnCreateClient Viewl\n") ; 

VERIFY (m_wndSplitter.CreateView(0, 0, RUNTIME_CLASS ( CWebView) , 
CSize (60,60) , pContext) ) ; 



VERIFY (m_wndSplitter.CreateView(l, 0, RUNTIME_CLASS (CUC2View) , 

CSize (480, 480), pContext)); 
TRACE (" \nCMainFrame : : OnCreateClient View2\n") ; 
m_wndSplitter . SetActivePane (1,0, NULL) ; 

// return CFrameWnd :: OnCreateCl ient ( Ipcs , pContext); 
return TRUE; 

} 

void CMainFrame:: OnSysCommand ( UINT nID, LPARAM iParam ) 

{ 

// When minimise the Unichat application window 

// it should hide the application i.e it should not show on Status bar 
if (nlD SC_MINIMIZE) 
{ 

// Call OnPopMinimise to the Work 
OnPopMinimise () ; 

} 

else 

{ 

CFrameWnd :: OnSysCommand (nID , iParam) ; 

} 

} 

LRESULT CMainFrame :: WindowProc (UINT message, WPARAM wParam, LPARAM iParam) 

{ 

switch (message) 

{ 

// The following code will add the unichat icon on the status 

area 

// and process its notification messages from the Popupmenu . 
case WM_UCICON_NOTIFY: 

// If user clicks on the icon show the Window if it is 
// hided 

if (IParam WM_LBUTTONDBLCLK) 
{ 
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/ / CHANGES_MADE__FOR_UlSri CHAT_2 

CUC2DOC *pDoc = (CUC2DOC*) this - >GetActiveDocument ( ) ; 

if (pDoc- >m_bIsJoinChannelVisible) 

MessageBeep (C_MAX__BEEP_TIME) ; 
return 0 ; 

f (this - >IsWindowVisible ( ) ) 

OnPopMinimise () ; 

Ise 

OnPopMaximise C) ; 
break; 

} 

if (1 Par am == WMRBUTTONUP ) 

{ 

CUC2DOC *pDoc = (CUC2DOC*) thi s - >Get Act iveDocument ( ) ; 

CMenu PopUpMenu; 

PopUpMenu . CreatePopupMenu ( ) ; 

if { this - >IsWindowVisible ( ) ) 

{ 

PopUpMenu . AppendMenu (MF_ENABLED | MF_STRING , UCMN_UNICHAT, "UniChat " ) ; 
/ /CHANGES_MADE_FOR_UNICHAT_2 
if ( ! pDoc- >m__bIsJoinChannel Visible) 

{ 

PopUpMenu . AppendMenu (MF_SEPARATOR) ; 
PopUpMenu .AppendMenu (MF_ENABLED | MF__STRING , UCMN_MINIMISE , "Minimise" ) 

PopUpMenu -AppendMenu (MF_SEPARATOR) ; 

PopUpMenu .AppendMenu (MF_ENABLED I MF_STRING, UCMN_EXIT, "Exit") ; 

} 

} 

else 

{ 

PopUpMenu . AppendMenu (MF_ENABLED | MF_STRING, UCMN_UNICHAT, "UniChat " ) ; 
if ( IpDoc- >m_bIsJoinChannelVisible) 

{ 

PopUpMenu .AppendMenu (MF_SEPARATOR) ; 
PopUpMenu. AppendMenu (MF_GRAYED | MF_STRING , UCMN_MAXIMISE , "Maximise") ; 

PopUpMenu . AppendMenu (MF_SEPARATOR) ; 
PopUpMenu . AppendMenu ( MF_ENABLED | MF_STRING , UCMN EXIT , " Exi t " ) ; 

} 

} 



A-203 



MainFrmxpp 



PopUpMenu . TrackPopupMenu (TPM_LEFTALIGN , 90 0 , 90 0 , this , NULL) ; 



} 

break; 



} 



default : 

return CFrameWnd :: WindowProc (message , wParam, iParam) ; 

} 

return CFrameWnd :: WindowProc (message , wParam, IParam); 



// Function Name 
// Parameters 
// Purpose 
// Return value 
BOOL CMainFrame : : 

{ 



AddUCIconOnStatusArea 
NONE 

This function addes an unichat Icon on the Status area. 
TRUE : if it successfully addes an Icon. Otherwise FALSE. 
AddUCIconOnStatusArea ( ) 



NOTIFYICONDATA UCIConData; 

HICON hUCIcon = NULL; 

LPSTR IpszUCTip = "UniChat"; 

// Load the icon from the Resources 

hUCIcon = LoadlconCAfxGetlnstanceHandle () , MAKE INTRE SOURCE (ID I_UC I CON) ) 
ASSERT (hUCIcon != NULL); 

UCIconData.cbSize ^ sizeof (NOTIFYICONDATA) ; 
UCIconData . hWnd = this - >m_hWnd ; 
UCIconData .ulD = ID_UCICON; 

UCIconData -uFlags = NIF_MESSAGE | NIF_ICON | NIF_TIP; 
UCIconData .uCallbackMessage = WM_UCICON_NOTIFY ; 
UCIconData . hicon = hUCIcon; 

Istrcpyn (UCIconData . szTip, IpszUCTip , sizeof (UCIconData . szTip) ) ; 
BOOL Result = Shell__Notif ylcon (NIM__ADD , &:UCIconData) ; 
return Result; 



} 

// 
// 



Function Name 
Parameters 
// Purpose 
// Return value 
BOOL CMainFrame : 



Dele teUCIconOnStatus Area 
NONE 

This function deletes the Icon from the Status area 
TRUE : if it successfully deletes Icon. Otherwise FALSE. 
DeleteUCIconOnStatusArea () 



{ 



NOTIFYICONDATA UCIconData; 

UCIconData. cbSize = sizeof (NOTIFYICONDATA) 
UCIconData . hWnd = this - >m_hWnd; 
UCIconData. uID = ID UCICON; 



BOOL Result = Shell_NotifyIcon (NIM_DELETE, 
return Result; 



&UCIconData) 



} 

// Message Handler for the Minimise Popup menu 
void CMainFrame:: OnPopMinimise () 

{ 

if ( this - >IsWindowVi sible ( ) ) 

{ 

ShowWindow(SW_HIDE) ; 
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CUC2DOC* pDoc = (CUC2Doc*)GetActiveDocument 0 
pDoc - >QuitChannel ( ) ; 

} 

} 

// Message Handler for Maximise Popup menu 
void CMainFrame : : OnPopMaximise ( ) 

{ 

CUC2DOC* pDoc ^ {CUC2DOC*) GetActiveDocument { ); 
if ( ! this- >IsWindowVisible {) ) 

{ 

ShowWindow{SW_SHOW) ; 

} 

//if the user is in the channel then 
pDoc- >OnBtnCreate ( ) ; 

} 

// Message Handler for Unichat Popup menu 

void CMainFrame:: OnUniChatO 

{ 

CString strURL; 

if (strURL.LoadString(IDS_UNICHAT_HOMEURL) ) 
She llBrows eURL { StrURL) ; 

} 

// Message Handler for Exit Popup menu 
void CMainFrame :: OnUCExitO 

{ 

this->SendMessage (WM_CLOSE, 0 , OL) ; 

} 

// SATYA CHANGES END 
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// MainFrm.h : interface of the CMainFrame class 

// 



(C) Programmed by Kim, 


Feb 1998 


Information Technology 


Institute 


UNI CHAT NETWORKS INC 





#if ! defined (AFX_MAINFRM_H A1313 8 6D_A610_11D1_8 0E2_0 80 0 0 9B9F3 3 9 INCLUDED_) 

#def ine AFX__MAINFRM_H A1313 8 6D_A610_11D1_8 0E2_08 0 00 9B9F3 3 9 INCLUDED^ 

#if _MSC_VER >= 10 0 0 
#pragma once 

#endif // __MSC_VER 1000 

#include "UC2Panel.h" 
#include "UC2History . h" 

#include "UCSplitterWnd . h " // for CUCSpli tterWnd 
class CMainFrame : public CFrameWnd 

{ 

protected: // create from serialization only 
CMainFrame 0 ; 

DECLARE DYNCREATE (CMainFrame) 



// Attributes 

public : 

CPalette* 
CUC2 Panel* 



} 



CUC2History^ 
CTime 



GetPalette () 
GetPanel ( ) 



{ return m_pPalette; } 

{ return &m_wndControlPanel ; 



GetHistoryPanel ( ) { return &m_wndHi story Pane 1 ; } 
m tmStart; 



// Operations 
public : 

CPalette* 

void 

void 

BOOL 

void 

BOOL 

BOOL 

void 
bABC; } 



SetPalette (CPalette* pPalette) ; 
SetFreeze (const BOOL bFreeze=TRUE) ; 
Adj ustFrame (const int nW, const int nH) ; 
InitControlPanel (CPalette* pPal) ; 
ShowHistoryPanel (const BOOL bShow-TRUE) ; 
ShellBrowseURL (LPCTSTR szURL) ; 
ls256Palette { ) const ; 

SetAskBeforeClose (const BOOL bABC) { m_bAskBef oreClose 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMainFrame) 

virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 

virtual BOOL OnCreateClient (LPCREATESTRUCT Ipcs, CCreateContext * 
pContext) ; 

// } }AFX_VIRTUAL 

// Implementation 
public : 

int m_nDatePaneNo ; 

int m_nTimePaneNo ; 
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virtual -CMainFrame ( ) ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Contexts: dc) const ; 

#endif 



protected: // control bar embedded i 
CStatusBar m_wndStatusBar ; 

// CToolBar m_wndToolBar ; 

CUC2Panel m_wndControlPanel ; 
CUC2History m_wndHistoryPanel ; 
// Spliiter window which addes 
CUCSplitterWnd m_wndSpl itter ; 
// SATYA CHANGES START 
// Added functions for Unicaht 
BOOL AddUCIconOnStatusArea ( ) ; 

Desktop 

BOOL DeleteUCIconOnStatusArea ( 
Desktop 

// SATYA CHAGES END 



lembers 

Banner Window 
Icon 

// This function addes an Icon on the 

; // This function deletes the icon from 



// Generated message map functions 
protected : 

afx_msg void OnUpdateDate (CCmdUI * pCmdUI); 

afx_msg void OnUpdateTime (CCmdUI * pCmdUI); 

CEdit* GetEditFocus 0 ; 

HWND GetNotepad ( ) ; 

void SendTextToNotepad { ) ; 



CPalette* m_pPalette; 

BOOL m_bFreeze; 

CRect m_rcView; 

CRect m_rcMax; 

BOOL m_bAskBef oreClose ; 

// Added windProc to trap the Messages 

virtual LRESULT WindowProc (UINT message, WPARAM wParam, LPARAM iParam) 
//{ {AFX_MSG (CMainFrame) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 
af x_msg void OnClose { ) ; 

afx_msg void OnGetMinMaxInf o (MINMAXINFO FAR* IpMMI); 
afx_msg BOOL OnQueryNewPalette ( ) ; 
afx_msg void OnPaletteChanged {CWnd* pFocusWnd) ; 
afx_msg void OnDestroy() ; 

afx__msg void OnSize(UINT nType, int cx, int cy) ; 
afx_msg void OnEditCopy ( ) ; 

afx_msg void OnUpdateEditCopy (CCmdUI* pCmdUI); 
afx_msg void OnEditCut{); 

afx_msg void OnUpdateEdit Cut (CCmdUI* pCmdUI) ; 
afx__msg void OnEdi tNotepad ( ) ; 
afx_msg void OnEditPaste ( ) ; 

afx__msg void OnUpdateEdit Paste (CCmdUI* pCmdUI) ; 
afx_msg void OnEditUndo ( ) ; 

afx_msg void OnUpdateEditUndo (CCmdUI* pCmdUI) ; 
afx_msg void OnHelpHomepage ( ) ; 
// SATYA CHANGES START 

// Following are the Message Handlers for Popup Menu 
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afx_msg void OnPopMinimise ( ) ; 
afx_msg void OnPopMaximise ( ) ; 
afx__msg void OnUniChat ( ) ; 
afx_msg void OnUCExitO; 
//SATYA CHANGES END 



//} }AFX_MSG 
// ChatSock 

afx_msg LRESULT OnCsAddChannel ( WPARAM , LPARAM) ; 
afx_msg LRESULT OnCsPrivateMsg ( WPARAM , LPARAM); 
afx_msg LRESULT OnCsQueryData {WPARAM , LPARAM) ; 
afx_msg LRESULT OnCs Invite (WPARAM, LPARAM) ; 
afx_msg LRESULT OnCsGotMemList (WPARAM , LPARAM) ; 
afx_msg LRESULT OnCsAddMember (WPARAM , LPARAM) ; 
afx_msg LRESULT OnCsDelMember (WPARAM , LPARAM); 
afx_msg LRESULT OnCsDe 1 Channel (WPARAM , LPARAM); 
afx_msg LRESULT OnCsModeMember (WPARAM , LPARAM); 
afx_msg LRESULT OnCsModeChannel (WPARAM, LPARAM) ; 
afx_msg LRESULT OnCsText A (WPARAM , LPARAM) ; 
afx_msg LRESULT OnCsDat a (WPARAM , LPARAM); 
afx_msg LRESULT OnCsWhisperText (WPARAM , LPARAM); 
afx_nisg LRESULT OnCsWhisperData (WPARAM , LPARAM); 
afx_msg LRESULT OnCsNewTopic (WPARAM, LPARAM) ; 
afx_msg LRESULT OnCsNewNick (WPARAM, LPARAM); 
afx_msg LRESULT OnChannelFull Re try (WPARAM, LPARAM); 
afx_nnsg void OnSys Command ( UINT nID, LPARAM IParam ); 
DECLARE_MESSAGE_MAP ( ) 
private : 

BOOL InitStatusBar (UINT *pIndicators , int nSize, int nSeconds); 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_MAINFRM_H A13 13 86D_A610_11D1_80E2_0 8 0 00 9B9F3 3 9 INCLUDED_) 
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JASC~PAL 

0100 

256 

0 0 0 

128 0 0 

0 128 0 

128 128 0 

0 0 128 

128 0 128 

0 128 128 

192 192 192 

192 220 192 

166 202 240 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

255 255 255 
131 231 131 
91 91 111 
107 0 27 
199 27 51 
255 63 83 
255 115 111 
39 47 87 
0 103 179 
47 159 235 
147 211 255 
55 7 0 
119 47 11 
187 115 43 
255 203 87 
35 47 23 
71 95 47 
111 147 71 
151 199 95 
119 47 11 
187 115 43 
231 195 151 
255 235 187 
23 35 107 
27 75 155 
31 135 203 
31 215 255 
115 47 11 
187 115 43 
247 175 0 
255 231 0 
35 47 23 
71 95 47 
111 147 71 
151 199 95 
139 0 31 
223 51 63 



masterJascpal 



239 79 83 
255 119 111 
47 35 19 
103 95 67 
163 163 143 
203 203 187 
255 215 183 
247 187 147 
243 167 91 
239 175 139 
0 7 0 
0 31 0 
0 55 0 

7 79 7 

11 103 11 
19 131 19 
31 155 27 
43 179 39 
55 203 51 
71 219 67 
91 235 87 
115 243 107 
143 255 135 
167 255 163 
195 255 191 
223 255 219 
55 7 0 
103 35 0 
155 87 0 
203 159 0 
255 255 0 
255 255 51 
255 255 107 
255 255 159 
255 255 215 

8 40 32 
23 71 51 
35 99 67 
51 127 83 
71 155 95 
95 183 111 
123 215 127 
128 0 128 
143 15 143 
159 31 159 
175 55 175 
191 79 191 
207 107 207 
223 139 223 
239 175 239 
255 215 255 
207 103 31 
211 155 119 
175 115 0 
195 131 35 
215 155 75 
235 183 127 



A-210 



masterJasc.pal 




255 219 187 
119 0 51 
163 0 47 
207 0 27 
255 0 0 
255 91 71 
255 167 143 
255 231 219 
39 23 183 
39 35 183 

39 35 203 

47 35 219 

71 55 223 
83 75 223 

95 91 223 
0 0 255 

0 99 219 
15 155 247 
67 219 255 
139 255 255 
199 255 255 
231 255 255 

135 127 235 

136 24 16 
224 104 104 
24 48 80 

72 104 160 
24 80 72 

96 136 96 
56 24 16 

40 24 16 

48 24 8 
59 31 0 
223 107 27 
239 131 63 
247 163 107 



32 


32 


24 


8 


0 0 




72 


16 


8 


64 


56 


32 


48 


48 


48 


40 


40 


32 


56 


56 


48 


48 


48 


40 


56 


48 


40 


48 


40 


24 


80 


48 


8 


64 


40 


16 


88 


72 


32 


96 


64 


32 



120 72 40 

104 56 8 

120 64 16 

12 8 8.0 24 

120 88 64 

144 96 64 

167 95 55 
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176 104 56 
176 104 16 
152 96 16 

183 123 87 

199 123 99 
192 144 80 

184 128 16 

200 136 56 
224 136 64 
216 144 32 
224 160 56 
240 160 80 
248 176 72 
248 184 120 
192 160 104 
200 184 112 
8 40 32 

24 40 8 
32 48 24 
24 64 0 
40 80 8 
56 80 40 
64 80 0 
72 104 40 
56 104 16 
88 112 64 
96 112 32 
112 128 24 
96 136 64 
40 56 16 
64 80 24 
88 96 24 
96 128 0 
120 136 24 
88 152 40 
144 152 40 
136 168 8 
128 160 72 
152 176 40 
176 192 48 
200 216 56 
216 224 64 
232 240 72 
248 248 104 
64 64 56 
72 64 56 
72 72 64 
88 80 72 
88 88 80 
96 96 88 
112 104 88 
104 104 96 
112 112 104 
120 112 104 
128 120 112 
136 128 80 
144 128 112 
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a 

UJ 

ilJ 

yi 

riJ 

i = 

I- 
ill 
Ci 
Qi 
a 
a 



ICO 

lb 2 


14 4 


13 6 


13 6 


13 6 


12 8 


16 0 


16 0 


14 4 


16 0 


152 


12 8 


16 0 


16 8 


16 8 


14 4 


152 


112 


16 8 


16 8 


15 2 


17 6 


17 6 


16 8 


17 6 


16 0 


13 6 


184 


16 8 


144 


192 


17 6 


152 


2 0 0 


184 


16 0 


2 0 0 


192 


17 6 


200 


192 


184 


224 


2 0 0 


16 8 


2 0 8 


2 0 8 


192 


224 


2 0 8 


192 


224 


224 


216 


240 


232 


2 00 


248 


240 


2 2 4 


248 


248 


248 


255 


251 


240 


160 


160 


164 


128 


128 


128 


255 


0 0 




0 255 0 




255 


255 


0 


0 0 


255 




255 


0 255 


0 255 255 


255 


255 


255 
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// Member Info . cpp 
// 




: implementation of the 




classes for protocol 



#include " stdaf x . h" 
#include "Memberinf o . h" 
#include "Parser. h" 
#include Actor, h" 
#include "Behavior. h" 
#ifndef MAPEDITOR 
#include "UC2 . h" 

#include "MainFrm.h" // GetUserlD 

#endif 



#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FIL.E [] = FILE 

#endif 



extern CParser gParser; 



I / 11 / 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1/ 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 / 1 1 1 

I / CMemberlnfo 

CMemberInf o : : CMemberlnfo ( ) 

{ 

= NULL; 
= 0; 

= SEX_MAN; 
= 20; 
= m_nSex; 
= CLIENT_VERSION; 
= AB_STANDINGF; 
= AS_STAND I DA_FR; 

= CPoint {5, 11) ; 



} 



m_pMember 
m_nCharID 
m_nSex 
m^nAge 

m_nBubbleKind 
m_n Vers ion 
m_nBehavior 
m_wS t a t e 
m_jptTID 



CMemberlnfo : : -CMemberlnfo ( ) 

{ 

if {m_pMember) 

m__pMember- >Re lease ( ) 

} 



CMemberlnfofic CMemberInf o :: operator^ (cons t CMemberInfo& mi) // mi from 

{ 

if (this == &mi) 

return *this; 



if (m_pMember) 

m_pMember- 
m_pMember 
m_n Vers ion 
m_nCharID 
m__nSex 
m_nAge 

m_nBubbleKind 
m_strNick 
m_s t rRea IName 
m strProfile 



>Release { ) ; 

= mi . GetMember ( ) ; // NULL for actors in script mode 
= mi . GetVersion 0 ; 
= mi .GetCharlD () ; 

= mi .Get Sex ( ) ; 

= mi . Get Age ( ) ; 
= mi .GetBubbleKind ( ) ; 
= *mi.GetNick ( ) ; 
= *mi - GetRealName ( ) ; 
= *mi .GetProf ile ( ) ; 
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} 



m_strUserID ^ *mi . GetUser ID ( ) ; 

m_str Hyper link = *mi . GetHyperlink { ) ; 

m_nBehavior = mi . GetBehavior ( ) ; 

m_wState = mi . GetState { ) ; 
m_ptTID = mi .GetTilelD 0 ; 

return *this; 



CMemberlnfo :: CMemberlnfo (const CMemberlnfoSc mi) // Copy Constructor 

{ 

*this = mi; 

} 

BOOL CMemberlnfo: :SetMember(PICS_MEMBER pMember) 
{ 

if (m__pMember) 

{ 

m_pMember- >Re lease ( ) ; 

} 

m_pMember ~ pMember; 
if {m__pMember) 

{ 

m_pMember- >AddRef () ; 
BYTE* pb; 
BOOL fAnsi; 

HRESULT hr = m_pMember- >HrGetName ( Scpb , &fAnsi); 
if (! FAILED (hr) && fAnsi) 

m_strNick = (char*)pb; 
return TRUE; 

} 

return FALSE; 

} 

const PICS_MEMBER CMemberlnfo :: GetMember ( ) const 

{ 

if (m_pMember) 

m_pMember- >AdciRef ( ) ; 
return m_pMember; 

} 

// Set this member info from the specified string 
BOOL CMemberlnfo :: SetMemberlnfo (const char* src) 

{ 

//"nActorID"nBubbleKind"strHandle^strRealName"^strProf ile^ptBase^nHDir^strUser 
IDC^) 

gParser . CopyBuf f er (src) ; 

if ( ! gParser . GetValueRightToken (m_nVersion, UC2TOKEN) ) 

return FALSE; 

if ( !gParser .GetValueRightToken (m_nCharID, UC2TOKEN) ) 

return FALSE; 

if ( IgParser .GetValueRightToken (m_nSex, UC2TOKEN) ) 

return FALSE; 

if (! gParser - GetValueRightToken (m_nAge, UC2TOKEN) ) 

return FALSE; 

if ( IgParser. GetValueRightToken (m_nBubbleKind, UC2TOKEN) ) return 

FALSE; 
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return FALSE ; 



1 r 


/ 
\ 


! gParser 


FALSE ; 






1 r 




! gParser 


FALSE ; 






if 


( 


! gParser 


FALSE; 






if 


( 


! gParser 


FALSE; 






if 


( 


! gParser 


FALSE; 






if 


( 


! gParser 


FALSE; 






if 


( 


! gParser 


FALSE; 






return TRUE; 



GetValueRightToken {m_ 


strNick, 


UC2 TOKEN) ) 


GetValueRightToken (m_ 


_strRealName , 


UC2TOKEN) ) 


return 


GetValueRightToken (m_ 


_strProf ile. 


UC2 TOKEN) ) 


return 


GetValueRightToken (m 


strUserlD, 


UC2TOKEN) ) 


return 


GetValueRightToken (m_ 


strHyperlink, 


UC2TOKEN) ) 


return 


GetValueRightToken (m_ 


nBehavior , 


UC2TOKEN) ) 


return 


GetValueRightToken {m_^ 


wState , 


UC2TOKEN) ) 


return 


GetValueRightToken (m_ptTID, 


UC2TOKEN) ) 


return 



} 

// Get this member info to the specified string 
void CMemberInf o : :GetMemberInf o (CStringSt str) const 
{ 

str . Format ( " %d ^ %d"' %d^ %d" %d, ^ %s " %s ~" %s " %s %s %d*" %d^ (%d, %d) " " , 
m_n Vers ion, m_nCharID, m_nSex, m_nAge, m_nBubbleKind, 
m_strNick, m__strRealName , m_s trProf ile , m_strUserID, 
m_strHyperlink, 

m_nBehavior, m_wState, m_ptTID.x, m_ptTID.y); 

void CMemberInf o : : SetNick (LPCSTR szNick) 

{ 

m_strNick = szNick; 

if (m_strNick.GetLength() > 20) 

m_strNick - ReleaseBuf f er (20) ; 

} 

void CMemberInf o :: SetRealName {LPCSTR szRN) 

{ 

m_strRealName = szRN; 

if (m_strRealName . GetLength () > 20) 

m_strRealName . ReleaseBuf fer (2 0) ; 

} 

void CMemberInf o :: SetProfile (LPCSTR szProf) 

{ 

m_strProfile = szProf; 

if {m_strProf ile. GetLength {) > 256) 

m_strProf ile . ReleaseBuf fer (256) ; 

} 

#ifndef MAPEDITOR 

// Load my member information from the system registry 

BOOL CMemberInf o :: LoadMylnfo 0 

{ 

#ifdef _UNITEL 

// m_strRealName = *( (CMainFrame* ) Af xGetMainWnd ( ) ) - >GetUserName ( ) ; 
#endif // UNITEL 
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// m_strUserID = * ( (CMainFrame * ) Af xGetMainWnd { ) ) - >GetUserID ( ) 
return { { CUC2App* ) Af xGetApp { ) ) - >RegGetMemberInf o ( * thi s ) ; 

} 

BOOL CMemberInf o : : SaveMyInf o { ) 

{ 

return ( {CUC2App*) AfxGetApp ( ) ) - >RegSetMemberInf o ( *this) ; 

} 

#endif // MAPEDITOR 



41 

m 
m 
m 
m 

u 
m 
a 

a 
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// 

/ / CMemberInf o 
// 

// (C) Programmed by Kim, 

// UNICHAT Lab 

// Information Technology Institue 

// 

// 

1 1 / 1 1 1 1 / / 11 1 / 1 f / / 1 1/ 1 // 1 1/ 1 11 1 / 1 1 / 1 1 1 / 1 / 1 / 1 1 / / 1 1 1 1 / 1 1 1 / 1 1 / 1 1 / 1 / 1 1 11 / 1 1 11 III 1 1 



#ifndef 
#def ine 



MEMBERINFO_H_ 

MEMBERINFO H 



class CMemberlnfo // : public CObject 

{ 

public : 

CMemberlnfo {) ; 

CMemberInf o {const CMemberInf ofic mi); // Copy Constructor 
virtual -CMemberInf o () ; 

CMemberInf o& operator^ ( cons t CMemberInf o& mi); 

// Attributes 

const PICS_MEMBER GetMember () const; 

const PICS_MEMBER Ref Member () const { return m_pMember; } 
reference 
void 
int 

m_n Vers ion; } 

int GetCharlD () const 

int GetSexO const 



// Just 



GetMemberInf o (CString& str) const; 



GetVersionO const 



{ return 



} 



} 



{ return m_nCharID; } 
{ return m_nSex; 



int 
int 



const CString* 
const CString* 
&:m_strRealName ; } 

const CString* 

} 

const CString* 
const CString* 
BOOL 



GetAge 0 const 

GetBubbleKind ( ) const 

GetNickO const 
GetRealName ( ) const 

GetProfileO const 



{ return m_nAge ; 

{ return m__nBubbleKind; 

{ return &:m__strNick ; } 
{ return 

{ return &m_strProf ile ; 



{ return &:m_strUserID ; } 

{ return &:m_strHyperlink ; } 

{ return 

{ return 



GetUserlDO const 
GetHyperlink 0 const 
HasHyperlink { ) const 
( !m_strHyperlink . IsEmpty 0 ) ; } 

int GetBehavior ( ) const 

m_nBehavior; } 

WORD GetStateO const { return m_wState; } 

CPoint GetTilelDO const { return m_ptTID; } 

// Operations 

// For script-created actor object, set pMember=NULL , and assign a 

handle 

BOOL SetMember (PICS_MEMBER pMember) ; 

BOOL SetMemberlnfo (const char* src) ; // set member data from 

string 

void SetVersion (const int nVer) { m_nVersion = nVer; } 

void SetCharlD (const int nID) { m_nCharID = nID; } 
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void 

void 

void 

void 

void 

void 

void 

void 

void 

void 

void 
& -AS_MASK) ) ; } 

void 
& -DA_iyiASK) ) ; } 

void 

#ifndef MAPEDITOR 
BOOL 
BOOL 

#endif 

protected : 

enum SEX 



SetSex (const int n) 
SetAge (const int n) 
SetBubbleKind (const int n) 
SetNick (LPCSTR szNick) ; 
SetRealName (LPCSTR szRN) ; 
SetProfile (LPCSTR szProf ) ; 
SetUserlD (LPCSTR szUID) 
SetHyperl ink (LPCSTR szHL) 
SetBehavior (const int beh) 
SetState {const WORD wS) 
SetSA( const WORD wSA) 

SetDA{ const WORD wDA) 

SetTilelD (const CPointS: pt) 

LoadMyInf o ( ) ; 
SaveMyInf o ( ) ; 



{ m_nSex = n; } 
{ m_nAge = n; } 
{ m^nBubbleKind = n; } 



{ m_strUserID = szUID; } 

{ m_strHyperlink = szHL; } 

{ m_nBehavior = beh; } 

{ m_wState = wS ; } 

{ m_wState = (wSA | (m_wState 

{ m_wState = (wDA | (m_wState 

{ m_ptTID = pt; } 



SEX_MAN, 
SEX WOMAN 



}; 

PICS_MEMBER m_pMeTrLber; 



mt 

member 

int 

kind of actors 
int 
int 
int 

CString 
CString 
CString 
CString 
CString 
int 
WORD 
Attribute 

CPoint 

on 

// int 

}; 



m nVersion; 



m nCharlD; 



m_nSex ; 
m__nAge ; 

m_nBubbl eKind ; 
m_strNick; 
m_strRealName ; 
m_strProf ile ; 
m_strUserID ; 
m_strHyperl ink ; 
m_nBehavior ; 
m_wState ; 

m__ptTID; 

m_nElev; 



/ / NULL for actors in script mode 
// Client Version of this 

// Actor ID, 0,1,..., the 

// 0 man, 1 woman 

// Chat ID 



// Actor State and Direction 

// Tile ID the actor stands 



#endif 
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// MemberListDlg . cpp : implementation file 
// 



#include "stdaf x . h" 
#include "UC2.h" 
#include "MemberListDlg . h" 
#include "UC2Doc.h" 
#include "UC2CS . h" 
#include " PPChannel . h" 
#include "Actor. h" 
#include "Parser. h" 



#ifdef _DEBUG 
#define new DEBUG__NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CMemberListDlg dialog 

CMemberListDlg : : CMemberListDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CMemberListDlg :: IDD, pParent) 

{ 

//{ {AFX_DATA_INIT (CMemberListDlg) 
m_strCount = _T ( " " ) ; 
m_strMessage = _T ( " " ) ; 
// } }AFX_DATA_INIT 
m_jpDoc = NULL; 
// m_dwChannelID = OL; 

m_f ont . CreateFont ( - 12 , 0, 0, 0, FW_BOLD , 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 

DEFAULT_CHARSET , OUT_CHARACTER_ PRECIS , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY , 

DEFAULT_PITCH | | FF_DONTCARE, 

#ifdef __KOREAN 
#else 

"Times New Roman"); 

#endif 

m_ilMember .Create (IDB_IL_MEMBER, 16, 1, CLR_NONE) ; 

m_n Index = -1; 

m_str Channel . Empty ( ) ; 

} 

void CMemberListDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CMemberListDlg) 

DDX_Control (pDX, IDC_LIST_MEMBER, m_lcMember) ; 
DDX_Text {pDX, IDC_STATIC_MEMBER_COUNT , m_strCount) ; 
DDX_Text (pDX, IDC_STATIC_MESSAGE , m_strMessage ) ; 
// } } AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (CMemberListDlg, CDialog) 
// { {afx_MSG_MAP (CMemberListDlg) 
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ON_BN_CLICKED ( IDC_BTN_INVITE , OnBtnlnvi te ) 
ON_BN_CLICKED (IDC_BTN_RENEW, OnBtnRenew) 

ON_NOTIFY (NM_CLICK, IDC_LIST_MEMBER , OnCl ickLi s tMember ) 

ON_NOTIFY (LVN_DELETEITEM, IDC_LIST_MEMBER , OnDeleteitemLis tMember ) 

ON_NOTIFY {NM__DBLCLK, IDC_LIST_MEMBER , OnDblc IkLi s tMember ) 

on_wm_destroy ( ) 
// } }afx_msg_map 

ON_MESSAGE { CMD_QUERY_MEMBERS , OnQueryMembers ) 

ON_ME S SAGE { CMD_QUER Y_MEMBERS_END , OnQue ryMembe r s End ) 
ON_MESSAGE { CMD_QUERY_NOMATCHES , OnQueryNoMatches ) 

ON_ME S SAGE ( CMD_QUER Y_GET_REALNAME , OnQue r yGe t Re a 1 name ) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMemberLis tDlg message handlers 

void CMemberListDlg : : OnBtnlnvite () 

{ 

if (m_nlndex -1) 

{ 

AfxMessageBOX ( IDS_INVITE_SELECT_MEMBER) ; 
return; 

} 

CString strNick = m_lcMember . Get ItemText (m_nlndex , 0); // 
Subltem=0 

CUC2Channel* pChan = m_pDoc- >GetChannel ( ) ; 

if (IpChan) 

{ 

AfxMessageBOX ( IDS_INVITE_OPEN_CHANNEL) ; 
return ; 

} 



CString strMsg,- 

CActor* pA = m_j)Doc->GetThisActor ( ) ; 
ASSERT (pA) ; 

if (*pA->GetNick() === strNick) 
{ 

if (strMsg.LoadString(IDS__IOTITE__ERROR_MYSELF) ) 

Af xMessageBox (strMsg) ; 
return; 

} 

int len ~ strNick . GetLength {) ; 
CS_INVITEINFO csilnfo; 
csiinf o . dwUserlD = 0; 

csilnfo . pvNickTo = strNick . GetBuffer (len) ; 

if (pChan->FSendInvite (ficcsilnf o) ) 

{ 

AfxFormatStringKstrMsg, IDS_INVITE_OK, strNick) ; 
AfxMessageBOX (strMsg) ; 

} 

else 

{ 

AfxMessageBOX (IDS_INVITE_FAIL) ; 

} 

} 
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void CMemberListDlg : : OnBtnRenew { ) 
{ 

VERIFY (ShowList { ) ) ; 

} 

void CMemberListDlg: lOnClickListMember (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

DWORD dwPos = : rGetMessagePos 0 ; 

CPoint point ( (int) LOWORD (dwPos) , (int) HIWORD (dwPos) ) ; 
m_lcMember . ScreenToClient ( &point ) ; 

m_nlndex = m_lcMember . HitTest (point ) ; 
if (m_nlndex != -1) 

{ 

m__strMessage = m_lcMember . Get ItemText (m_nlndex , 0); // 

Subltem=0 

UpdateData (FALSE) ; 

} 

*pResult = 0; 

} 

BOOL CMemberListDlg: : OnlnitDialog ( ) 
{ 

CDialog: : OnlnitDialog () ; 
ASSERT (m_pDoc) ; 

ASSERT {GetDlgl tern (IDC_STATIC_MESSAGE) ) ; 

GetDlgItem(IDC_STATIC_MESSAGE) ->SetFont (&m_font, FALSE) ; 

// Prepare List Control for Channels list 
m_lcMeiTLber . SetlmageList (&:m_ilMember , LVSIL_SMALL) ; 

char* szColumn[] = ("Chat ID", "Information"}; 
int nWidth[] = {120, 210} ; 

LV^COLUMN IvC; // list view column structure 

IvC.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF__SUBITEM ; // 

valid members 

IvC.fmt = LVCFMT_LEFT; // left-align column 

// Add the columns. 

for (int i=0; i < sizeof (nWidth) /sizeof (int) ; 
{ 

IvC.cx = nWidth[i]; // width of column in 

pixels 

IvC.iSubltem = i; 

IvC.pszText = S2Column[i]; 

if (m_lcMember - InsertColumn ( i , &lvC) == -1) 
return NULL; 

} 

VERIFY (ShowList () ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 
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void CMemberListDlg : :OnDeleteitemLiistMember (NMHDR* pNMHDR, LRESULT* pResult) 

{ 

NM_LISTVIEW* pNMListView = {NM_LISTVIEW* ) pNMHDR; 

if (pNMListView- >lParam) 

{ 

PICS_PROPERTY picsProp = (PICS_PROPERTY) pNMListView- >lParam; 
picsProp- >Release ( ) ,- 

} 

*pResult = 0; 

} 

void CMemberListDlg : :OnDblclkListMeniber (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

DWORD dwPos = : : GetMessagePos ( ) ; 

CPoint point { ( int ) LOWORD (dwPos) , ( int ) HIWORD (dwPos ) ) ; 
rn_lcMember . ScreenToCl ient (&:point ) ; 

m_nlndex = m_lcMember . HitTest (point ) ; 
if (m_nlndex != -1) 

{ 

m_strMessage = m_lcMember . Get ItemText (m_nlndex , 0); // 

Subltem^O 

UpdateData (FALSE) ; 

} 




CUC2Socket* pCS = m_pDoc- >GetSocket ( ) ; 
if (!pCS) 

return; 
if (pCS->IsQueryOK() ) 
{ 

// I'm alive . 

pCS->SetQueryClient CGetSaf eHwnd ( ) ) ; 

BeginWaitCursor ( ) ; 
// m_strMessage = _T("»g^eAu ^gA ! Al ^ § AlE...."); 

// UpdateData (FALSE) / 

CString strNick m_lcMember . Get I temText (m_nlndex , 0) ; 

int len = strNick . GetLength () ; 

TCHAR* pszNick = strNick . GetBuf fer ( len) ; 

if ( !pCS->FQueryRealName (pszNick) ) 

{ 

// EndDialog ( -1) ; 

} 

} 

*pResult = 0; 

} 

void CMemberListDlg :: OnDestroy ( ) 

{ 

CDialog: : OnDestroy () ; 

} 



returns the index of the added item 
int CMemberListDlg : :AddItem (const int i, int ilmage, PICS_PROPERTY picsProp, 
TCHAR* psz) 
{ 

if (picsProp) 

picsProp- >AddRef () ; 



A-223 



MemberListDlg.cpp 




LV_ITEM IvI; // list view item structure 

: : ZeroMemory (5clvl , sizeof (IvI ) ) ; 

Ivl.mask = LVIF_TEXT | LVIF_IMAGE | LVIF_PARAM | LVIF_STATE; 

IvI . state = 0 ; ~ 

IvI . stateMask = 0/ 

IvI . iltem - i ; 

IvI . iSubltem = 0; 

// The parent window is responsible for storing the text. 

// The list view control will send an LVN_GETDISPINFO 

// when it needs the text to display. 
IvI.pszText = psz; 

IvI . cchTextMax = MIC_MAX_USER_MAJyiE_LENGTH; // 63 

Ivl.i Image = i Image ; 

IvI.lParam = (LPARAM) pics Prop ; 

int iltem = m_lcMember . Insert Item ( &lvl) ; 

if ((iltem -1) && picsProp) // Insert failure 

picsProp- >Release ( ) ; 
return iltem; 

} 

BOOL CMemberListDlg : : AddMember (PICS_PROPERTY picsProp) 

ASSERT (picsProp) ; 
int i ; 

if (FAILED (picsProp->HrGetPrivateData ( (PVOID*) £ci) ) ) 
{ 

TRACED ( "CMemberListDlg: : AddMember - HrGetPrivateData failed -\n") 
return FALSE; 

} 

// Add the channel name.. 
CS_PROPDATA cspd; 

if (FAILED {picsProp->HrGetProperty (&:cspd, CS INDEX_PROP_MEMBER_NAME ) ) ) 

return FALSE; 
CHAR* szName = ( CHAR* ) cspd . pbData ; 

if (FAILED {picsProp->HrGetProperty (&cspd, CS IWDEX_PROP_MEMBER_MODE ) ) ) 

return FALSE; 
DWORD dwMode = * ( (DWORD*) cspd. pbData) ; 

int ilmg; 

if (dwMode & CS_MEMBER_HOST) 

ilmg = IL_HOST; 
else if (dwMode & CS_MEMBER_SPEAKER) 

ilmg = IL_SPEAKER; 

else 

ilmg = IL_SPECTATOR; 
int iltem = Addltem(i, ilmg, picsProp, szName) ; 
// m_lcMember . SetltemText (i , 1, szRealName) ; 
return (iltem != -1); 

} 

BOOL CMemberListDlg: :ShowList () 
{ 

CUC2Socket* pCS = m_pDoc- >GetSocket ( ) ; 
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if (IpCS) 

return FALSE; 
m_lcMember . Del eteAl II terns () ; 

if (pCS->IsQueryOK() ) 
{ 

// I'm alive - 

pCS->SetQueryClient (GetSaf eHwnd ( ) ) ; 
BeginWaitCursor ( ) ; 

if (m_dwChannelID || ! m_strChannel . IsEmpty ( ) ) 

{ 

m_strMessage . Loads t ring ( IDS_TRANSFER_MEMBER_CHANNEL) ; 
UpdateData (FALSE) ; 
if (m_dwChannelID) 
{ 

if ( !pCS->FQueryMembersInChannel (m^dwChannellD) ) 
EndDialog ( -1) ; 

} 

else 

{ 

int nLen = m_strChannel . GetLength ( ) ; 
if (!pCS- 

>FQueryMembersInChannelName (m_str Channel . GetBuf f er (nLen) ) ) 

EndDialog ( -1) ; 
m_strChannel . ReleaseBuf f er ( ) ; 

} 

} 

else 

{ 

m_strMessage . LoadString ( IDS_TRANSFER_MEMBER_ALL_CHANNEL) 
UpdateData (FALSE) ; 
if ( !pCS->FQueryListAllUsers () ) 
EndDialog ( - 1) ; 

} 

} 

else 

{ 

Af xMessageBox ( IDS_QUERY_LINE_BUSY) ; 
EndDialog ( -1) ; 

} 

// Then UC2Socket will call AddChannel for each item 
return TRUE; 

} 

void CMemberListDlg : : EndOf List ( ) 

{ 

m_strMessage . LoadString (IDS_DATA_TRANSMISSION_DONE) ; // "AO • a huHU 

UpdateData (FALSE) ; 
EndWaitCursor () ; 
// : : SetCursor (Af xGetApp ( ) - >LoadStandardCursor ( IDC_ARROW) ) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1/ 1 1 1 1 1 1 1 1 1 1 / 1 1 n 1 1 1 

II to handle messages from ChatSock 
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LRESULT CMemberListDlg: rOnQueryMembers (WPARAM wParam, L.PARAM iParam) 
{ 

AddMember ( ( PICS_PROPERTY) IParam) ; 

m_strCount . Format ( "%d" , m_lcMember . Get I temCount ( ) ) ; 
SetDlgltemText ( IDC_STATIC_MEMBER_COUNT , m_strCount) ; 
UpdateData (FALSE) ; 
return 0 ; 

} 



LRESULT CMemberListDlg : lOnQueryMembersEnd (WPARAM wParam, LPARAM IParam) 
{ 

EndOf List { ) ; 



// 
// 



CUC2Socket* pCS = m_pDoc - >GetSocket ( ) ; 
if (!pCS) 

return FALSE; 
if (pCS->IsQueryOK() ) 
{ 

// I'm alive . 

pes- >SetQueryClient (GetSaf eHwnd { ) ) ; 
BeginWai tCursor ( ) ; 

m_strMessage = _T("»g^eAu ^gA ; Al . § AlE^ 
UpdateData (FALSE) ; 

int nitems = m_lcMember . Get I temCount ( ) ; 
CString strNick; 
int len; 

m_iRealName = 0 ; 

for {int i=0; i < nItems; i++) 



") ; 



{ 



// 



StrNick = m_lcMember . GetltemText (i , 0); 
len = StrNick. GetLength () ; 

TCHAR* pszNick = strNick . GetBuffer (len) ; 

if ( !pCS->FQueryRealName (pszNick) ) 

{ 

EndDialog ( -1) ; 



} 



return 0 ; 



LRESULT CMemberListDlg : lOnQueryGetRealname (WPARAM wParam, LPARAM IParam) 
{ 

TCHAR* szSource = (TCHAR* ) iParam; 
if (IszSource) 

return -1; 



// extern CParser gParser; 

CString strlnfo ( szSource ) ; 

// CString strVersion; 

// CString strlP; 

// gParser.CopyBuffer (szSource) ; 

// gParser . SetLef tToken ('"'); 

// gParser .GetValueRightToken(strVersion, *©•) ; 
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// gParser.GetValueRightToken (strip, ' ^ ' ) ; 

// strlnfo- Format { "%s @%s", strVersion, strIP) ; 

m_lcMember . SetltemText (m_nlndex, 1, strlnfo); 
// CString strNick = m_lcMember . Get ItemText (m_nlndex , 0) ; 
// m__strMessage = strNick + " = " + strlnfo; 
// UpdateData (FALSE) ; 

return 0 ; 

} 

LRESULT CMemberListDlg : :OnQueryNoMatches (WPARAM wParam, LPARAM IParam) 
{ 

m_strMessage . Loads t ring ( IDS_QUERY_NO_MATCH) ; 
SetDlgltemText ( IDC_STATIC_MESSAGE, m_s trMessage ) ; 
return 0 ; 

} 
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#if 

! defined (AFX_MEMBERLISTDLG_H BCD11B02_C2 3 9_11D1_8 0E2_0 8 0 00 9B9F3 3 9 INCLUDED_ 

) 

#def ine AFX_MEMBERLISTDLG_H BCD11B02_C2 3 9_11D1_8 0E2_08000 9B9F3 3 9 INCLUDED^ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // __MSC_VER >= 1000 

// MemberListDlg.h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// CMemberListDlg dialog 

class CUC2DOC; 

class CMemberListDlg : public CDialog 

{ 

/ / Construction 
public : 

CMemberListDlg (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

//{ {AFX_DATA (CMemberListDlg) 
enum { IDD = IDD_DLG_MEMBER } ; 
CListCtrl m_lcMember; 
CString m_strCount; 
CString m_strMessage ; 

//} }AFX_DATA 

enum 
{ 

IL_HOST, 
IL_SPEAKER, 
IL_SPECTATOR, 
IL_COUNT 
} MEMBER_IL_INDEX; 

void SetPPChannel (CUC2DOC* pDoc , const DWORD nID, LPCTSTR 
s z Channe IName =NULL ) 

{ m_pDoc = pDoc; m_dwChannelID = nID; 

if ( szChannelName) 

m_strChannel = szChannelName; } 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {afx_V1RTUAL (CMemberListDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

int Addl tern (const int i, int ilmage, PICS_PROPERTY picsProp, 

TCHAR* psz) ; 

BOOL AddMember {PICS_PROPERTY picsProp); 
BOOL ShowList ( ) ; 
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void EndOfListO; 



CUC2DOC* 
DWORD 
CString 
CFont 

CImageList 

int 

int 



m_jpDoc ; 

m dwChannellD; 



m_strChannel ; 



m_f ont ; 
m_ilMember ; 



// 



m_iRealName ; 
m_nlndex; 



// Generated message map functions 
// { {AFX_MSG (CMemberListDlg) 
afx__msg void OnBtnlnvi te ( ) ; 
afx^msg void OnBtnRenew ( ) ; 

afx_msg void OnCl ickLis t Member (NMHDR* pNMHDR, LRESULT* pResult); 
virtual BOOL OnlnitDialog ( ) ; 

afx_msg void OnDeleteitemListMember (NMHDR* pNMHDR, LRESULT* pResult); 
afx_msg void OnDblclkListMember (NMHDR* pNMHDR, LRESULT* pResult) ; 
afx_msg void OnDestroyO; 

// } }afx_msg 
declare_message_map ( ) 

afx_msg LRESULT OnQueryMembers (WPARAM , LPARAM) ; 
afx_msg LRESULT OnQue ry Members End (WPARAM , LPARAM) ; 
afx_msg LRESULT OnQueryNoMatches ( WPARAM, LPARAM) ; 
afx_msg LRESULT OnQueryGetRealname ( WPARAM , LPARAM) ; 



// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX__MEMBERLISTDLG_H BCD11B02_C2 3 9_11D1_8 0E2__0 8 000 9B9F3 3 9 INCLUDED_ 

) 



}; 
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{ 255 , 255 ,255,0}, 


// 


0 


{8,8,8,0}, // 1 






{41,41,41,0}, 


// 


2 


{90,90,90,0}, 


// 


3 


{ 165 , 165 , 165 , 0 } , 


// 


4 


{222 , 222 ,222,0}, 


// 


5 


{214 , 206 , 206 , 0} , 


// 


6 


{ 156 , 148 , 148 , O} , 


// 


7 


{ 140 , 132 , 132 , 0 } , 




8 


{ 115 , 107 , 107 , 0 } , 


/ / 


9 


{90,82,82,0}, 


// 


10 


{90,74,74,0}, 




11 


(82 66 66 0\ 


/ / 


12 


1 33 24 24 O) 


/ / 


13 


{99,66,66,0}, 


/ / 


14 


{222,123,123,0}, 


// 


15 


(214 115 ITS 0\ 




1 6 


( 165 82 82 0 ) 


/ / 


1 7 


(2O6 99 99 0) 


/ / 


18 


(57 24 24 0 \ 




1 9 


(198 82 82 0 ) 


/ / 


2 0 


( 189 74 74 0 \ 


/ / 


2 1 


( 173 66 66 0 \ 




2 2 


(l89 66 66 Q\ 




2 3 


( 165 4 9 4 9 0 ^ 


/ / 


24 


(iQR 4Q 4.Q r\\ 




2 5 


(33 8 8 0) // 26 






(214 49 49 Q\ 




2 7 


(l98 41 41 0\ 


/ / 


2 8 


{206,41,41,0}, 




2 9 


{173,33,33,0}, 


/ / 


3 0 


(I8I 33 33 0) 


/ / 


3 1 


{ 165 , 24 , 24 , 0 } , 




32 


( 123 16 16 0\ 




33 


{189,24,24,0}, 


/ / 


34 


{148,16,16,0}, 


/ / 


35 


{ 198 ,16,16,0}, 


/ / 


36 


{ 140 , 8 , 8 , 0 } , 




3 7 


{165,8,8,0}, 


/ / 


3 8 


{ 2 14 , 8 , 8 , 0 } , 


/ / 


3 9 


(8,0,0,0), // 40 






{24,0,0,0}, // 41 






(99,0,0,0), // 42 






(115 ,0,0,0), 


// 


43 


( 148 , 0 , 0 , 0 ) , 


// 


44 


{165, 0,0,0}, 


// 


45 


{198 ,0,0,0}, 


// 


46 


{ 165 ,33,24,0}, 


// 


47 


{222 , 140, 132 , 0} , 


// 


48 


{231, 140, 132 , 0} , 


// 


49 


{198, 99, 90, 0} , 


// 


50 


{140,41,33, 0} , 


// 


51 


{189, 115, 107, 0} , 


// 


52 


{74,8,0,0}, // 53 






{165, 115, 107, 0} , 


// 


54 


{132,74,66,0}, 


// 


55 


{132 , 90 , 82 , 0} , 


// 


56 
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• 


{82 , 41, 33 , 0 } , 


// 


57 


{165 , 82 , 66, 0 } , 


// 


58 


{165, 90, 74, 0} , 


// 


59 


{132 ,57,41,0}, 


// 


60 


{ 123 ,41,24,0}, 


// 


61 


{ 173 , 140 , 132 , 0 } , 


// 


62 


{140, 107, 99, 0} , 


// 


63 


{115,49,33,0}, 


// 


64 


{57,24, 16, 0} , 


// 


65 


{132, 99, 90, 0} , 


// 


66 


{231, 173 , 156 , 0} , 


// 


67 


{206 , 148 , 132 , 0} , 


// 


68 


{206, 123, 99, 0} , 


// 


69 


{189, 107 , 82 , 0} , 


// 


70 


{99,41,24, 0} , 


// 


71 


{115, 90, 82, 0} , 


// 


72 


{ 107 , 82 , 74 , 0 } , 


// 


73 


{74,49,41, 0} , 


// 


74 


{222 , 148 , 123 , O} , 


// 


75 


{ 140 , 90, 74 , 0 } , 


// 


76 


{66,41,33,0}, 


// 


77 


{132, 82, 66, 0} , 


// 


78 


{173,99,74,0}, 


// 


79 


{165, 90, 66, 0} , 


// 


80 


{99,49, 33,0}, 


// 


81 


{132 ,57,33,0}, 


// 


82 


{82 , 33 , 16, 0 } , 


// 


83 


{74,24, 8, 0} , 


// 


84 


{247 , 181, 156, 0} , 


// 


85 


{214,148,123,0} , 


// 


86 


{206, 140, 115, 0} , 


// 


87 


{189, 123 ,99,0}, 


// 


88 


{ 173 , 107 , 82 , 0} , 


// 


89 


{57,33,24, 0} , 


// 


90 


{99,57,41, 0} , 


// 


91 


{ 132 , 66,41,0}, 


// 


92 


{57, 16, 0, 0} , 


// 


93 


{214 , 173 , 156, 0} , 


// 


94 


{239, 181, 156, 0} , 


// 


95 


{173, 115, 90, 0} , 


// 


96 


{231, 148, 115, 0} , 


// 


97 


{198, 115, 82, 0} , 


// 


98 


{132,74,49, 0}, 


// 


99 


{181,99,66,0}, 


// 


100 


{206, 189, 181, 0} , 


// 


101 


{173, 156, 148, 0} , 


// 


102 


{165, 148, 140, 0} , 


// 


103 


{140, 123, 115, 0} , 


// 


104 


{132 , 115, 107, 0} , 


// 


105 


{222, 189, 173, O} , 


// 


106 


{74,57,49,0}, 


// 


107 


{206, 156, 132, 0} , 


// 


108 


{173, 123, 99, 0} , 


// 


109 


{ 156 , 99, 74 , 0} , 


// 


110 


{189, 115, 82 , 0} , 


// 


111 


{165, 90, 57, 0} , 


// 


112 


{156, 82,49, 0}, 


// 


113 
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{107 


57, 33, 0} , 


// 


114 


{ 148 


74, 41, 0} , 


// 


115 


{189 


173, 165,0} , 


// 


116 


{156, 


140, 132 , 0} , 


// 


117 


{239 


206, 189, 0} , 


// 


118 


{165 


132, 115,0} , 


// 


119 


{231 


181, 156, 0} , 


// 


120 


{214 


165, 140, 0} , 


// 


121 


{132 


99, 82 , 0} , 


// 


122 


{ 198 


148, 123, 0} , 


// 


123 


{214 


148, 115, 0} , 


// 


124 


{ 107 


74,57,0}, 


// 


125 


{206 


140, 107, 0} , 


// 


126 


{198 


132, 99, 0} , 


// 


127 


{ 99, 66 , 49, 0} , 


// 


128 


{ 18 9 


12 3, 90 , 0 ) , 


// 


129 


{ 132 


82,57,0), 


// 


130 


{ 2 0 6 J 


12 3, 82 , 0 ) , 


// 


131 


{247, 


231, 2.2, A , 0) , 


// 


132 


{214, 


198, 189, 0) , 


// 


133 


{181, 


165, 156, 0} , 


// 


134 


{115, 


99, 90, 0} , 


// 


135 


{247, 


189, 156, 0} , 


// 


136 


{239, 


181, 148, 0} , 


// 


137 


{231, 


173, 140, 0} , 


// 


138 


{214 , 


156, 123, 0} , 


// 


139 


{222, 


148, 107, 0} , 


// 


140 


{198, 


123 , 82 , 0} , 


// 


141 


{140, 


82,49, 0} , 


// 


142 


{239, 


214, 198, 0} , 


// 


143 


{247, 


206, 181, 0} , 


// 


144 


{222 , 


181, 156, 0} , 


// 


145 


{239, 


189, 156, 0} , 


// 


146 


{231, 


165, 123, 0} , 


// 


147 


{222 , 


156, 115, 0} , 


// 


148 


{255, 


206, 173, 0} , 


// 


149 


{247, 


198, 165,0} , 


// 


150 


{222, 


173, 140,0} , 


// 


151 


{239, 


181, 140, 0} , 


// 


152 


{214, 


156 , 115 , 0 } , 


// 


153 


{247, 


214, 189, 0} , 


// 


154 


{239, 


206, 181, 0} , 


// 


155 


{222 , 


165, 123, 0} , 


// 


156 


{99,66,41,0}, 


// 


157 


{239, 


198, 165, 0} , 


// 


158 


{206, 


156, 115, 0} , 


// 


159 


{239, 


181 , 132 , 0 } , 


// 


160 


{247, 


222, 198,0} , 


// 


161 


{247, 


239, 231, 0} , 


// 


162 


{189, 


181, 173, 0} , 


// 


163 


{231, 


206, 181, 0} , 


// 


164 


{57,49,41, 0} , 


// 


165 


{57,41,24, 0} , 


// 


166 


{107, 99, 90, 0} , 


// 


167 


{255 , 247 ,231,0}, 


// 


168 


{222,214, 198, O} , 


// 


169 


{255, 239, 206, O} , 


// 


170 
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\ 


w 


(l89 15 6 90 0\ 




If 


171 


{214,206,181,0} 






172 


{99,99,82,0}, 




// 


173 


{189,198, 198 , 0 } 




// 
/ / 


174 


{222,239,239,0} 






175 


{206,247,255,0} 






176 


( 189 23 1 239 0 ) 






111 


(214 247 255 




/ / 


178 


(l98 231 239 0\ 




/ / 


17 9 


{222, 247, 255, O} 




/ / 


180 


I 189 239 255 0 \ 




/ / 


181 






/ / 


182 


Il9ft Ol 




/ / 


183 


1 XDU , ^ yj \j f ^ ^ ^ f ^ j 






184 


I 66 107 123 






185 


111 fi6 n\ 




/ / 
/ / 


186 






/ / 


187 


Ifi9 14.0 n\ 






18 8 


(115 171 IQft 0\ 






18 9 


an 107 0^ 






190 


Il81 211 255 Ci\ 






191 


/ifiR O^"? 94.7 C)\ 






192 


/l4ft 198 222 0^ 




/ / 
/ / 


193 


Ifl9 112 156 Ol 

I^U^, XJ^, XJU, , 






194 


/04 41 AQ n\ 




/ / 


195 


/ll 66 R9 n\ 




/ / 
/ / 


196 


/l'^6 IRQ 906 n\ 

1 X_JD, XO^, ^UU, 




/ / 


197 


(l71 992 247 0^ 




/ / 


19 8 


il65 914 919 0\ 




/ / 


199 


( 14 0 18 9 214 0 \ 




/ / 
/ / 


2 0 0 


/ll9 1R1 906 n\ 

1 -1. -J ^ , XOX, Ziv/O, i-'j 




/ / 


2 01 


r 171 198 O! 


f 


/ / 


2 02 


(74 121 14 8 0 ) 




/ / 


2 0 3 


/qq ICR 1QR 0\ 






2 04 


I A.^ ft9 99 Ci\ 






2 0 5 


(66 115 140 O) 




/ / 


206 


(l91 165 189 O) 


r 




207 


(41 57 66 0\ 




// 
/ / 


208 


{214,239,255, O} 


/ 


// 


209 


{l32, 173, 198, O} 


i 


// 


210 


{l07, 148, 173 , 0} 


' 


// 


211 


(99 140 165 O) 






212 


{74,115,140,0}, 




// 


213 


{41,66,82,0}, 




// 


214 


(33 74 99 0 ) 




// 
/ / 


215 


{l56, 181, 198, O} 




// 


216 


{198,231,255,0} 




// 


217 


{99,148,181,0}, 




// 


218 


{24,49,66,0}, 




// 


219 


( 123 156 181 0 ^ 




// 


22 0 


{57,90, 115 , 0 } , 




/ / 


221 


{ 115, 156, 189, 0} 




// 


222 


{148, 165, 181, 0} 




// 


223 


{24,33,41,0}, 




// 


224 


{ 132 , 140, 148 , 0} 




// 


225 


{107, 123, 140, 0} 


1 


// 


226 


{99, 115, 132, 0} , 




// 


227 
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{8, 16, 24, 0} , 


11 


22 8 


{90, 99, 115, 0} , 


// 


229 


{206 


99 115 0\ 


f f 


230 


f 2 14 


6 6 , 90 , 0 } , 


II 


231 


(206 


82 , 9 9 , 0 } , 


II 


232 


{ 1 9 8 


74 , 9 0 , 0 } , 


II 


23 3 


I 2 2 2 


41,66, 0 ) , 


II 


234 


(214 


123,132,0} 


II 


23 5 


(214 


5 7,74 0 } 


II 


236 


1 1 ft 1 


AT C 7 fi \ 
*±X,J / r J t 


II 


237 


(206 


41 5 7 0 ) 


II 


238 


( 1 8 1 


2 4,41, 0 } , 


1 1 


23 9 


( 1 6 5 


8 , 2 4 , 0 } , 


II 


24 0 


(206 


9 9 , 1 0 7 , 0 } , 


1 1 


24 1 


\ Z X ft 


Q A Q Q n 1 


/ / 


242 


^ X / J 


7 n \ 


II 


243 


/ 1 ft 1 

1 X O X 


c 7 rv \ 
O / f O f \J f , 


II 


244 


( 198 


82 90 0 1 


1 1 


24 5 


{206 


82 , 90 , 0} , 


II 


24 6 


{ 198 


74 , 82 , 0} , 


II 


247 


{181 


49, 57, 0} , 


// 


248 


{198 


49, 57, 0} , 


// 


249 


{181 


41,49,0}, 


// 


250 


{181 


33,41, 0} , 


// 


251 


{214 


33,41,0}, 


// 


252 


{214 


16,24,0}, 


// 


253 


{206 


8 , 16 , 0} , 


// 


254 


{0,0 


0,0}, // 


255 
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// PaletteDlg . cpp : implementation file 
// 

#include " stdaf x . h" 
#include "BMC . h" 
#include "PaletteDlg . h" 

# i nc lude " BMC Vi e w . h " 
#include " . . /UC2Ani/DIBPal . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
tundef THIS_FILE 

static char THIS_FILE[] FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPaletteDlg dialog 

CPaletteDlg: :CPaletteDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CPaletteDlg : :IDD, pParent) 

{ 

// { { AFX_DATA_INIT (CPaletteDlg) 

m_sbBlue - 0; 

m_sbGreen = 0 ; 

m_stRGB = _T ( " " ) ; 

m_sbRed = 0 ; 

m_bShowIndex = FALSE ; 

// } } AFX_DATA_INIT 

} 

void CPaletteDlg :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CPaletteDlg) 

DDX_Scroll (pDX, I D C_S B_ PAL_B LUE , m_sbBlue) ; 
DDX_Scroll (pDX, IDC_SB_PAL_GREEN , m_sbGreen) ; 
DDX_Text (pDX, IDC_ST_PAL_RGB , m_stRGB) ; 
DDX_Scroll (pDX, IDC_SB_PAL_RED , m_sbRed) ; 
DDX_Check (pDX, IDC_CHECK_SHOW_INDEX , m_bShowIndex) ; 
// } }AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP (CPaletteDlg, CDialog) 
//{ {AFX_MSG_MAP (CPaletteDlg) 
ON_WM_PAINT { ) 

ON_BN_CLICKED ( IDC_CHECK_SHOW_INDEX , OnCheckShowIndex) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 11 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 11 / 1 1 1 1 
1 1 CPaletteDlg message handlers 

BOOL CPaletteDlg : :OnInitDialog ( ) 

{ 

CDialog: lOnlnitDialog { ) ; 
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GetClientRect (&:m_rcPal) ; 

CWnd* pW = GetDlgItem(IDC_SB_PAL_RED) ; 
ASSERT (pW) / 
CRect rcSB; 

pW- >GetClientRect (ficrcSB) ; 

m_rcPal .right -= ( rcSB . Width ( ) + 10); 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void CPaletteDlg : : OnPaint ( ) 

{ 

CPaintDC dc(this); // device context for painting 

if ( !m_pPal) 

return ; 

m__pPal - >Draw ( &dc , m_rcPal, FALSE, m__bShowIndex) ; 

// Do not call CDialog :: OnPaint ( ) for painting messages 

} 

void CPaletteDlg: : OnCheckShowIndex ( ) 
{ 

CButton* pB = (CButton*)GetDlgItem(IDC_CHECK_SHOW_INDEX) ; 
ASSERT (pB) ; 

m_bShowIndex = (pB- >GetCheck: ( ) -= 1); 
InvalidateRect (&m_rcPal , FALSE); 

} 
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#if 

! defined {AFX_PALETTEDLG_H 46QC5624 91A5 11D1_ 80E2 Q8QQ09B9F339 INCLUDED ) 

#de f ine AFX_PALETTEDLG_H 4 60C5624_9 1 A5_l 1D1_8 0E2_0 80009B9F33 9 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// PaletteDlg.h : header file 
// 

class CDIBPal; 

///////////////////////////////////////////////////////////////////////////// 
// CPaletteDlg dialog 

class CPaletteDlg : public CDialog 

{ 

// Construction 
public : 

CPaletteDlg (CWnd* pParent NULL); // standard constructor 




public : 

void SetPalette (CDIBPal* pPal) { ni_pPal = pPal; } 

// Dialog Data 

// { {AFX_DATA (CPaletteDlg) 
enum { IDD = IDD_PALETTE } ; 
int m_sbBlue; 
int m_sbGreen; 
est ring m_stRGB; 
int m_sbRed; 
BOOL m_bShowIndex; 
//} }AFX_DATA 



/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CPaletteDlg) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VIRTUAL 

/ / Implementation 
protected : 

CDIBPal* m_pPal; 

CRect m_rcPal; 

// Generated message map functions 

//{ {AFX_MSG (CPaletteDlg) 

virtual BOOL OnlnitDialog ( ) ; 

af x_msg void OnPaint ( ) ; 

afx_msg void OnCheckShowIndex ( ) ; 

//}}AFX_MSG ' 

DECLARE_MESSAGE_MAP ( ) 

}; 

// { {afx_insert_location} } 
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// Microsoft Developer Studio will insert additional declarations immediatel 
before the previous line. 

#endif // 

[defined (AFX PALETTEDLG_H 460C5624_91A5_11D1_80E2_080009B9F339 INCLUDED_) 
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// Parser.cpp 
// 

= = = = = = = = = = = = = = = = 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
//UNICHAT INC 



//#ifndef _SDK 
^include " s tdaf x , h" 
//#endif 

#include "Parser. h" 
#include <lzexpand . h> 



const int MAX_EXPANDED_FILESIZE = 120*1024; 

CTextPileBuff er :: CTextFileBuffer (const int nLineBuf f erLen) 

{ 

m_nLineBuff erLen = nLineBuf f erLen; // Maximum String Length 

m_pLineBuf f er - m_nLineBuff erLen ? new char [m_nLineBuff erLen] 
: NULL; 

m_lFileSize = OL; 

m_pFileBuf f er = NULL; 

m_pCursor = NULL; 

} 



CTextFileBuffer : : -CTextFileBuffer ( ) 

{ 

if (m_j>LineBuf f er) 

delete [] m__pLineBuf f er ; 
if (m_pFileBuf f er) 

delete [] m pFileBuf f er ; 

} 



BOOL CTextFileBuffer :: Load {LPCSTR szFile) 
{ 

TRY 
{ 

CFile f; 

if ( ! f .Open (szFile, CFile :: modeRead | CFile :: shareDenyWrite) ) 
// I CFile : rtypeText) ) 
{ 

CString strMsg; 

strMsg . Format ( "File Open Failure: %s", szFile) ; 
AfxMessageBox ( StrMsg) ; 
return FALSE; 

} 

WORD wFileType; 

int iBytes = f . Read ( &wFileType , sizeof (wFileType) ) ; 
if (iBytes != sizeof (wFileType) ) 

{ 

CString strMsg; 

StrMsg. Format ( "File read failure! %s: %d bytes read", 

szFile, iBytes) ; 

AfxMessageBox ( StrMsg) ; 
return FALSE; 

} 
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m_lFileSize = f . GetLength ( ) ; // points to the end of file 
TRACE ( "FileSize=%ld bytes\n" , m_lFileSize) ; 

BOOL bLZ = (wFileType == 0x5a53); // ' SZ ' LZ Compressed 

UINT hLZFile; 
if (bLZ) 
{ 

f . Close ( ) ; 

OFSTRUCT ofStructSrc; 

hLZFile = : : LZOpenFile ( (char* ) szFile , &:of StructSrc , 

OF_READ) ; 

} 

if (bLZ) 

:: LZSeek (hLZFile , 0, 0); // seek to beginning of file 

else 

f.Seek(0, CFile :: begin) ; 
if (bLZ) 
{ 

// Set max. buffer 120KB since it is a text file,.- 
m_lFileSize = MAX_EXPANDED_FILESIZE; 
m__pFileBuf f er = new char [m_lFileSize] ; 

iBytes = :: LZRead (hLZFile , m_pFileBuf f er , m_lFileSize) ; 
ASSERT (iBytes < m_lFileSize) ; 
m_lFileSize - iBytes; 

} 

else 

{ 

m__pFi leBuf f er = new char [m_lFileSize + l] ; 
iBytes = f . Read (m_jpFileBuf f er , m_lFileSize) ; 
if (iBytes != (int ) m_lFileSize) 

{ 

CString strMsg; 

strMsg . Format ( "File read failure' %s : %d bytes read" 

szFile, iBytes) ; 

Af xMessageBox ( strMsg) ; 
return FALSE; 

} 

} 

m_pFileBuf f er [m_lFileSize] = NULL; 

if (bLZ) 

{ 

:: LZClose (hLZFile) ; // Commenting out this line 

prevented error in NT system. 

} 

else 

{ 

f .Close () ; 

} 

SeekToBegin ( ) ; // mjCursor = m_pFileBuf f er ; 

return TRUE; // Omitting this line was the bug! only for 

Release version. 

} 

CATCH ( CFileException, e ) 

{ 

#ifdef DEBUG 
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afxDump << "File could not be opened " << e->m_cause << 

"\n" ; 

#endif 

CString strMsg; 

strMsg . Format { "File read failure! %s*', szFile) ; 
Af xMessageBox { strMsg) ; 
return FALSE; 

} 

END_CATCH 

} 

char* CTextFileBuf f er : : ReadString ( ) 

{ 

if ( !m_jpLineBuf f er) 

return NULL; 
char* pNL = strs tr (m_pCursor , "\r\n"); 
if (!pNL.) 

return NULL; 
int nSize pNL - m_pCursor + 1; 
if (nSize > m_nLineBuf f erLen) 

nSize = m_nLineBuff erLen; 
: r CopyMemory (m__pLineBuf f er , m_pCursor, nSize) ; 
m__pLineBuf f er [nSize-1] = NULL; 
mjCursor +- (nSize + 1) ; 
return m_pLineBuf f er ; 

} 

I / 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 / 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 
mil 

CParser : :CParser (const int mchars) 
{ 

m_bMsgOn = TRUE ; 

m_raw = 0 ; 

m_MaxChars = mchars; 

m_szBuf = new char [mchars] ; 

} 

//#ifndef _SDK 

// returns TRUE if the file exists 

BOOL CParser :: ExistFile (const char* szFile) 

{ 

CFileStatus status; 

BOOL bFound = CFile :: GetStatus ( szFile , status); 

if ( ! bFound) 

{ 

TRACEl ("File (%s) not found!\n", szFile); 
if (m_bMsgOn) 

{ 

CString msg; 

msg . Format ("File (%s) not found!", szFile); 
Af xMessageBox (msg) ; 

} 

} 

return bFound; 

} 

//#endif // SDK 
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// Initialization function to be called first 
void CParser :: CopyBuffer (const char* line) 

{ 

char* p = (char*) line; 

while (IsWhiteSpace ( *p) ) // remove heading spaces 

P++; 

m_raw = m_szBuf; // set m_raw string to be parsed 

int len = Istrlen(p); 
if (len > m_MaxChars) 

{ 

len = nn_MaxChars ; 
: : Copy Memory (m_szBuf , p, len) ; 
m_szBuf [len-1] = NULL; 

} 

else 

Istrcpy (m_szBuf , p) ; 

} 

char* CParser :: SetLeftToken (const char lefttok) 

{ 

char* p = strchr (m_raw, lefttok); // Although lefttok was not 

found, 

// I don't want 

to lose m_raw. 
if (p) 
{ 

P++; // advance pointer to the 

next char 

while ( IsWhiteSpace ( *p) ) // remove heading spaces for next 

parsing 

P + +; 

m_raw = p; // save current position 

} 

return p; // If lefttok was not found, return NULL 

} 

char* CParser :: SetLeftToken (char* lefttokstr) 

{ 

char* p = s trstr (m_raw, lefttokstr) ; 

if (p) 

{ 

p += strlen ( lefttokstr ) ; 

while ( IsWhiteSpace ( *p) ) // remove heading spaces 

P++; 
m_raw = p ; 

} 

return p; //If lefttok was not found, return NULL 

} 

char* CParser :: FindToken (const char rtokl, const char rtok2) 

{ 

char* p = s trchr (m_raw, rtokl) ; 

if (rtok2) 

{ 

char* q = strchr (m_raw, rtok2 ) ; 

// If rtokl not found or found all two tokens then use the left 
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// In case, ")()()..-" 

if ( !p II (q &5c p && p > q) ) 

P - q; 

} 

m_last Token = p ? *p : NULL; 
return p; 

} 

void CParser : :RemoveSpaces {char** pp) 

{ 

char* p = *pp; 

char* q = p; // remove trailing spaces 

q--; 

while (IsWhiteSpace ( *q) ) 
*q-- = NULL; 

*p++ = NULL; // Nullify the token char and advance to the 

next char 

while (IsWhiteSpace ( *p) ) // remove heading spaces 

P + +; 

*PP = p; 

} 

// some bytes of buf will be overwritten! 

// Get value before right token: character version 

char* CParser :: GetValueRightToken (char & cVal, const char rtokl , const char 

rtok2) 

{ 

char* p = FindToken (rtokl , rtok2); 

if (p) // found the 'right' token 

{ 

RemoveSpaces {Sep) ; 
cVal = *m_raw; 

m_raw = p; // save current position 

} 

else // for null -terminating string... 

cVal = *m_raw; // Although righttok not found, try to 

convert . . . 

return p; //if righttok was not found, return NULL 

} 

// integer version 

char* CParser :: GetValueRightToken ( int& iVal , const char rtokl, const char 

rtok2 ) 

{ 

char* p = FindToken (rtokl , rtok2 ) ; 

if (p) // found the 'right' token 

{ 

RemoveSpaces (&:p) ; 
iVal = atoi (m_raw) ; 

m_raw = p; // save current position 

} 

else 

iVal = atoi (m_raw) ; // Although righttok not found, try to 

convert . . . 

return p; //if righttok was not found, return NULL 

} 
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// word version 

char* CParser : : GetValueRightToken (WORD& wVal , const char rtokl, const char 

rtok2) 

{ 

char* p = FindToken (rtokl , rtok2 ) ; 

if (p) // found the 'right' token 

{ 

RemoveSpaces (&ip) ; 

wVal = (WORD) atoi {m_raw) ; 

m_raw = p; // save current position 

} 

else 

wVal = (WORD) atoi (m_raw) ; // Although righttok not found, try 

to convert . . . 

return p; // if righttok was not found, return NULL 

} 

// long version 

char* CParser :: GetValueRightToken ( long& iVal, const char rtokl , const char 
rtok2) 

{ 

char* p = FindToken (rtokl , rtok2 ) ; 

if (p) 

{ 

RemoveSpaces (&:p) ; 
IVal = atoi {m_raw) ; 
m_raw = p ; 

} 

else 

iVal = atoi (m_raw) ; // Although righttok not found, try to 

convert - . . 

return p; 

} 

/ / doub 1 e ve r s i on 

char* CParser :: GetValueRightToken (doublefic f Val , const char rtokl, const char 

rtok2) 

{ 

char* p = FindToken (rtokl , rtok2 ) ; 

if (p) 

{ 

RemoveSpaces {&p) ; 
f Val = atof (m_raw) ; 
m_raw = p ; 

} 

else 

fVal = atof (m_raw) ; // Although righttok not found, try to 

convert . . . 

return p; 

} 

// char string version 

// The parameter szVal should have enough spaces to get the characters from 
buf 

// ABCD , 123, 

// <--^p--> remove white spaces surrounding token 
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// "^q ^m_raw 

char* CParser : iGetValueRightToken (char* szVal, const char rtokl , const char 

rtok2) 

{ 

char* p = FindToken (rtokl , rtok2 ) ; 

if (p) 

{ 

RemoveSpaces {Sep) ; 
Istrcpy ( szVal , m_raw) ; 
m_raw = p ; 

} 

else 

Istrcpy (szVal , m_raw) ; // Although righttok not found, try to 

convert . . . 

return p; 

} 

///////////////////////////////////////////////////////////////////////////// 

///////// 

// MFC Specific 

//tifndef _SDK 

char* CParser : :GetValueRightToken (CString& strVal , const char rtokl, const 
char rtok2) 

{ 

char* p = FindToken (rtokl , rtok2 ) ; 

if (p) 

{ 

RemoveSpaces ( &p) ; 

strVal = m_raw; // CString will prepare space... 

m_raw = p ; 

} 

else 

strVal = m_raw; // Although righttok not found, try to 

convert . . . 

return p; 

} 

char* CParser :: GetValueRightToken (CPointSc ptVal , const char rtokl, const char 

rtok2) 

{ 

if (GetStruct (ptVal) •= 0) 

return NULL; 
char c ; 

return GetValueRightToken ( c , rtokl, rtok2 ) ; // to remove rtok? 

} 

char* CParser :: GetValueRightToken (CSizeSc ptVal , const char rtokl, const char 

rtok2) 

{ 

if (GetStruct CptVal) != 0) 
return NULL; 

char c ; 

return GetValueRightToken ( c , rtokl, rtok2) ; // to remove rtok? 

} 

char* CParser :: GetValueRightToken (CRectSc ptVal , const char rtokl, const char 
rtok2) 
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} 



if {GetStruct (ptVal) != 0) 

return NULL; 
char c ; 

return GetValueRightToken ( c , rtokl , rtok2); 



// to remove rtok? 



// Be sure NOT to call SetLeftToken before calling this function! 
int CParser :: GetStruct (CPoint& ptVal) 
{ 



if ( ISetLef tToken( ' ( ' ) ) return -1; 
if ( !GetValueRightToken(ptVal -X, ')) 
if (! GetValueRightToken (ptVal .y, ') ')) 
return 0 ; 



return -1; 
return -1; 



int 
{ 



CParser : :GetStruct (CSize& sVal) 

if {! SetLeftToken ('(•) ) return - 
if { ! GetValueRightToken ( sVal , cx , 
if ( ! GetValueRightToken (sVal . cy , 
return 0; 



1; 



) ) 
) ) 



return - 1 ; 
return -1; 



// Be sure not to call SetLeftToken before calling this function! 



mt 

{ 



CParser: : GetStruct (CRect& rcVal) 

if (] SetLeftToken {•(•) ) return -1; 
if ( ! GetValueRightToken (rcVal . left , 
if ( ! GetValueRightToken (rcVal . top, 
if ( ! GetValueRightToken (rcVal . right , 
if ( ! GetValueRightToken (rcVal . bottom, 
return 0 ; 

} 

//#endif // SDK 



• , ' ) ) return -1 

' , ' ) ) return -1 

' , ' ) ) return -1 

' ) ' ) ) return -1 



// Count occurrences of a specified char in m_raw string up to ' upto ' char 
// Ex. ) count = CountOccurrencesUpto ( ' ) ' / ' ; ' ) 

int CParser :: CountOccurrencesUpto (const char ch, const char upto) 

{ 



int 

char* p 



count 
m_raw ; 



0; 



} 



while (*p (*p != upto)) 

if {*p++ ^= ch) 
count ++ ; 
return count ; 



// Default Implementation 

// comment line is a string that begins with 

BOOL CParser :: IsCommentLine ( ) const 

{ 



or "//' 



char* p = m_szBuf; 
while ( IsWh ^eSpace ( *p) ) 
P++; 

return (*p --^ 0 \\ *p = = 



/ / skip heading spaces 
I I (*p ^= ■/' *(p+l) == •/')); 
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// 

// CParser: General Line Parser 

...^.....^^===========.=.^==== 

// (C) Programmed by Kim, 

// UNICHAT Lab 

// Information Technology Institute 
// UNICHAT 

= = = ^ = = = = = = = = = = = ^ 

// 

#ifndef PARSER_H 

#define PARSER_H 



//#ifndef _SDK 
#include " stdaf x . h" 
//#endif 

#include <windows.h> 



1 1 1 1 / 1 / 1 1 1 1 / 1 1 / 11 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 / 1 1 / 1 11 1 1 1 1/ 1 1 1 1 / 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
/ I Read whole texts in the file into the memory 
class CTextFileBuf f er : public CObject 

{ 

public : 

CTextFi leBuffer ( const int nLineBuf f erLen^O ) ; 
virtual -CTextFileBuf fer {) ; 



BOOL Load(LPCSTR szFile); 

char* GetStringO { return m_pLineBuf f er ; } 

char* ReadString ( ) ; 

char* GetWholeText ( ) { return m__pFileBuf f er ; } 

void SeekToBegin ( ) { m_pCursor = m__pFileBuf f er ; } 

protected : 

int m_nLineBuf f erLen; // Maximum String Length 

char* m_pLineBuf f er ; // Current text line 

long m_lFileSize; 
char* m_pFileBuf f er / 
char* m_pCursor; 

}; 

1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 / 1 1 11 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II Line by line parser 

class CParser 

{ 

public : 

CParser (const int mchars = 1024); 
-CParser { } { delete [] m_szBuf; } 

int GetMaxBuf f er ( ) const { return m_MaxChars ; } 

void CopyBuffer (const char* line); 

char GetLas tToken ( ) { return m_lastToken; } 

void SetMessageBoxOption (BOOL bMsgOn=TRUE) { m_bMsgOn = bMsgOn; } 

BOOL IsMsgOnO const { return m_bMsgOn; } 
//#ifndef _SDK 

BOOL ExistFile (const char* szFile) ; 
//#endif 

char* GetCurrentO { return m_raw; } 

void SetCurrent (char* p) { m_raw = p; } 
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char* FindToken (const char rtokl, const char rtok2=NULL) ; 

char* FindChar ( const char tok) ; 

char* SetLeftToken (const char lef ttok) ; 

char* SetLeftToken (char* lefttokstr) ; 

// You can assign primary token and secondary token 

char* GetValueRightToken (charge cVal , const char rtokl, const char 

rtok2 = 0) ; 

char* GetValueRightToken ( intSc iVal, const char rtokl, const char rtok2 

= 0) ; 

char* GetValueRightToken (WORD&: wVal, const char rtokl, const char 

rtok2 = 0) ; 

char* GetValueRightToken (long&: IVal , const char rtokl, const char 

rtok2 = 0) ; 

char* GetValueRightToken (double& fVal, const char rtokl, const char 
rtok2 = 0) ; 

char* GetValueRightToken (char* szVal, const char rtokl, const char 

rtok2 = 0) ; 
//#ifndef _SDK 

char* GetValueRightToken (CStringS: strVal, const char rtokl, const char 
rtok2 = 0) ; 

char* GetValueRightToken (CPointSc ptVal , const char rtokl, const char 
rtok2 = 0) ; 

char* GetValueRightToken (CSizefic ptVal, const char rtokl, const char 
rtok2 = 0) ; 

char* GetValueRightToken (CRect& ptVal, const char rtokl, const char 
rtok2 = 0) ; 

int GetStruct (CPoint& ptVal); 

int GetStruct (CSize& sVal); 

int GetStruct (CRect& rcVal) ; 

//#endif 

int CountOccurrencesUpto (const char ch, const char upto) ; 

virtual BOOL I s Comment Line ( ) const; 

BOOL IsWhiteSpace (const char c) const { return (c == • * | | c -= 
•\t'); } 

protected : 

void RemoveSpaces (char** pp) ; 

BOOL m_biyisgOn; // reports error messages through MessageBoxes 
char m_l as t Token; 
private : 

char* m_raw; // raw points to the raw string to be parsed 

char* m_szBuf; // Buffer for one line 

int m_MaxChars ; // maximum chars per line 

}; 

#endif // PARSER_H 

/* ### Usage ############################################################ 
CParser parser (256); 



BOOL CTestDoc : : OnNewDocument ( ) 

{ 

TRY 
{ 
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CStdioFile f (" sample . txt " , CFile : rmodeRead | CFile : : typeText ) 
char* szVal = new char [parser . GetMaxBuffer ()] ; 
int iVal; 
double fVal; 
CPoint ptVal; 

while (f . Reads t ring (szBuf , parser . GetMaxBuffer { ) ) ) 
{ 

parser. CopyBuffer (szBuf) ; // " ° A*^ 1 = 1 , 3 . 4 , (12, 345);" 

if (parser . IsCommentLine 0 ) 
continue ; 

parser . GetValueRightToken ( szVal , ' = ' ) ; 
parser . SetLef tToken ('=■); 
parser .GetValueRightToken (iVal , ' . ' ) ; 
parser . GetValueRightToken ( f Val , ' , ' ) ; 
parser . GetValueRightToken (ptVal ) ; 

} 

return TRUE; 
f . Close ( ) ; 
delete [] szBuf; 

} 

CATCH ( CFileException, e ) 
{ 

#ifdef _DEBUG 

afxDump << "File could not be opened " << e->m_cause << 

"\n" ; 

#endif 

delete [} szBuf ; 
return FALSE; 

} 

END_CATCH 

} 

*/ 
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// PPActor.cpp : implementation file 
// 

// = . = = = ==== = = = = === = ^^ = = = = = = = = ===. = = = = = = = = ^^ = ^^ = = = ==== = 

// (C) Programmed by Kim, Soomin, Mar 19 9 8 

// Information Technology Institute 
// UNI CHAT 



#include "stdafx.h" 

#include " resource. h" 

#include "PPActor , h " 

#include " PS JoinChannel . h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/PhSprite . h" 

#include "ResMan.h" 

#include "Behavior. h" // CActorDesc 



#ifdef _DEBUG 

#undef THIS_FILE 

static char BASED_CODE THIS_FILE [] = FILE 

#endif 



extern CResMan gResMan; 



IMPLEMENT_DYNCREATE (CPPActor, CPropertyPage ) 

///////////////////////////////////////////////////////////////////////////// 
/ / CPPActor property page 

CPPActor: : CPPActor () : CPropertyPage ( CPPActor : : IDD) 

{ 

TRACED ( "CPPActor : : CPPActor ( ) \n" ) ; 
//{ {AFX_DATA_INIT (CPPActor) 
m_nAge = 2 0; 
// } }AFX_DATA_INIT 

/* 

Tn_strName = _T ( " " ) ; 
m_strProf ile = _T { " " ) ; 
m_strSex = _T ( " " ) ; 
m_strHomePage = _T { " " ) ; 
m_strChatID = _T ( " " ) ; 
m_strUnitelID = _T ( " " ) ; 
m_strVersion = _T ( " " ) ; 

*/ 

Tn_nCharID 0 ; 

m_nCellID = 0; 
m_nSex - 0 ; 

m_pPSActor = NULL; 

} 

CPPActor : : -CPPActor ( ) 
{ 

TRACEO ( "CPPActor : : -CPPActor ( ) \n" ) ; 
if (m_pPSActor) 

delete m_pPSActor; 

} 
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void CPPActor : : DoDataExchange (CDataExchange* pDX) 

{ 

CPropertyPage : :DoDataExchange (pDX) ; 
/ / { { AFX_DATA_MAP ( CPPActor ) 

DDX_Control (pDX, IDC_COMBO_SEX , m_cbSex) ; 
DDX_Control (pDX, IDC_LB_ACTORS , m_lbActors) ; 
DDX_Control (pDX, IDC_SB_ACTOR , m_sbActor) ; 
DDX_Text (pDX, IDC_EDIT_AGE , m_nAge) ; 
DDV_MinMaxUInt (pDX, m_nAge , 0, 200); 
DDX_Text (pDX, IDC_EDIT_NAME , m_strName) ; 
DDV_MaxChars (pDX, m_strName, 20); 

DDX_Text {pDX, IDC_EDIT_PROFILE, m_strProf ile) ; 

DDV_iyiaxChars (pDX, m_strProf ile , 256) ; 

DDX_Text (pDX, IDC_EDIT_HOMEPAGE , m_st rHomePage ) ; 

DDX_Text (pDX, IDC_EDIT_CHAT_ID , m_strChat ID) ; 

DDV^MaxChars (pDX, m_strChatID, 20) ; 

DDX__Text {pDX, IDC_ST_VERSION , m_st rVers ion) ; 

/ / } } AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP (CPPActor, CPropertyPage) 
//{ {AFX_MSG_MAP (CPPActor) 
ON_WM_ERASEBKGND ( ) 
ON_WM_SIZE ( ) 

ON_EN_CHANGE ( IDC_EDIT_AGE , OnChangeEdi tAge ) 
ON_EN_CHANGE (IDC_EDIT_NAME , OnChangeEdi tName ) 
ON_EN_CHANGE ( IDC_EDIT_PROFILE , OnChangeEdi tProfi le ) 
ON__LBN_SELCHANGE ( IDC_LB_ACTORS , OnSelchangeLbActors ) 
ON_WM_PAINT { ) 
ON_WM_HSCROLL ( ) 

ON_CBN_SELCHANGE ( IDC_COMBO_SEX , OnSelchangeComboSex) 
/ / } } AFX_MSG_MAP 
END__MESSAGE_MAP ( ) 

BOOL CPPActor : :OnEraseBkgnd (CDC* pDC) 
{ 

CPropertyPage: : OnEraseBkgnd (pDC) ; 

CPSJoinChannel* pPSJC = (CPS JoinChannel * ) GetParent ( ) 
ASSERT (pPSJC) ; 

return pPSJC- >OnPageEraseBkgnd (pDC) ; 

} 

BOOL CPPActor : rOnlnitDialog { ) 
{ 

TRACEO ( "CPPActor : : Onini tDialog ( ) \n " ) ; 
CPropertyPage: : OnlnitDialog ( ) ; 

m__cbSex . SetCurSel (m_nSex) ; 

for (int i=0; i < gResMan . GetNumActorDescs () ; i++) 

{ 

CActorDesc* pAD = gResMan . GetAc torDesc ( i ) ; 

if (pAD) 

{ 

CString* pNick = pAD- >GetNick ( ) ; 
if (pNick) 
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m_lbActors . AddString ( *pNick) ; 

} 

} 

m__lbActors . SetCurSel (0) ; 

m_rcActor . lef t = 10; 
m_rcActor . top = 10; 
Updat e Ac tor Image { ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

/* 

HBRUSH CPPActor : :OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
{ 

CPSJoinChannel* pPSJC = (CPSJoinChannel * ) GetParent ( ) ; 
ASSERT (pPSJC) ; 

if (nCtlColor CTLCOLOR_STATIC) 
{ 

pDC- >SetBkMode (TRANSPARENT) ; 

return (HBRUSH) *pPS JC- >GetNul iBrush { ) ; 

} 

else 
{ 

HBRUSH hbr = CDialog : : OnCt IColor (pDC , pWnd, nCtlColor); 
return hbr ; 

} 

} 

*/ 

void CPPActor :: OnSize (UINT nType, int cx, int cy) 

{ 

TRACE ( "CPPActor : rOnSize (%d, %d, %d) \n" , nType, cx, cy) ; 
CPropertyPage : : OnSize (nType , cx, cy) ; 

/* 

CPSJoinChannel* pPSJC = (CPS JoinChannel* ) GetParent () ; 

ASSERT (pPSJC) ; 

if (pPS JC- >GetDIBBack ( ) ) 

{ 

SetWindowPos (NULL, 0, 0, pPS JC- >GetDIBBack ( ) - >GetWidth ( ) , pPSJC- 
>GetDIBBack ( ) - >GetHeight ( ) , 

SWP__NOMOVE I SWP_NOZORDER | SWP_NOACTIVATE) ; 

} 



void CPPActor : : OnChangeEdi tAge ( ) 
SetModif ied () ; 



void CPPActor: : OnChangeEditName { ) 
SetModif ied () ; 
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void CPPActor: : OnChangeEdi tProf ile { ) 

{ 

SetModif ied ( ) ; 

} 

void CPPActor: : OnSelchangeLbActors { ) 

{ 

Tn_nCharID = m_lbActors . GetCurSel ( ) ; 
m_nCellID = 0; 
UpdateActorlmage ( ) ; 
SetModif ied ( ) ; 

} 

void CPPActor: : OnSelchangeComboSex ( ) 

{ 

m_nSex = m_cbSex . GetCurSel ( ) ; 
TRACE ( "Sex : %d\n" , m_nSex) ; 
SetModif ied { ) ; 

} 

void CPPActor : lOnHScroll (UIWT nSBCode , UINT nPos , CScrollBar* pScrollBar) 
{ 

CScrollBar* pSB = (CScrollBar* ) GetDlgltem ( IDC_SB_ACTOR) ; 

if (pScrollBar pSB) 
{ 

if ( !m_pPSActor) 
return ; 

int nCells = m_j>PSActor- >GetNumCel 1 s ( ) ; 
int nMin, nMax; 

pSB- >GetScrollRange (&nMin, &nMax) ; 

switch (nSBCode) 

{ 

case SB_THUMBPOSITION: 

m_nCellID - nPos; 

pSB->SetScrollPos (nPos) ; 

breaks- 
case SB_LINEL.EFT : 

m_nCellID = pSB- >GetScrol IPos ( ) - 1; 

if (m_nCellID < nMin) 

m_nCellID = nMax; // Wrap 

pSB->SetScrollPos (m_nCellID) ; 

breaks- 
case SB_LINERIGHT: 

m_nCellID = pSB- >GetScrol iPos ( ) + 1; 

if (m_nCellID > nMax) 

m_nCellID = nMin; // Wrap 

pSB->SetScrollPos (m__nCell ID) ; 

break; 
case SB_PAGELEFT: 

TTi^nCelllD = pSB->GetScrollPos ( ) - (nMax - nMin) / 5; 

if (m_nCellID < nMin) 

m__nCellID ^ nMin; 

pSB->SetScrollPos (m_nCellID) ; 

break; 
case SB PAGERIGHT: 
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m_nCellID = pSB- >GetScrollPos ( ) + (nMax - nMin) / 5; 
if (m_nCellID > nMax) 

m_nCel 1 ID = nMax ; 
pSB->SetScrollPos (m_nCellID) ; 
break ; 

} 

InvalidateRect (&m_rcActor , FALSE) ; 
UpdateData (FALSE) ; 

} 

CPropertyPage : :OnHScroll (nSBCode, nPos, pScrollBar) ; 

} 

// m_nCharID can be set externally by calling CPS JoinChannel : : SetMemberInf o 
void CPPActor: : UpdateAc tor Image ( ) 

{ 

CActorDesc* pAD = gResMan . GetActorDesc (m_nCharID) ; 

if (!pAD) 

{ 

TRACED ( "CPPActor - ActorDesc not found!\n"); 
return; 

} 

CString* pstrRes = pAD- >GetResName ( ) ; 
if ( ! pstrRes ) 

{ 

TRACEO ( "CPPActor - ActorDesc - ResName not found !\n") ; 
return ; 

} 

CString strResName ( *pstrRes ) ; 
// We'll not reuse DIB here: 

// Since this image is not necessary to be resident in memory. 
CPhasedSprite* pPS = gResMan . LoadPhasedSpri te ( strResName , FALSE); 
if (IpPS) 
{ 

delete pPS; 

StrResName += " not found!*'; 
AfxMessageBox ( StrResName) ; 
return; 

} 

if (m__pPSActor ) 

delete m__pPSActor; // Delete previously allocated resource 

m_jpPSActor = pPS; 
m_nCellID = 0; 

m_pPSActor- >SetCell {m_nCellID) ; 
CRect rc; 

m__pPSActor- >GetRect (rc) ; 

m_rcActor . right = m_rcActor . lef t + rc. Width (); 
m_rcActor . bottom = m_rcActor . top + rc.HeightO; 

CScrollBar* pSB = (CScrollBar* ) GetDlgltem ( IDC_SB_ACTOR) ; 
ASSERT (pSB) ; 

pSB- >SetWindowPos (NULL, m_rcActor . lef t , m_rcActor . bottom+2 , 

m_rcActor . Width 0*2, 15 , 
SWP_NOZORDER | SWP_NOACTIVATE) ; 

pSB->SetScrollRange (0 , m_jpPSActor- >GetNumCells ( ) -1) ; 

pSB->SetScrollPos (0) ; 
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m_lbAct:ors . SetCurSel (m_nCharID) ; 
InvalidateRect (&m_rcActor) ; 

} 

void CPPActor : :OnPaint ( ) 

{ 

CPaintDC dc(this); // device context for painting 

CPSJoinChannel* pPSJC = (CPS JoinChannel * ) GetParent ( ) ; 
ASSERT (pPSJC) ; 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (pPSJC->GetPalette ( ) ) 
{ 

pPalOld = dc.SelectPalette (pPSJC->GetPalette 0 , FALSE); 
bForceBackground = FALSE 

// pDC->Reali2ePalette 0 ; // we realize in response to 
WM_QUERYNEWPALETTE 

} 

if (m_jpPSActor) 

{ 

m_pPSActor->SetCell (m_nCellID) ; 

CPoint ptLT (m_rcActor . lef t , m_rcActor . top) ; 

m_pPSActor- >Draw (&:dc, ptLT) ; 

} 

if (pPalOld) 

dc . SelectPalette (pPalOld, FALSE) / 
// Do not call CPropertyPage : : OnPaint ( ) for painting messages 



BOOL CPPActor : rOnApply () 
{ 

// Satya Changes Start : 

// At any moment if click ok button on the Actor Acreen it 
// should activate the next TAb i.e Room List.. 

CPSJoinChannel *pParent = (CPS JoinChannel *) this - >GetParent () ; 
ASSERT (pParent) ; 

if (pParent- >SetActivePage (1) ) 

{ 

return TRUE; 

} 

else 

{ 

return CPropertyPage :: OnApply () ; 

} 

} 
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// PPActor.h : header file 
// 

// (C) Programmed by Kim, Soomin, Mar 1998 

// Information Technology Institute 
// UNICHAT.COM 



#ifndef PPACTOR_H 

#define PPACTOR_H 

///////////////////////////////////////////////////////////////////////////// 
// CPPActor dialog 

class CPhasedSprite ; 

class CPPActor : public CPropertyPage 
{ 

DECLARE_DYNCREATE (CPPActor) 

// Construction 
public : 

CPPActor () ; 

-CPPActor ( ) ; 



int m_nCharID; 

int m_nSex; // O: Male, 1: Female 

// Dialog Data 

//{ {AFX_DATA{ CPPActor) 
enum { IDD - IDD_PP_ACTOR } ; 
CComboBox m_cbSex; 
CListBox m_lbActors; 
CScrollBar m_sbActor; 
UINT m_nAge ; 
CString m_strName; 
CString m_strProf ile ; 

CString m_strHomePage ; 

CString m_strChatID; 
CString m_strUnitelID ; 

CString m_strVersion; 
//} }AFX_DATA 

// Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAL (CPPActor) 
public : 

virtual BOOL OnApplyO; 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 



// Implementation 
protected : 

void UpdateActorlmage 0 ; 

int m_nCellID; 
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CPhasedSprite* m_pPSActor; 
CRect m_rcActor; 

// Generated message map functions 
// { { AFX_MSG (CPPActor) 

afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 
virtual BOOL OnlnitDialog ( ) ; 

afx_msg void OnSize{UINT nType, int cx, int cy) ; 

afx_msg void OnChangeEditAge ( ) ; 

afx__msg void OnChangeEditName ( ) ; 

afx_msg void OnChangeEditProf ile ( ) ; 

afx_msg void OnSelchangeLbActors ( ) ; 

afx_msg void OnPaint { ) ; 

afx_msg void OnHScroll {UIISTT nSBCode , UINT nPos, CScrollBar* 
pScrollBar) ; 

afx_msg void OnSelchangeComboSex ( ) ; 

// } }afx_msg 
declare_message_map ( ) 

}; 



#endif // P P ACTOR _H 
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// PPChannel . cpp : implementation file 

// 

// (C) Programmed by Kim, Soomin, Mar 1998 

// Information Technology Institute 
// UNICHAT.COM 



# include "stdafx. h" 

#include " resource. h" 

#include "PPChannel . h" 

#include " PS JoinChannel . h" 

#include "UC2CS . h" 

#include "MemberListDlg . h" 

#include " InputPassword . h " 

#include "UC2.h" // RegGetLastStagelD () 

#include "ResMan.h" 

#include "Parser. h" 



#ifdef _DEBUG 
#undef THIS__FILE 

static char BASED_CODE THIS_FILE[] = FILE 

#endif 



extern CResMan gResMan; 
// SATYA CHANGES START 
extern CParser gParser; 
// SATYA CHANGES END 



IMPLEMENT_DYNCREATE (CPPChannel , CPropertyPage ) 

///////////////////////////////////////////////////////////////////////////// 
// CPPChannel property page 

CPPChannel : : CPPChannel ( ) : CPropertyPage (CPPChannel : : IDD) 
{ 

TRACED ( "CPPChannel : : CPPChannel {) \n" ) ; 
//{ {afx_DATA_INIT (CPPChannel) 
m_strCount = _T ( " " ) ; 
m_strMessage = _T ( " " ) ; 
m_strStageID _T ( " " ) ; 
// } }AFX_DATA_INIT 

m_font . CreateFont ( -13 , 0, 0, 0, FW_BOLD, 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
DEFAULT_CHARSET, out_character_precis , 

CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY , 

DEFAULT_PITCH | | FF_DONTCARE, 

#ifdef ^KOREAN 

"±^^ ^A^") ; 

#else 

"Times New Roman") ; 

#endif 

m_ilChannel . Create (IDB_IL_CHANNEL, 16, 1, CLR_NONE) ; 

m_nlndex = - 1 ; 

m_nUsers - 0 ; 

m_bMUD = FALSE ; 

// SATYA CHANGES START 
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// create the Images for Tree Control : 

m_ilChnCatTree .Create (IDB_IL_CREATECHANNEL, 16, 1, CLR_NONE) ; 
// set the default valuese for Room Categiory 



m__ChnCatType . LANG=0 ; 

m_ChnCatType . CROOT=0 ; 

m_ChnCatType . CCHILD= 0 ; 

// Re set the Room Categiory tree 

ReSetChannalCat () ; 

// SATYA CHANGES END 



} 

CPPChannel : : -CPPChannel ( ) 
{ 

TRACED ( "CPPChannel : : -CPPChannel ( ) \n" ) ; 

} 



void 

{ 



} 



CPPChannel: : DoDataExchange (CDataExchange* pDX) 

CPropertyPage : : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CPPChannel) 

DDX_Control (pDX, IDC_CHANNEL_TREE , m_t cChannelCat ) ; 
DDX_Control (pDX, IDC_LIST_CHANNEL , m_lcChannel) ; 
DDX_Text (pDX, IDC_STATIC__CHANNEL_COUNT , m_strCount) 
DDX_Text (pDX, IDC_STATIC_MESSAGE, m_s t rMe s sage ) ; 
//DDX_Text (pDX, IDC_ST_STAGEID , m_strS t age ID ) ; 
/ / } } AFX_D ATA_MAP 



OnDeleteitemLiistChannel ) 



BEGIN_MESSAGE_MAP ( CPPChannel , CPropertyPage ) 
// { {AFX_MSG_MAP (CPPChannel) 

ON_NOTIFY (NM_CLICK, IDC_LIST_CHANNEL , OnCl ickListChannel) 
ON_NOTIFy (NM_DBLCLK, IDC_LIST_CHANNEL , OnDblc IkLi s tChannel ) 
ON_BN__CLICKED { IDC_BTN__RENEW , OnBtnRenew) 
ON_BN_CLICKED ( IDC_BTN_MEMBER , OnBtnMember) 
ON__NOTIFY {LVN__DELETEITEM, IDC_LIST_CHANNEL 
ON_WM_DESTROY ( ) 
ON_WM_ERASEBKGND ( ) 

//ON_BN_CLICKED { IDC_BTN_MUD, OnBtnMud) 
ON_BN_CLICKED (IDC_RADIO_ENG , OnSelectEngl ) 
ON_BN_CLICKED ( IDC_RADIO_CHI , OnSelectChi ) 
ON_BN_CLICKED ( IDC_RADIO_JAP , 
ON_BN_CLICKED ( IDC_RADIO_KOR, 
ON_BN__CLICKED ( IDC_RADIO_OTH , 

ON_BN_CLICKED ( IDC_RADIO_SPA, OnSelectSpn) 
ON_NOTIFY (TVN_SELCHANGED, IDC_CHANNEL_TREE , 
ON_NOTIFY (TVN_SELCHANGING, IDC_CHANNEL_TREE 
// } }AFX_MSG_MAP 

ON_MESSAGE ( CMD_QUERY__CHANNELS , OnQue ry Channels ) 

0N_MESSAGE ( CMD_QUER Y_CHANNELS_END , OnQue ry Channe 1 sEnd ) 
0N_MESSAGE (CMD__QUERY_N0MATCHES , OnQueryNoMatches) 
0N_MESSAGE (CMD_QUERY__ERR0R, OnQueryError) 
END MESSAGE MAP () 



OnSelect Jap) 
OnSelectKor) 
OnSelectOtr) 



OnSelchangedChannelTree) 
OnSelchangingChannelTree ) 



BOOL CPPChannel : lOnEraseBkgnd (CDC* pDC) 
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{ 

CPropertyPage : : OnEraseBkgnd (pDC) ; 

CPSJoinChannel* pPSJC = (CPS JoinChannel * ) GetParent ( ) ; 
ASSERT (pPSJC) ; 

return pPS JC- >OnPageEraseBkgnd (pDC) ; 

} 

/* 

HBRUSH CPPChannel : :OnCtlColor (CDC* pDC , CWnd* pWnd, UINT nCtlColor) 
{ 

CPSJoinChannel* pPSJC =^ ( CPS JoinChannel *) Get Parent () ; 
ASSERT (pPSJC) ; 

if {nCtlColor =- CTL.COLOR_STATIC) 
{ 

pDC->SetBkMode (TRANSPARENT) ; 

return (HBRUSH) *pPSJC- >GetNullBrush ( ) ; 

} 

else 
{ 

HBRUSH hbr = CDialog : : OnCt iColor (pDC , pWnd , nCtlColor) ; 
return hbr; 

} 

} 

*/ 

// TRACE ( "CPSJoinChannel : :OnSize (%d, %d, %d) \n" , nType, cx, cy) ; 

void CPPChannel : :OnClickListChannel(NMHDR* pNMHDR, LRESULT* pResult) 
{ 

DWORD dwPos = : :GetMessagePos ( ) ; 

CPoint point ( ( int ) LOWORD (dwPos ) , ( int ) HIWORD (dwPos ) ) ; 
m_lcChannel . ScreenToClient ( Sipoint ) ; 

if ( (m_nlndex = m_lcChannel . Hi tTest (point ) ) -1) { 

/* // for previous version 

CS_PROPDATA cspd; 

PICS__PROPERTY pics Prop = 
(PICS_PROPERTY) m_lcChannel . Get ItemData (m_nlndex) ; 

p i c s P rop - >HrGe t Pr ope rty(&cspd, CS INDEX_PRO P_CHANNEL_MODE ) 

DWORD dwMode = * ( (DWORD*) cspd.pbData) ; 

BOOL bPrivate = (dwMode & CS_CHANNEL_PROTECTED) ; 

picsProp->HrGetProperty (&cspd, CSINDEX_PROP_TOPIC) ; 
CString strStage ( (CHAR* ) cspd . pbData) ; 

*/ 

m_strStageID = m_lcChannel . GetltemText (m_nXndex, 3);// 0) 
syc 0707 // Subltem=0 

// [p2/0003chrm] title 

// syc 0707 begin 

//CString strl = m_lc Channel . GetltemText (m_nlndex , 0) ; 
//CString str2 = m_lc Channel . GetltemText (m_n Index , 3); 
//CString strTemp; 

//strTemp. Format (" [%s] \"%s\"", strl, str2); 
// end 
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// m_strMessage = strTemp; // m_s trStagelD ; // syc 0707 // syc 

0715 

//m_strSelectedStageID = "Selected Channel : " + strTemp; // syc 

0707 

UpdateData (FALSE) ; // Write 

// m_btnBkg . EnableWindow ( ) ; 

} 

*pResult = 0; 

} 

void CPPChannel : lOnDblclkListChannel (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

OnClickListChannel (pNMHDR, pResult) ; 

if (m_nlndex -1) 
return ; 

CPSJoinChannel* pSheet = (CPS JoinChannel* ) GetParent ( ) ; 
ASSERT (pSheet) ; 

CUC2Socket* pCS = pSheet->GetSocket ( ) ; 
if (pCS && !pCS->IsQueryOK() ) { 

AfxMessageBox (IDS_QUERY_LINE_BUSY) ; 

return; 

} 

// Get the MIC channel index of the current selected item 
CS_PROPDATA cspd; 
PICS_PROPERTY picsProp = 
(PICS_PROPERTY) m_lcChannel .GetltemData (m_n Index) ; 

if (FAILED (picsProp->HrGetProperty(&cspd, CSINDEX_PROP_ID) ) ) 
return; 

ASSERT (cspd, dwcb si zeof (DWORD) ) ; 

DWORD dwChannellD = *( (DWORD* ) cspd . pbData) ; 

CMemberListDlg dlgML; 

dlgML.SetPPChannel (pSheet - >GetDocument () , dwChannellD) ; 
dlgML . DoModal ( ) ; 

*pResult = 0; 

} 

void CPPChannel : :OnBtnRenew ( ) 

{ 

VERIFY (ShowList ( ) ) ; 

} 

void CPPChannel : :OnBtnMember 0 

{ 

CPSJoinChannel* pSheet = (CPS JoinChannel *) GetParent () ; 
ASSERT (pSheet) ; 
CMemberListDlg dlgML; 

dlgML. SetPPChannel (pSheet ->GetDocument ( ) , 0) ; 
dlgML . DoModal ( ) ; 

} 

void CPPChannel : :OnDeleteitemListChannel (NMHDR* pNMHDR, LRESULT* pResult) 
{ 
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NM_LISTVIEW* pNMListView = (NM_LISTVIEW* ) pMMHDR ; 

if (pNMIiistView->lParam) 

{ 

PICS_PROPERTY picsProp = (PICS_PROPERTY} pNMListView- >lParam ; 
picsProp- >Release { ) ; 

} 

*pResult = 0; 

} 

BOOL CPPChannel : :OnInitDialog ( ) 
{ 

CPropertyPage : : OnlnitDialog ( ) ; 



// Prepare List Control for Channels list 
m_lcChannel . Set ImageList ( &m_il Channel , LVSIL^SMALL) ; 

// SATYA CHANGES START 

char* szColumn[] = { "Topic" , "Background" , "Members", ""}; 
int nWidth[] = {120,90,62, O}; // syc 0704 



LV_COLUMN IvC; // list view column structure 

IvCmask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM; // 

valid members 

IvC.fmt = LVCFMT_LEFT; // left-align column 

// Add the columns. 

for (int i=0; i < sizeof (nWidth) /sizeof (nWidth [ 0] ) ; i++) { 

IvC.cx = nWidth[i]; // width of column in 

pixels 

IvC.iSubltem = i; 

IvC.pszText - szColumn[i]; 

if (m_lcChannel . Insert Column (i , &lvC) =^ -1) 
return NULL; 

1 

( (CButton*)GetDlgItem(IDC_RADIO_ENG) ) - >SetCheck (BST_CHECKED) ; 
m_ChnCatType . LANG = 0 ; 



// Prepare Tree Control 

m_tcChannelCat . SetlmageList (&m_ilChnCatTree , TVSIL_NORMAL) ; 

int nNumRootltem = gResMan - GetNumChanTree ( ) ; 
for (i=0; i < nNumRootltem; i++) 

{ 

CString strRootltem = gResMan . GetNameChanTree ( i ) ; 

HTREEITEM hRoot = m_tcChannelCat . Insert I tern { strRootltem, 0, 1, 

TVI_ROOT) ; 

int nNumSubltem - gResMan . GetNumSubltemChanTree (i) ; 
for (int j^O; j < nNumSubltem; 

{ 

CString strSubltem = gResMan . GetNameSubl temChanTree (i , j) 
HTREEITEM hitem = m_tcChannelCat . Insert Item ( strSubltem, 0 

1 , hRoot) ; 

DWORD dwData = (DWORD) (j + (1000 * i)); 
m__tcChannelCat - SetltemData (hItem, dwData) ; 

} 
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} 

m_ChnCatType . CROOT = 0; 
m_ChnCatType .CCHILD = 0; 

HTREEITEM hitem, rootltem; 

rootltem = m_tcChannelCat . GetRoot I tern { ) ; 
hitem = rootltem; 
ASSERT (hltem) ; 

m_tcChannelCat .Expand (hltem, TVE_EXPAND) ; 
for (int iLoop =0 ; hltem 1= NULL; iLoop++) 

{ 

hltem = m_tcChannelCat .GetNextltem (hltem, TVGN_NEXT) ; 
m_tcChannelCat .Expand (hltem, TVE_EXPAND) ; 

} 

hltem = m_tcChannelCat , GetChildltem (rootltem) ; 

m_tcChannelCat . Selectltem (hltem) ; 

// Update the Room Categories tree control 

UpdateChannelCategories () ; 

// SATAYA CHANGES END 

return TRUE; 

} 

void CPPChannel : : OnDestroy ( ) 

{ 

CPropertyPage : : OnDestroy () ; 

} 

// returns the index of the added item 

int CPPChannel : lAddltem (const int i, int ilmage, PICS_PROPERTY picsProp, 

TCHAR* psz) 

{ 

if (picsProp) 
picsProp- >AddRef () ; 

LV_ITEM IvI; // list view item structure 

: : ZeroMemory ( &lvl , s i zeof ( IvI ) ) ; 

Ivl.mask = LVIF_TEXT | LVIF_IMAGE | LVIF_PARAM | LVIF_STATE; 

IvI. state = 0; 

IvI . stateMask = 0; 

IvI . litem = i ; 

IvI.iSubltem = 0; 

// The parent window is responsible for storing the text. 
// The list view control will send an LVN_GETDISPINFO 
// when it needs the text to display. 

IvI.pszText = psz; // syc 0705 

IvI .cchTextMax = MIC_MAX_CHANNEL_NAME_LENGTH_MIC ; // 63 // syc 

0705 

// syc 0705 begin 
//char buffer [7] ; 
//_itoa(i, buffer, 10); 




A-264 



PPChannel.cpp 




//CHAR SZText[17]; 

//wsprintf (szText , "Channel : %s", buffer) / 
//IvI .pszText = szText; 

// end 

Ivl.i Image = i Image; 

IvI.lParam = (LPARAM) pics Prop; 



int iltem = m_lcChannel . InsertI tern ( ficlvl ) ; 
if { (iltem == -1) picsProp) 

picsProp- >Release ( ) ; 
return iltem; 



BOOL CPPChannel : : AddChannel {PICS_PROPERTY picsProp) 

{ 

ASSERT (picsProp) ; 

// Add the channel name. . 

int i ; 

if (FAILED (picsProp- >HrGetPrivateData ( (PVOID*) &i) ) ) 
{ 

TRACEO ("CPPChannel : :AddChannel - HrGet PrivateData failed. \n"); 
return FALSE; 

} 

CS_PROPDATA cspd; 

if (FAILED (picsProp->HrGetProperty (&cspd, CSINDEX_PROP_CHANNEL_NAME) ) ) 

return FALSE; 
TCHAR* szChannel (TCHAR* ) cspd . pbData ; 

// szChannel : [p2 / 0002chrm] title . ,[h2/], [ewO] 
ChnCatType chantype = Ge tChnCat Type ( szChannel ) ; 
// Get the number of Users in the Cahnnel 

if (FAILED(picsProp->HrGetProperty {&cspd, CSINDEX_PROP_CHANNEL_CUSER) ) ) 
return FALSE; 
int iCount = *( (DWORD* ) cspd . pbData) ; 
FindNoOf Users (chantype, iCount) ; 
// 



// Filter display according to the channel type 

if (// (gResMan.GetStageType (szChannel) ^= ST_HOME) || // syc 0712 
( (gResMan.GetStageType (szChannel) (m_bMUD ? ST_MUD : 

ST_PUBLIC) ) && 

( chantype . LANG === m_ChnCa t Type . LANG) &&: 
(chantype . CROOT m_ChnCatType . CROOT) && 
( chantype. CCHILD == m_ChnCatType . CCHILD) ) 
) 

{ 

if (FAILED (picsProp- >HrGetProperty (&cspd, 
CSINDEX_PROP_CHANNEL_MODE) ) ) 

return FALSE; 
DWORD dwMode = * ( (DWORD* ) cspd . pbData) ; 

if (FAILED (picsProp- >HrGetProperty(&cspd, CSINDEX_PROP_TOPIC) ) ) 

return FALSE ; 
CString strTopic ( (CHAR* ) cspd .pbData) ; // syc 0712 
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char* szTopic = strTopic . GetBuf f er { strTopic . GetLength ( ) + l) ; // 

syc 0712 

StrTopic . ReleaseBuffer 0 ; // syc 0712 

if (FAILED (picsProp->HrGetProperty (&cspd, 
CSINDEX_PROP_CHANNEL_CUSER) ) ) 

return FALSE; 
CHAR szCount [20] ; 

int nCount = *( (DWORD* ) cspd . pbData ) ; 
wsprintf (szCount , "%d", nCount) ; 
m_nUsers += nCount; 

int ilmg; 

if (dwMode & CS_CHANNEL_PROTECTED) 
ilmg = IL_CHANNELPRIV; 

else 

ilmg = m_bMUD ? IL_CHANNELMUD : IL_CHANNEL; 



int iltem = Addltem(i, ilmg, picsProp, szTopic) ; 

CString strTemp ( szChannel) ; 

int nStart = strTemp . Find (•/') ; 

int nEnd = strTemp . Find (']') ; 

int length = strTemp . GetLength () ; 

char* p = strTemp.GetBuffer (length + 1); 

* {p + nEnd) = NULL; 

p +^ nStart + 1; 

StrTemp . ReleaseBuffer ( ) ; 

CString strScene ( ( char * ) p) ; 

gResMan . GetStageTitle (strScene) ; 

// end 

m_lcChannel - SetltemText (m_i , 1, strScene); 
m_lcChannel . SetltemText (m_i , 2, szCount); 
m_lcChannel . SetltemText (m_i , 3, szChannel); 
m_i++ ; 

return (iltem != -1); 

} 

return FALSE; 

} 

BOOL CPPChannel : : ShowList ( ) 

{ 

BeginWaitCursor ( ) ; 

// SATYA CHANGES START 

m_strCount = "Channels : 0 Members : 0 "; 

SetDlgltemText ( IDC__STATIC_CHANNEL_COUNT , m_strCount) ; 
// Re set the Room Categories tree control 
ReSetChannalCat ( ) ; 
// SATYA CHANGES END 

CPSJoinChannel* pSheet = (CPS JoinChannel * ) GetParent ( ) ; 
ASSERT (pSheet) ; 

CUC2Socket* pCS = pSheet - >GetSocket () ; 
if (!pCS) 

return FALSE; 
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m_strMessage . LoadString ( IDS_RECEIVING_CHANNELS_LIST) ; 
UpdateData (FALSE) ; 

if {pCS->IsQueryOK() ) 
{ 

m_lcChannel . DeleteAl litems ( ) ; 
m_i = m_nUsers - 0 ; 

// Say that now I'm the client of the socket query service (to 
let CUC2Socket know) 

pCS->SetQueryClient (GetSaf eHwnd 0 ) ; 
BeginWaitCursor {) ; 

if ( !pCS->FQueryListChannels () ) 
EndDialog { - 1) ; 

} 

else 

{ 

AfxMessageBox (IDS_QUERY_LINE_BUSY) ; 

} 

// Then PXSocket will call AddChannel for each item 
EndWaitCursor ( ) ; 
return TRUE; 

} 

void CPPChannel : : EndOf List ( ) 

{ 

if (m_bMUD) 
{ 

Af xFormatStringl (m_strMessage , IDS_MUD_MODE, m_strStageID) ; 

} 

else 

{ 

m_strMessage . LoadString (m_lcChannel . GetltemCount ( ) 

? IDS_CLICK_CHANNEL_TITLE 
: IDS_NO_CHANNEL_OPENED) ; 

} 

UpdateData (FALSE) ; 
UpdateChannelCategories () ; 
EndWaitCursor 0 ; 
// : : SetCursor (AfxGetApp {) - >LoadS tandardCursor ( IDC_ARROW) ) ; 



1 1 1 1 1 / 11 1 1 1 / 1 / 1 1 1 1 1 1 1 1 11 1 / 1 1 n 1 1 1 1 / 1 1 1 1 1 1 11 1 1 1 1 / 1 1 1 / 1 1 / 1 // 1 1 / 1 11 / / 

//to handle messages from ChatSock 

LRESULT CPPChannel :: OnQuery Channel s (WPARAM wParam, LPARAM iParam) 
{ 

// TRACE {"<=Ox%lx RECV\n", iParam) ; 

if ( ! AddChannel ( (PICS_PROPERTY) IParam) ) 
return -1; 

m_strCount . Format { "%d : %d" , m_lcChannel . Get I temCount ( ) , m_nUsers) ; 
SetDlgltemText (IDC_STATIC_CHANNEL_COUNT, m_strCount); // for speed 
return 0 ; 

} 

LRESULT CPPChannel : :OnQueryChannelsEnd (WPARAM wParam, LPARAM IParam) 
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EndOfList 0 ; 
return 0 ; 

} 

LRESULT CPPChannel : :OnQueryNoMatches (WPARAM wParam, LPARAM IParam) 

{ 

m_str Count = "0:0"; 
// m^strMessage - (char* ) iParam; 

m_strMessage .LoadString (IDS_NO__CHANNEL_OPENED) ; 

UpdateData (FALSE) ; // Write 

// m pSheet - >ChatVoice (m strMessage) ; 

return 0; 

} 

LRESULT CPPChannel : rOnQueryError (WPARAM wParam, LPARAM IParam) 
{ 

m_strCount = "0:0"; 
m_strMessage = (char* ) IParam; 

m_strMessage .LoadString ( IDC_STATIC_MESSAGE) ; 
UpdateData (FALSE) ; // Write 

// m__pSheet- >ChatVoice (m_strMessage) ; 
return 0 ; 

} 



void CPPChannel : : OnBtnCreateChannel () 

{ 

m__pSheet- >AddCreateChannelPage () ; 

GetDlgItem(IDC_BTN_CREATE_CHANWEL) - >EnableWindow ( FALSE) ; 

} 

*/ 

BOOL CPPChannel : : OnApply ( ) 
{ 

CPSJoinChannel* pSheet = (CPS JoinChannel * ) GetParent () ; 
ASSERT (pSheet) ; 
if {m_bMUD) { 

} 

else if ( IpSheet- >IsListOnly ( ) && (m_nlndex == -1) IpSheet- 
>IsCreateChannel () ) { 

if (m_lcChannel .GetltemCount 0 ===0) { 

//if (m_strMessage . LoadString (IDS_NO_CHANNEL__OPENED) ) // 

syc 0715 

// UpdateData (FALSE) ; // syc 0715 

pSheet - >ActivateCreateChannelPage () ; 
Af xMessageBox { IDS_FILL_CHANNEL_TITLE) ; 

} 

else { 

//if (m_strMessage. LoadString (IDS_SELECT_CHANNEL) ) // syc 

0715 

// UpdateData (FALSE) ; // syc 0715 
pSheet - >ActivateJoinChannelPage () ; 

} 

return FALSE; 

} 

else { 
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LV_ITEM it; 

: : ZeroMemory (&:it , sizeof (it) ) ; // Missing this was the bug 

it.iltem = m_nlndex; 
it. mask = LVIF_IMAGE; 

if (m_lcChannel .Getltem(&:it) (it.ilmage IL_CHANNELPRIV) ) 

CInputPassword IPDlg; 

if (IPDlg.DoModalO == IDOK) { //&& 
! IPDlg .m_strPassword . IsEmpty { ) ) 

m_strPassword = IPDlg . m_strPassword; 

} 

else { 

return FALSE; 

} 

} 

} 

return CPropertyPage : : OnApply { ) ; 

} 

/*void CPPChannel : cOnBtnMud ( ) 
{ 

m_bMlID = ! m_bMUD ; 
// GetDlgItem(IDC_LIST_CHANNEL) - >EnableWindow ( !m_bMUD) ; 

if (m_bMUD) 
{ 

m_nlndex - -1; 
m_strPassword . Empty ( ) ; 
GetLastStagelD ( ) ; 

} 

else 

{ 

m_strStageID . Empty ( ) ; 

} 

SetMUDButtonTitle () ; 
OnBtnRenew ( ) ; 

}*/ 

void CPPChannel : : GetLastStagelD ( ) 
{ 

( (CUC2App*) AfxGetApp 0 ) ->RegGetLastStageID (m_strStageID) ; 
if (m_strStageID . IsEmpty {) ) 

{ 

m_strStageID ^ *gResMan . GetStageName { 0 ) ; 
gResMan . ExtractStagelD (m_strStageID) ; 

} 

gResMan.MakeStageName (m_strStageID, FALSE); // MUD name 

} 

// SATYA CHANGES START 

// removed MUD Button we don't need it 
/*void CPPChannel: : SetMUDButtonTi tie ( ) 
{ 

CString strBtn; 

strBtn.LoadString (m_bMUD ? IDS_BTN_MUD : IDS_BTN_USER) ; 
GetDlgItem(IDC_BTN_MUD) - >SetWindowText ( strBtn) ; 

} 

*/ 

//Function Name : GetChnCatType 
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//Parameter : Room Name 

//Purpose : This function Parse the room name and find out the 

// the room categoriy (ENGLISH , AGE , 2 0+ ) 

//Return : Return the Room Categoriy, 

ChnCatType CPPChannel : : GetChnCatType (LPCTSTR szName) const 
{ 

ChnCatType chantype; 
chantype . LANG =0; 
chantype . CROOT =0; 
chantype . CCHILD =0/ 



char *channel_name = (char *)szName; 
gParser . CopyBuf f er ( channel_name) ; 
gParser . SetLef tToken { ' ( ' ) ; 

gParser . GetValueRightToken (chantype . LANG, ' , ' ) ; 
gParser . GetValueRightToken (chantype . CROOT, ' , ') ; 
gParser. GetValueRightToken (chantype. CCHILD, ') ') ; 

return chantype; 

} 

// When select English Radio Button 
void CPPChannel : : OnSelectEngl ( ) 

{ 

m^ChnCatType.LANG = 0; 
VERIFY (ShowList ( ) ) ; 

} 

// When select Chinese Radio Button 
void CPPChannel: :OnSelectChi () 

{ 

m_ChnCatType .LANG = 3 ; 
VERIFY (ShowList ( ) ) ; 

} 

// When select Japanese Radio Button 
void CPPChannel : rOnSelect Jap ( ) 

{ 

m_ChnCatType . LANG = 4 ; 
VERIFY (ShowList ( ) ) ; 

} 

// When select Korean Radio Button 
void CPPChannel : lOnSelectKor ( ) 

{ 

m_ChnCatType . LANG = 2 ; 
VERIFY (ShowList ( ) ) ; 

} 

// When select Others Radio Button 
void CPPChannel : rOnSelectOtr ( ) 

{ 
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m_ChnCatType . LANG = 5 ; 
VERIFY (ShowList ( ) ) ; 

} 

// When select Spanish Radio Button 
void CPPChannel : rOnSelectSpn 0 

{ 

m_ChnCatType . LANG = 1; 
VERIFY (ShowList ( ) ) ; 



} 

// On Channel Tree Selection Changed 

void CPPChannel : rOnSelchangedChannelTree (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

NM_TREEVIEW* pNMTreeView = {NM_TREEVIEW* ) pNMHDR ; 
HTREEITEM hitem = pNMTreeView- >itemNew . hi tern; 

if (m_tcChannelCat . ItemHasChildren (hItem) ) 

{ 

m_tcChannelCat .Expand (hltem, TVE_EXPAND) ; 

m_lcChannel .DeleteAllItems 0 ; 

return; 

} 



VERIFY (ShowList ( ) ) ; 
*pResult = 0; 

} 

// On before Channel Tree Selection changing 

void CPPChannel : rOnSelchangingChannelTree (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

NM__TREEVIEW* pNMTreeView = (NM_TREEVIEW* ) pNMHDR; 
HTREEITEM hItem = pNMTreeView- >itemNew . hi tern; 

if (m_tcChannelCat . ItemHasChildren (hi tern) ) 
return; 

DWORD dwData = m_tcChannelCat . Get I temData (hItem) ; 
m_ChnCatType.CROOT = (int)(dwData / 1000); 
m_ChnCatType.CCHILD = (int) (dwData % 1000) ; 

*pResult = 0; 



// Function Name : UpdateChannelCategories 

/ / Parameters : None 

// Purpose : It updates the room categories tree control with No of 
Users 

// Return : TRUE if it Updates the tree control else FALSE 



BOOL CPPChannel: : UpdateChannelCategories () 
{ 

CString ItemText , tempstr ; 
int i Index = 0; 
HTREEITEM hitem, pritem; 
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/ / Update the f rist node 

pritem = m_tcChannelCat . GetRoot Item ( ) ; 
hitem = pritem; 
ASSERT (hitem) / 

ItemText - m_tcChanneICat . GetltemText (hitem) ; 
tempstr . Format ( " { %d) " , m_aChatCentral [0} ) ; 
ilndex = ItemText . Find ('(') ; 
if (ilndex 1=-1) 

{ 

// delete the no of People in the Room categoiry. . 
ItemText .Delete (ilndex, { ItemText . Get Length ( ) -ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat . Set ItemText (hitem, LPCTSTR { ItemText ) ) ; 



hitem = m_tcChannelCat . GetChildltem (hitem) ; 
ASSERT (hitem) ; 

ItemText = m_tcChannelCat . Get ItemText (hitem) ; 
ilndex = ItemText . Find ( ' ( ' ) ; 
if (ilndex '=-1) 
{ 

ItemText . Delete (ilndex, ( ItemText . GetLength ( ) -ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat .Set ItemText (hitem, LPCTSTR (ItemText) ) ; 



/ / update the secoend node 

pritem = m_tcChannelCat . GetNext Item (pritem , TVGN_NEXT) ; 
hitem = pritem; 
ASSERT (hitem) ; 
ItemText . Empty ( ) ; 
tempstr . Empty ( ) ; 

ItemText = m_tcChannelCat . Get ItemText (hitem) ; 

tempstr . Format ( (%d) " , m_aAge [0] +m_aAge [1] +m_aAge [2 ] +m_aAge [3] +m_aAge [4] 

ilndex = ItemText . Find {'(') ; 

if (ilndex !=-l) 

{ 

ItemText -Delete (ilndex, ( ItemText . GetLength { ) -ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat.SetItemText (hitem, LPCTSTR( ItemText) ) ; 
// Get the Childeran 

hitem = m_tcChannelCat . GetChildltem (pritem) ; 
for (int iLoop =0 ; iLoop< 5 ; iLoop++ ) 

{ 

ItemText . Empty ( ) ; 
tempstr . Empty ( ) ; 
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ItemText = m_tcChannelCat . Get I temText (hitem) ; 
temps tr . Format ( " ( %d) " , m_aAge [iLoop] ) ; 
ilndex = ItemText . Find ('(') ; 
if (ilndex !=-l) 
{ 

ItemText -Delete (ilndex, ( ItemText . GetLength ()- i Index) ) ; 

} 

ItemText +- tempstr; 

m_tcChannelCat . SetltemText (hitem, LPCTSTR (ItemText ) ) ; 
hitem = m_tcChannelCat . GetNextl tern (hitem, TVGN_NEXT) ; 

} 

/ / update for the third node 

ItemText . Empty ( ) ; 
tempstr . Empty ( ) ; 
// get the parent node 

pritem = m_tcChannelCat . GetNext Item (pritem, TVGN_NEXT) ; 
hitem=prltem; 

ItemText = m_tcChannelCat . Get I temText (hitem) ; 

tempstr. Format ( " (%d) " ,m_aEthic [0] +m_aEthic [1] +m_aEthic [2] +m_aEthic [3] ) 
ilndex = ItemText . Find { ' ( ' ) ; 
if (ilndex !=-!) 

{ 

ItemText .Delete (ilndex, (ItemText .GetLength () -ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat . SetltemText (hitem, LPCTSTR (ItemText) ) ; 

// Get the child nodes 

hitem = m_tcChannelCat . GetChi Idl tern (hitem) ; 

for (iLoop =0 ; iLoop<4 ; iLoop++ ) 

{ 

ItemText . Empty ( ) ; 
tempstr . Empty ( ) ; 

ItemText = m_tcChannelCat . Get ItemText (hitem) ; 
tempstr . Format ( " (%d) ", m_aEthic [iLoop] ) ; 
ilndex = ItemText . Find ( ' ( ' ) ; 
if (ilndex !=-l) 
{ 

ItemText . Delete (ilndex, (ItemText , GetLength ( ) -ilndex) ) ; 

} 

ItemText += tempstr ; 

m_tcChannelCat . SetltemText (hitem, LPCTSTR ( ItemText ) ) ; 
hitem = m_tcChannelCat . GetNext I tern (hitem, TVGN_NEXT) ; 

} 

/ / update the fourth node ; 

ItemText . Empty ( ) ; 

tempstr . Empty ( ) ; 

// Get the parent Node 

pritem = m_tcChannelCat . GetNext I tem (prItem, TVGN_NEXT) ; 
hitem = pritem; 

ItemText = m_tcChannelCat . Get ItemText (hitem) ; 
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tempstr . Format ( " { %d) " , m_aRegional [0 ] +m_aRegional [1] +m_aRegional [2 ] +m_aR 
egional [3] ) ; 

i Index = ItemText . Find ('('); 

if (ilndex !=-!) 

{ 

ItemText . Delete ( ilndex, ( ItemText . GetLength ()- ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat .SetltemText (hitem, LPCTSTR (ItemText) ) ; 



hitem = m_tcChannelCat . GetChi Idltem (hitem) ; 
for (iLoop =0 ; iLoop<4 ; iLoop-h+ ) 

{ 

ItemText . Empty ( ) ; 
tempstr . Empty ( ) ; 



ItemText = m_tcChannelCat . Get ItemText (hi tem) ; 
tempstr . Format ( " (%d) m_aRegional [iLoop] ) ; 
ilndex - ItemText . Find ('(') ; 
if (ilndex !=-l) 
{ 

ItemText -Delete (ilndex, ( ItemText . GetLength ()- ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat -SetltemText (hitem, LPCTSTR ( ItemText ) ) ; 
hitem = m_tcChannelCat . GetNextltem (hitem, TVGN_NEXT) ; 

} 

/ / update the last node 

ItemText . Empty ( ) ; 
tempstr . Empty { ) ; 

// Get the parent node 

pritem = m_tcChannelCat . GetNextltem (pritem, TVGN_NEXT) ; 
hitem = pritem; 

ItemText = m_tcChannelCat . Get ItemText (hitem) ; 

tempstr . Format ( " (%d) " , m_intrests [0] +m_intrests [1] +m_intrests [2 ] +m__intre 
sts [3] +m_intrests [4] +m_intrests [5] +m_intrests [6] ) ; ^ 
ilndex = ItemText . Find ( ' ( ' ) ; 
if (ilndex !=-l) 
{ 

ItemText . Delete ( ilndex, ( ItemText . GetLength ()- ilndex) ) ; 

} 

ItemText += tempstr; 

m_tcChannelCat . SetltemText (hitem, LPCTSTR (ItemText) ) ; 
// get the child node 

hitem = m_tcChannelCat . GetChi Idl tem (hitem) ; 
for (iLoop =0 ; iLoop<7 ; iLoop++ ) 

{ 

ItemText . Empty ( ) ; 
tempstr . Empty ( ) ; 
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ItemText = m^tcChannelCat . Get I temText (hi tern) ; 
tempstr . Format ( " (%d) " , m_intrests [iLoop] ) ; 
ilndex = ItemText . Find ('{') / 
if (ilndex !=-!) 
{ 

ItemText .Delete (ilndex, ( ItemText . GetLength ( ) -ilndex) ) 

} 

ItemText += tempstr; 

m_tcChannelCat . Set ItemText (hitem, LPCTSTR ( ItemText ) ) ; 
hitem = m_tcChannelCat . GetNextltem (hitem, TVGN_NEXT) ; 



return TRUE; 

} 

// Function Name 
// Parameters 
/ / Purpose 
// Return 



FindNoOf Users 

Channel type and count 

This function calculates the No Of Users 
void 



void CPPChannel :: FindNoOf Users (ChnCatType &chantype , int iCount) 
if (chantype -LANG ==m_ChnCatType . LANG ) 



{ 



if (chantype . CROOT == 0) 

m_aChatCentral [chantype . CCHILD] += i Count ; 
Ise if (chantype . CROOT == 1) 

m__aAge [chantype . CCHILD] += iCount; 
Ise if (chantype . CROOT 2) 

m_aEthic [chantype . CCHILD] += iCount; 
Ise if (chantype . CROOT 3) 

m__aRegional [chantype . CCHILD] iCount; 
Ise if (chantype . CROOT 4) 

m_intrests [chantype . CCHILD] += iCount; 



} 



/ / Function Name 

// Parameters 

// Purpose 

// Return 



ReSetChannalCat 
None 

This function reset all the Room Categoriy arrays 
None 

void CPPChannel: : ReSetChannalCat ( ) 
{ 

//initalize all the arrays to 0 

// I am too crazy while writting this code... 



for (int iLoop =0; iLoop < 7;iLoop++) 
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swi tc 



:h (iLoop) 



case 0 : 

m_aChat Central [iLoop] = 0 

m_a Age [iLoop] = 0; 

m_aEthic [iLoop] = 0; 

m_aRegional [iLoop] =0; 

m_intrests [iLoop] =0; 

break ; 
case 1 : 
case 2 : 
case 3 ; 

m_aAge [iLoop] ~ 0 ; 

m_aEt hie [iLoop] - 0; 

m_aReg i ona 1 [ i Loop ] = 0 ; 

m_intrests [iLoop] =0; 
brealc; 
case 4 : 

m_aAge [iLoop] = 0; 

m_ int rests [iLoop] =0; 

break; 
case 5 : 
case 6 : 

m_intrests [iLoop] =0; 

break; 



}; 



} 

} 

// SATYA CHANGES 



ENDS 
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// PPChannel.h : header file 
// 

//^===^^======^=========^^^^=====^^^=^ 

// (C) Programmed by Kim, 

// Information Technology Institute 

// UNICHAT.COM 



#ifndef PPCHANNEL_H 

#define PPCHANNEL H 



///////////////////////////////////////////////////////////////////////////// 
// CPPChannel dialog 

// SATYA CHANGES START 

// this struct will maintain the Room Combination 
// Launguage/Room Categories (Main and Subltem) 
typedef struct tagChnCatType 
{ 

int LANG; 

int CROOT; 

int CCHILD; 
} ChnCatType; 
// SATYA CHANGES END 

class CPPChannel : public CPropertyPage 
{ 

DECLARE_DYNCREATE (CPPChannel) 



// Construction 
public : 

CPPChannel () ; 

-CPPChannel () ; 



enum CHANNEL_IL_INDEX 
{ 

IL_CHANNEL=0, 
IL_CHANNELPRIV, 
I L_CHANNELMUD , 
IL COUNT 



mt 
TCHAR* psz) 
BOOL 
BOOL 
void 
BOOL 
void 



Addltem (const int i, int ilmage, PICS_PROPERTY picsProp, 

AddChannel ( PICS_PROPERTY picsProp) ; 
ShowList ( ) ; 
EndOfList () ; 

IsMUDO const { return m_bMUD; } 

GetLastStagelD 0 ; 



CString m_strPassword ; 

// Dialog Data 

//{ {AFX_DATA( CPPChannel) 

enum { IDD = IDD_PP_CHANNEL } ; 

CTreeCtrl m_tcChannelCat ; 
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CListCtrl m_lcChannel ; 
CString m_strCount ; 

CString m_strMessage ; 

CString m_strStageID ; 

//} }AFX_DATA 



/ / Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAIi (CPPChannel) 
protected : 

virtual BOOL OnApplyO; 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 

// Implementation 
protected : 

//void SetMUDButtonTitle 0 ; //NOMUDBTNOOl 

// SATYA CHANGES START 

// This function return the Room Categories 
ChnCatType GetChnCatType (LPCTSTR szName) const; 
// SATYA CHANGES END 



int 
liistControl 
int 
int 
CFont 

CImageList 
CImageList 
BOOL 



m nindex; 



// Current selection index for 



// Total users 



/ / item index 



// MUD mode 



m_nUsers ; 
m_i ; 
m_f ont ; 
m_il Channel ; 
m_ilChnCatTree ; 
m_bMUD ; 
// SATYA CHANGES START 
ChnCatType m_ChnCatType ; 

// following array added to maintain the no of members online. 

int m_aChatCentral [1] ; 

int m_aAge[5] ; 

int m_aEthic[4]; 

int m_aRegional [4] / 

int m_intrests [7] ; 

// SATYA CHANGES END 



// Generated message map functions 
// { {AFX_MSG (CPPChannel) 

afx_msg void OnClickListChannel (NMHDR* pNMHDR, LRESULT* pResult); 
afx_msg void OnDblclkList Channel {NMHDR* pNMHDR, LRESULT* pResult) ; 
afx__msg void OnBtnRenew ( ) ; 
af x_msg void OnBtnMember ( ) ; 

afx_msg void OnDeleteitemListChannel (NMHDR* pNMHDR, LRESULT* pResult) 7 

virtual BOOL OnlnitDialog () ; 

afx_msg void OnDestroyO; 

afx_msg BOOL OnEraseBkgnd ( CDC* pDC) ; 

//afx_msg void OnBtnMud ( ) ; // NOMUDBTNOOl 

afx_msg void OnSelectEngl ( ) ; 

afx_msg void OnSelectChi ( ) ; 

afx_msg void OnSelect Jap ( ) ; 

afx_msg void OnSelectKor { ) ; 
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afx_msg void OnSelectOtr { ) ; 
afx_msg void OnSelectSpn { ) ; 

afx_msg void OnSelchangedChannelTree (NMHDR* pNMHDR, LRESULT* pResult) 
afx_msg void OnSelchangingChannelTree (NMHDR* pNMHDR, LRESULT* pResult 
//} }AFX_MSG 

afx_msg LRESULT OnQueryChannels (WPARAM , LPARAM) ; 
afx_msg LRESULT OnQueryChannelsEnd ( WPARAM, LPARAM); 
afx__msg LRESULT OnQueryNoMatches ( WPARAM, LPARAM); 
afx_msg LRESULT OnQueryError ( WPARAM , LPARAM); 
DECLARE_MESSAGE_MAP ( ) 

private : 

// SATYA CHANGES START 

/ / Reset the Room Categories 

void ReSetChannalCat 0 ; 

// Find the total number users online 

void FindNoOf Users (ChnCatType& chantype,int iCount); 
// Updates the Room Categories tree control.. 
BOOL UpdateChannelCategories {) ; 
// SATYA CHANGES END 

}; 

#endif // PPCHANNEL_H 
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// PPCreateChannel . cpp : implementation file 
// 

// = = = ^ = == = = = = = = = = = = = = == = === = = = = = = = = = = = = = = = = . = = = = . = = = 

// (C) Programmed by Kim, Soomin, Mar 1998 

// Information Technology Institute 
// UNICHAT NETWORKS INC 

// = = = = = = = = = = ^^^^ = = = = = ^ = ^^^^^ = ^=^ = = = ^ = ^^^^^ = = = ^^ = ^ = ^^^ 

#include " stdaf x . h" 

#include "resource. h" 

#include "PPCreateChannel . h" 

#include "PSJoinChannel . h" 

#include "ResMan.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

extern CResMan gResMan; 

IMPLEMENT_DYNCREATE { CPPCreateChannel , CPropertyPage ) 

///////////////////////////////////////////////////////////////////////////// 
/ / CPPCreateChannel property page 

CPPCreateChannel : : CPPCreateChannel { ) : CPropertyPage (CPPCreateChannel : : IDD) 
{ 

TRACED ( "CPPCreateChannel : : CPPCreateChannel ( ) \n" ) ; 

// { {AFX DATA_INIT (CPPCreateChannel ) 

m_str Pas sword = _T ( " " ) ; 

m_strTopic = _T ( " " ) ; 

/ / } }AFX__DATA_INIT 

m_bPublic - TRUE; 

// SATYA CHANGES START 

// load the images for the Tree control 

m_ilChanCatTree . Create CIDB_IL_CREATECHANNEL, 16, 1, CLR_NONE) ; 
for (int i=0; i < 3; i++) // syc 0628 

m_aChanCatType [i] = 0; 
// SATYA CHANGES END 

} 

CPPCreateChannel : : -CPPCreateChannel () 

{ 

TRACED ( "CPPCreateChannel : : -CPPCreateChannel ( ) \n" ) ; 

} 

void CPPCreateChannel : :DoDataExchange (CDataExchange* pDX) 

{ 

CPropertyPage : : DoDataExchange (pDX) ; 
// { {afx_DATA_MAP (CPPCreateChannel) 

DDX_Control (pDX, IDC_CREATCHANNEL_TREE , m_clChanCatTree ) ; 
DDX_Control (pDX, IDC_LB_BACKGROUND , m^lbBackground) ; 
DDX_Text (pDX, IDC_EDIT_PASSWORD, m_s t rPassword) ; 
DDV_MaxChars (pDX, m_strPassword , 12); 
DDX_Text (pDX, IDC_EDIT_CH7VNNEL_NAME, m_StrTopic) ; 
DDV_MaxChars (pDX, m_strTopic, 100); 
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// } }AFX_DATA_MAP 

} 

BEGIN__MESSAGE_MAP (CPPCreateChannel , CPropertyPage ) 
//{ {AFX_MSG_MAP (CPPCreateChannel) 
ON_WM_ERASEBKGND ( ) 

ON_BN_CLICKED ( IDC_RADIO_PRIVATE , OnRadioPr ivat e ) 
ON_BN_CLICKED ( IDC_RADIO_PUBLIC , OnRadioPublic) 

ON_LBN_SELCHANGE ( IDC_LB_BACKGROUND , OnSelchangeLbBackground) 
ON_BN_CLICKED (IDC_RAD_CRCNL_CHI , OnSelectChinese ) 
ON_BN_CLICKED { IDC_RAD_CRCNL._ENG , OnSelectEngli sh ) 
ON_BN_CLICKED ( IDC_RAD_CRCNL_JAP , OnSelect Japanese ) 
GN_BN_CLICKED (IDC_RAD_CRCNL_KOR, OnSelectKorean) 
ON_BN_CLICKED (IDC_RAD_CRCNL_GTH, OnSelectOthers ) 
ON_BN_CLICKED ( IDC_RAD_CRCNL_SPA, OnSelectSpani sh) 

ON_NOTIFY (TVN_SELCHANGED, IDC_CREATCHANNEL_TREE , OnSelectChnCatTree ) 
/ / } } AFX_MSG_MAP 
END MESSAGE MAP ( ) 



BOOL CPPCreateChannel : rOnEraseBkgnd (CDC* pDC) 

{ 

CPropertyPage: : OnEraseBkgnd (pDC) ; 

CPSJoinChannel* pPSJC = (CPS JoinChannel* ) GetParent ( ) ; 
ASSERT (pPSJC) ; 

return pPS JC- >OnPageEraseBkgnd (pDC) ; 

} 

/* 

HBRUSH CPPCreateChannel : :OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
{ 

CPSiJoinChannel* pPSJC = (CPSJoinChannel* ) GetParent () ; 
ASSERT (pPSJC) ; 

if (nCtlColor == CTLCOLOR_STATIC) 
{ 

pDC->SetBkMode (TRANSPARENT) ; 

return (HBRUSH) *pPS JC- >GetNullBrush ( ) ; 

} 

else 

{ 

HBRUSH hbr = CDialog: :OnCtlColor (pDC, pWnd, nCtlColor); 
return hbr; 

} 

} 

*/ 

void CPPCreateChannel: : OnRadioPrivate ( ) 
{ 

m_bPubl ic = FALSE ; 

CEdit* pEdit = (CEdit*) GetDlgItem(IDC_EDIT_PASSWORD) ; 
pEdit->ShowWindow (SW_SHOW) ; 

CStatic *pPassSta = (CStatic* ) GetDlgltem ( IDC_STATIC_PASSWORD) ; 

pPassSta->ShowWindow(SW_SHOW) ; 
//pEdit- >EnableWindow 0 ; 
pEdit->SetFocus () ; 
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} 

void CPPCreateChannel : : OnRadioPublic { ) 
{ 

m_bPublic = TRUE; 

//GetDlgltem (IDC_EDIT_PASSWORD) - >EnableWindow ( FALSE) ; 
CEdit* pEdit = (CEdit*) GetDlgltem (IDC_EDIT_PASSWORD) ; 
pEdit->ShowWindow(SW_HIDE) ; 

CStatic *pPassSta = (CStatic* ) GetDlgltem ( IDC_STATIC_PASSWORD) ; 
pPassSta->ShowWindow(SW_HIDE) ; 

GetDlgltem (IDC_EDIT_CHANNEL_NAME) ->SetFocus () ; 

} 

void CPPCreateChannel: : OnSelchangeLbBackground ( ) 

{ 

/ *m_lbBackground . GetText (m_lbBackground . GetCurSel () , m_strStageName ) 
// gResMan . MakeStageName (m_strStageName , TRUE); // Public 

GetDlgltem {IDC_EDIT_CHANNEL_NAME) ->SetFocus () ;*/ 

CString* pS = gResMan . GetStageName (m^lbBackground . GetCurSel ( ) + 1); 
m_strStageName = *pS; 

GetDlgltem (IDC_EDIT_CHANNEL_NAME) ->SetFocus() ; 

} 

BOOL CPPCreateChannel: : OnlnitDialog ( ) 

{ 

CPropertyPage : : OnlnitDialog ( ) ; 

CPSJoinChannel* pPSJC = (CPS JoinChannel * ) GetParent () ; 
ASSERT (pPSJC) ; 

GetDlgltem {IDC_EDIT_CHANNEL_NAME) ->SetFont (pPS JC- >GetFont {) , FALSE) ; 

( (CButton*) GetDlgltem (IDC_RADIO_PUBLIC) ) - >SetCheck (BST_CHECKED) ; 
OnRadioPublic ( ) ; 

for (int i=l; i < gResMan . GetNumS tageNames ( ) ; i++) 

{ 

CString* pS = gResMan . GetStageName ( i ) ; 

if (pS) 

{ 

// syc 0705 begin 

CString strScene = *pS; 

int nStart = strScene . Find (']') ; 

int length = strScene . GetLength () ; 

char* p = StrScene .GetBuffer (length + 1); 

p += nStart + 1; 

CString strTemp ( (char* ) p) ; 

StrScene . ReleaseBuffer { ) ; 

StrScene = strTemp; 

// end 

m_lbBackground. AddSt ring (strScene) ; // (*pS) ; // syc 07 

} 

} 

m_lbBackground . SetCurSel (0) ; 
OnSelchangeLbBackground ( ) ; 
// SATYA CHANGES START 
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// create the Tree control and initalize the tree control 
// with Image list for Tree control 

m_clChanCatTree . SetlmageList ( &:m_ilChanCatTree , TVSIL_NORMAL) ; 

int nNumRootltem = gResMan . GetNumChanTree ( ) ; 
for (i=0; i < nNumRootltem; 

{ 

CString strRootltem = gResMan . GetNameChanTree (i) ; 

HTREEITEM hRoot ^ m_clChanCatTree . Insert I tern ( strRoot I tern , 0, 1 

TVI^ROOT) ; 

int nNumSubltem = gResMan . GetNumSubltemChanTree ( i ) ; 
for (int j=0; j < nNumSubltem; 

{ 

CString strSubltem = gResMan . GetNameSubltemChanTree ( i , j 
HTREEITEM hitem = m_clChanCatTree . Insert Item ( strSubltem, 

2,3, hRoot ) ; 

DWORD dwData = (DWORD) (j + (1000 * i)); 
m_clChanCatTree . SetltemData (hItem, dwData) ; 

} 

} 

HTREEITEM hItem = ni_clChanCatTree . GetRoot Item ( ) ; 

if (hItem) 

{ 

// Select the Default item 
m_clChanCatTree . Selectltem (hItem) ; 

} 

m_aChanCatType [1] = 0; 
m_aChanCatType [2] = 0; 

// Set English as the Default Launguage 

( (CButton*) GetDlgltem (IDC_RAD_CRCNL_ENG) ) - >SetCheck (BST_CHECKED) ; 
OnSelectEnglish ( ) ; 
// SATYA CHANGES END 



} 



return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



BOOL CPPCreateChannel : : OnApply ( ) 
{ 

// SATYA CHANGES START 



CPSJoinChannel *pParent = NULL; 

pParent = (CPSJoinChannel*) GetParentO; 

if (pParent) 

{ 

CPropertyPage *Current = pParent - >GetActivePage () ; 
// if CreateChannel is the current Active Page 
if (Current == this) 

{ 

HTREEITEM hItem =m_clChanCatTree . GetSelectedl tem { ) ; 
if (hItem) 
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{ 

// if user does not select any Room Categiory 

// then give a Message to select the Room catigory. 

if (m_clChanCatTree . ItemHasChildren (hitem) ) 

{ 

AfxMessageBox (" Please select Channl 

Categoriy " ) ; 

GetDlgItem(IDC_CREATCHAWNEL_TREE) ->SetFocus () 
return FALSE; 

} 

} 

if (m_strTopic . IsEmpty ( ) ) 

{ 

AfxMessageBox ( "Please enter the Topic Name"); 
return FALSE; 

} 

} 

} 

// SATYA CHANGES END 



if (!IsPublic() && m_strPassword . IsEmpty () ) 
{ 

AfxMessageBox (IDS_ENTER_PASSWORD) ; 
GetDlgItem{IDC_EDIT_PASSWORD) ->Set Focus () ; 
return FALSE; 

} 

if (m_strStageName . IsEmpty ( ) ) 

{ 

TRACED { "CPPCreateChannel : :OnApply { ) - m_s trStageName is 

Empty I \n" ) ; 

AfxMessageBox (IDS_SELECT_STAGE) ; 
GetDlgItem(IDC_LB_BACKGROUND) ->SetFocus() ; 
return FALSE; 

} 

// SATYA CHANGES START 

if ( !m_strTopic . IsEmpty () ) 

{ 

gResMan . ExtractStagelD (m_st rStageName) ; 
gResMan . MakeStageName (m_strStageName , TRUE) ; 
CString str; 

str. Format (" (%d, %d, %d) " , m_aChanCatType [0] , m_aChanCatType [1] , 
m_aChanCatType [2] ) ; 

m_s trStageName +- str; 

// m_s trStageName : [p2/0001ctrm] { 0 , 0 , 0 } 
// Set the current selction so so that 
// we can get the Dynamic Banner. . 

gResMan. SetRoomCatigories {m_aChanCatType [1] , m_aChanCatType [2] ) ; 

// SATYA CHANGES END 

m_s trStageName += m_strTopic; 

} 

// SATYA CHANGES START 
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// before creating the room store the Room Categiories 

// SATYA CHANGES END 

return CPropertyPage : : OnApply ( ) ; 

// SATYA CHANGES SATART 

// Onselect Chinese Radio Button 

void CPPCreateChannel : : OnSelectChinese { ) 

m_aChanCatType [0 ] = 3; 



// Onselect English Radio Button 

void CPPCreateChannel: : OnSelectEnglish { ) 

m_aChanCatType [ 0 ] = 0 ; 



// Onselect Japanese Radio Button 

void CPPCreateChannel: : OnSelect Japanese ( ) 

m_aChanCatType [0] = 4; 



// Onselect Korean Radio Button 

void CPPCreateChannel: : OnSelectKorean { ) 

m_aChanCatType [0] = 2; 



// Onselect Others Radio Button 

void CPPCreateChannel: : OnSelectOthers ( ) 

m_aChanCatType [0] = 5; 



// Onselect Spanish Radio Button 

void CPPCreateChannel: .- OnSelectSpanish ( ) 

m_aChanCatType [0] = 1; 



// On select Room Categiory Tree control 

void CPPCreateChannel : rOnSelectChnCatTree (NMHDR* pNMHDR, LRESULT* pResult) 

NM_TREEVIEW* pNMTreeView (NM_TREEVIEW* ) pNMHDR; 
HTREEITEM hitem = pNMTreeView- >i temNew . hltem; 

if {m_clChanCatTree . ItemHasChildren (hItem) ) 
{ 

m_clChanCatTree . Expand (hItem, TVE_EXPAND) ; 
return ; 

} 

DWORD dwData = m_clChanCatTree . GetltemData (hItem) ; 




A-285 



PPCreateChanneLcpp 




m_aChanCatType [1] = {int){dwData / 1000) 

m_aChanCatType [2] = (int){dwData % 1000) 

*pResult = 0; 

} 

// SATYA CHANGES END 
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// PPCreateChannel.h : header file 
// 

= = = = = = = = = = = = = = = = = = = = = = . = = = = =^^ = = . = =3 = = = 

// (C) Programmed by Kim, Mar 1998 

// Information Technology Institute 
// UNICHAT.COM 



#ifndef PPCREATECHANNEL_H 

#define PPCREATECHANNEL_H 

///////////////////////////////////////////////////////////////////////////// 
// CPPCreateChannel dialog 

class CPPCreateChannel : public CPropertyPage 
{ 

DECLARE_DYNCREATE ( CPPCreateChannel ) 

// Construction 
public : 

CPPCreateChannel {) ; 

-CPPCreateChannel () ; 



BOOL IsPublicO const { return m_bPublic; } 

CString* GetStageName ( ) { return &m_strStageName ; } 

// Dialog Data 

//{ {AFX_DATA (CPPCreateChannel) 

enum { IDD = IDD_PP_CREATE_CHANNEL } ; 

CTreeCtrl m_clChanCatTree ; 

CListBox m_lbBackground; 

CString m_strPassword; 

CString m_strTopic; 

//} }AFX_DATA 



// Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAL (CPPCreateChannel) 
public : 

virtual BOOL OnApplyO; 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

BOOL m_bPublic; 

CString m_strStageName ; // resource name [p2 / OOOOabcd] 

// SATYA CHANGES START 

CImageList m_i iChanCatTree ; // Image list for Tree control 

int m_aChanCatType [3] ; // Maintain the Room Categiory 

// SATYA CHANGES END 



// Generated message map functions 
/ / { { AFX_MSG ( CPPCrea t eChanne 1 ) 
afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 
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af>:_msg void OnRadioPrivate ( ) ; 
afx_msg void OnRadioPublic () ; 
afx_msg void OnSelchangeLbBackground ( ) ; 
virtual BOOL OnlnitDialog ( ) ; 
afx_msg void OnSelectChinese ( ) ; 
afx_msg void OnSelectEnglish ( ) ; 
afx_msg void OnSelect Japanese () ; 
afx_msg void OnSelectKorean ( ) ; 
afx_msg void OnSelectOthers ( ) ; 
afx_msg void OnSelectSpanish ( ) ; 

afx^msg void OnSelectChnCatTree (NMHDR* pNMHDR, LRESULT* pResult) 

//}}AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

private : 

}; 

#endif // PPCREATECHANNEL H 
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// PPMemberInf ol . cpp : implementation file 
// 

#include "stdafx . h" 
#include " resource. h" 
#include " PPMemberlnf ol . h" 

#ifdef _DEBUG 
#undef THIS__FILE 

static char BASED_CODE THIS_FILE[} = FILE 

#endif 

IMPLEMENT_DYNCREATE ( CPPMemberInf ol , CPropertyPage ) 
IMPLEMENT_DYNCREATE { CPPMemberInf o2 , CPropertyPage) 



/////////////////////////////////////////////////////////////////////////// 
// CPPMemberInf ol property page 

CPPMemberInf ol : : CPPMemberInf ol ( ) : CPropertyPage (CPPMemberInf ol : : IDD) 

// { {AFX_DATA_INIT (CPPMemberInf ol) 
m_strUserID = _T ( " " ) ; 
m_strVersion = _T ( " " ) ; 
m_strSexAge = _T { " " ) ; 
// } }AFX_DATA_INIT 

} 

CPPMemberInf ol : : -CPPMemberInf ol ( ) 

{ 

} 

void CPPMemberInf ol : iDoDataExchange (CDataExchange* pDX) 

CPropertyPage: : DoDataExchange (pDX) ; 
// { {AFX_DATA__MAP (CPPMemberInf ol) 
DDX_Text (pDX, IDC_STATIC_NICK, m_strNick) ; 
DDX_Text (pDX, IDC_STATIC_REALNAME , m_s t rRealName ) ; 
DDX_Text (pDX, IDC_STATIC_UNITEL_ID, m_strUserID) ; 
DDX_Text (pDX, IDC_STATIC_VERSION, m__s trVers ion ) ; 
DDX_Text (pDX, IDC_STATIC__SEXAGE , m_strSexAge) ; 
// } }AFX_DATA_MAP 

} 

BOOL CPPMemberInf ol : : OnSetAct ive ( ) 
{ 

UpdateData (FALSE) ; // Update dialog items 

return CPropertyPage: : OnSetActive ( ) ; 

} 

BEGIN_MESSAGE_MAP ( CPPMemberInf ol , CPropertyPage) 

//{ {AFX_MSG_MAP (CPPMemberInf ol ) 

//} }AFX_MSG_MAP 
END_MESSAGE MAP ( ) 
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I / CPPMemberInf o2 property page 

CPPMemberInf o2 : : CPPMemberInf o2 { ) : CPropertyPage (CPPMemberInf o2 : : IDD) 
{ 

//{ {AFX_DATA__INIT (CPPMemberInf o2) 
m_strProfile = _T ( " " ) ; 
// } } AFX_DATA_INIT 



CPPMemberInf o2 : : -CPPMemberInf o2 () 

{ 
} 



void CPPMemberInf o2 :: DoDataExchange {CDataExchange* pDX) 

{ 

CPropertyPage: : DoDataExchange (pDX) ; 
//{ {AFX_DATA_MAP (CPPMemberInf o2) 

DDX_Text (pDX, IDC_EDIT_PROFILE , m_s t rProf i le ) ; 
// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP ( CPPMemberInf o2 , CPropertyPage) 

// { {aFX_MSG_MAP (CPPMemberInf o2) 

// NOTE: the ClassWizard will add message map macros here 

// } } AFX_MSG_MAP 
END MESSAGE MAP () 



BOOL CPPMemberInf o2 : : OnSetAct ive () 
{ 

UpdateData (FALSE) ; // Update dialog items 



return CPropertyPage: : OnSetAct ive ( ) ; 

} 
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// PPMemberlnfol.h : header file 
// 

#ifndef PPMEMBERINF01_H 

ttdefine PPMEMBERINF01_H 

^include "resource. h" 

///////////////////////////////////////////////////////////////////////////// 
// CPPMemberInf ol dialog 

class CPPMemberInf ol : public CPropertyPage 
{ 

DECLARE_DYNCREATE ( CPPMemberInf ol ) 

// Construction 
public : 

CPPMemberInf ol () ; 

-CPPMemberInf ol () ; 

// Dialog Data 

//{ {AFX_DATA (CPPMemberInf ol) 
enum { IDD = IDD__PP_MEMBER1 } ; 
est ring m^strNick; 
CString m_strRealName ; 

CString m_strUserID; 
CString m_strVersion; 
CString m_strSexAge; 
//} }AFX_DATA 



/ / Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAIi (CPPMemberInf ol) 
public : 

virtual BOOL OnSetActive () ; 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 

//{ {AFX_MSG (CPPMemberInf ol) 

//} }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// CPPMemberInf o2 dialog 

class CPPMemberInf o2 : public CPropertyPage 
{ 

DECLARE_DYNCREATE (CPPMemberInfo2) 

// Construction 
public : 
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CPPMemberlnf o2 {) ; 
-CPPMemberlnf o2 () ; 

// Dialog Data 

//{ {aFX_DATA( CPPMemberlnf o2) 
enum { IDD = IDD_PP_MEMBER2 } ; 
CString m_strProf ile ; 

// } }AFX_DATA 



// Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAL (CPPMemberlnf o2) 
public : 

virtual BOOL OnSetAct ive ( ) ; 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 

// Implementation 
protected : 

/ / Generated message map functions 

//{ {AFX_MSG (CPPMemberInfo2) 

// NOTE: the ClassWizard will add member functions here 

//} }AFX_MSG 

DECLARE_MESSAGE_MAP { ) 

}; 

#endif // PPMEMBERINFOl H 
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// PPMyAddress.cpp : implementation file 
// 

#include "stdafx.h" 

#include "uc2.h" 

# inc lude " PPMyAddre s s . h " 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPPMyAddress dialog 



CPPMyAddress : rCPPMyAddress (CWnd* pParent /*=NULL*/) 
: CDialog (CPPMyAddress : :IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CPPMyAddress) 
m_sCity = _T ( " " ) ; 
m_sState = _T ( " " ) ; 
m_sAddress = _T ( " " ) ; 
m_sZip = _T ( " " ) ; 
m_sTelHome = _T ( " " ) ; 
m_sTelMobile = _T ( " " ) ; 
m_sTelOther = _T ( " " ) ; 
m_sTelWork = _T ( " " ) ; 
m_sTelFax = _T ) ; 
// } } AFX_DATA_INIT 

} 



void 

{ 



CPPMyAddress: : DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
/ / { { AFX_DATA_MAP ( CPPMyAddr e s s ) 

DDX_Control (pDX, IDC_CB_COTJNrTRY, m_cbCountry) ; 
DDX_Text (pDX, IDC_EDIT_ADDR_CITY, m_sCity) ; 

IDC_EDIT_ADDR_STATE, m__sState) ; 
IDC_EDIT_ADDR_STREET, m_sAddress} ; 
IDC_EDIT_ADDR_ZIP, m__sZip) ; 
IDC_EDIT_TEL_HOME, m_sTelHome) ; 
IDC_EDIT_TEL_MOBILE, m_sTelMobi le ) ; 
IDC_EDIT_TEL_OTHER, m_sTelOther) ; 
IDC_EDIT_TEL_WORK, m_sTelWork) ; 
IDC EDIT TEL FAX, m sTelFax) ; 



DDX_Text (pDX, 
DDX_Text (pDX, 
DDX_Text (pDX, 
DDX__Text (pDX, 
DDX_Text (pDX, 
DDX_Text (pDX, 
DDX_Text (pDX, 
DDX_Text (pDX, 
// } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CPPMyAddress, CDialog) 
// { {AFX_MSG__MAP (CPPMyAddress) 

// NOTE: the ClassWizard will add message map macros here 
// } }AFX_MSG_MAP 

end_message map() 
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1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 / 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1 11 1 11 11 1 1/ // 1 f / 1/ / 1 1 
II CPPMyAddress message handlers 
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#if 

! defined (AFX_PPMYADDRESS_H OE8E844 2_B2 5D_11D3_B82B_00105A6 0F93 0 INCLUDED ) 

#def ine AFX_PPMYADDRESS_H OE8E8 44 2_B2 5D_11D3_B8 2B_0 010 5A6 0F93 0 INCLUDED^" 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// PPMyAddress.h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// CPPMyAddress dialog 

class CPPMyAddress : public CDialog 

{ 

// Construction 
public : 

CPPMyAddress (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

/ / { { AFX_DATA ( CPPMyAddr e s s ) 
enum { IDD = IDD_PP_MYADDRESS } ; 
CComboBox m_cbCountry ; 
CString m_sCity; 
CString m_sState ; 

CString m_sAddress; 
CString m_sZip; 
CString m_sTelHome; 
CString m_sTelMobile ; 

CString m_sTelOther ; 

CString m_sTelWork; 
CString m_sTelFax; 
//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CPPMyAddress) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
// { {AFX_MSG (CPPMyAddress) 

// NOTE: the ClassWizard will add member functions here 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 
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#endif // 

! defined ( AFX_PPMYADDRESS_H 0E8E84 4 2_B2 5D_11D3__B8 2B 00105A6 0F93 0 INCLUDED 
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// PPMylnfo.cpp : implementation file 
// 

#include " s tdaf x . h" 
#include "uc2 .h" 
#include " PPMyInf o . h" 

#include " PPActor . h" 

#include " PS JoinChannel . h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/PhSprite . h" 

#include "ResMan.h" 

#include "Behavior. h" // CActorDesc 

#include "BlockSock . h" 
#include "ConMan.h" 
#include "Memberinf o . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILEt] = FILE ; 

#endif 

extern CResMan gResMan; 
extern CConMan gConMan; 

1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 11 1 11 1 1 1 1 / 1 1 1 11 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 
/ f CPPMyInf o property page 

IMPLEMENT_DYNCREATE (CPPMyInf o, CPropertyPage ) 
CPPMyInf o: :CPPMyInfo() : CPropertyPage ( CPPMyInf o : :IDD) 

{ 

// { {AFX_DATA_INIT (CPPMyInf o) 

m_nAge = 0 ; 

// } }AFX_DATA_INIT 

} 

CPPMyInf o : : -CPPMyInf o ( ) 

{ 

} 



void CPPMyInf o : iDoDataExchange (CDataExchange* pDX) 

{ 

CPropertyPage: : DoDataExchange (pDX) ; 
/ / { {AFX_DATA__MAP (CPPMyInf o) 

DDX_Control (pDX, IDC_LB_ACTORS , m_lbActors) ; 
DDX_Control (pDX, IDC_COMBO_WORK, m_cbWork) ; 
DDX_Control (pDX, IDC_COMBO_SEX , m_cbSex) ; 
DDX_Control (pDX, IDC_COMBO_ETHNIC , m_cbEthnic) ; 
DDX_Text (pDX, IDC_EDIT_AGE , m_nAge) ; 



A-297 



PPMylnfo.cpp 

/ / } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CPPMyInf CPropertyPage) 
// { {AFX_MSG_MAP (CPPMyInf o) 

ON_LBN_SELCHANGE { IDC_LB_ACTORS , OnSel changeLbActor s ) 
ON_CBN_SELCHANGE { IDC_COMBO_SEX , OnSelchangeComboSex ) 
ON_WM_HSCROLL. ( ) 
ON_WM_PAINT ( ) 
//} }AFX_MSG_MAP 
END_MESSAGE__MAP { ) 

///////////////////////////////////////////////////////////////////////////// 
// CPPMyInf o message handlers 

BOOL CPPMylnfo: :OnInitDialog() 
{ 

CPropertyPage: : OnlnitDialog ( ) ; 

TRACEO ( "CPPMylnfo : : OnlnitDialog () \n" ) ; 
CPropertyPage: : OnlnitDialog { ) ; 

m_bChanged = FALSE ; 
m_cbSex. SetCurSel (m_nSex) ; 
m_cbEthnic . SetCurSel (m_nEthnic) ; 
m_cbWork . SetCurSel (m_nWork) ; 
// m__cbLanguage . SetCurSel (m_nLanguage) ; 

for (int i=0; i < gResMan . GetNumActorDescs ( ) ; i++) 

{ 

CActorDesc* pAD = gResMan . GetActorDesc ( i ) ; 
if (pAD) 

{ 

CString* pNick = pAD- >GetNick { ) ; 
if (pNick) 

m_lbActors . AddString ( *pNick) ; 

} 

} 

m_lbActors . SetCurSel ( 0 ) ; 

// m_rcActor . lef t = 24; // syc 0715 
// m_rcActor . top =21; // syc 0 715 

UpdateAc tor Image () ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void CPPMylnfo: : OnSelchangeLbActors ( ) 

{ 

m_nCharID = m_lbActors . GetCurSel ( ) ; 
m_nCellID = 0; 
UpdateActorlmage () ; 
// m_bChanged- TRUE; 

SetModif ied 0 ; 
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} 

void CPPMylnfo: : OnSelchangeComboSex ( ) 

{ 

m_nSex = m_cbSex . GetCurSel ( ) ; 
TRACE ( "Sex: %d\n" , m_nSex) ; 
m_bChanged= TRUE; 
SetModif ied () ; 



void CPPMylnfo: rOnHScroll (UINT nSBCode, UINT nPos , CScrollBar* pScrollBar) 
{ 

CScrollBar* pSB = (CScrollBar* ) GetDlgltem (IDC_SB_ACTOR) ; 
if (pScrollBar == pSB) 

{ 

if ( !Tn__pPSActor) 
return; 

int nCells = m__pPSActor- >GetNumCells ( ) ; 
int nMin , nMax ; 

pSB- >GetScrollRange (&nMin, inMax) ; 

switch (nSBCode) 

{ 

case SB__THUMBPOSITION: 

m_nCellID =^ nPos; 

pSB- >SetScrollPos (nPos) ; 

break; 
case SB_LINELEFT: 

m_nCellID = pSB- >GetScrollPos { ) - 1; 

if (m_nCellID < nMin) 

m_nCellID = nMax; // Wrap 

pSB- >SetScrollPos (m_nCellID) ; 

break; 
case SB_LINERIGHT : 

m_nCellID = pSB - >GetScrollPos { ) + 1; 

if (m__nCellID > nMax) 

m_nCellID = nMin; // Wrap 

pSB- >SetScrollPos {m_nCellID) ; 

break; 
case SB_PAGELEFT: 

m_nCellID = pSB- >GetScrollPos () - (nMax - nMin) / 5; 

if (m_nCellID < nMin) 

m_nCellID = nMin; 

pSB->SetScrollPos (m_nCellID) ; 

break; 
case SB_PAGERIGHT: 

m_nCellID = pSB- >GetScrollPos () + (nMax - nMin) / 5; 

if (m_nCellID > nMax) 

m_nCellID = nMax; 

pSB->SetScrollPos (m_nCellID) ; 

break; 

} 

InvalidateRect (&m_rcActor , FALSE) ; 
UpdateData (FALSE) ; 

} 

CPropertyPage: lOnHScroll (nSBCode, nPos, pScrollBar); 
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} 



// m_nCharID can be set externally by calling CPS JoinChannel : : SetMemberInf o 
void CPPMyInf o : : UpdateActor Image { ) 

{ 

CActorDesc* pAD = gResMan . GetActorDesc (m_nCharID) ; 

if (!pAD) 

{ 

TRACEO { "CPPMyInf o - ActorDesc not found!\n"); 
return; 

} 

CString* pstrRes = pAD- >GetResName ( ) ; 
if ( IpstrRes) 

{ 

TRACEO { "CPPMyInf o - ActorDesc - ResName not found !\n") ; 
return; 

} 

CString strResName (* pstrRes ) ; 
// We'll not reuse DIB here: 

// Since this image is not necessary to be resident in memory. 
// CPhasedSprite* pPS = gResMan . LoadPhasedSprite ( ' A ' , strResName, FALSE) 
// (StrResName, FALSE) ; // syc 0501 

CPhasedSprite* pPS = gResMan . LoadPhasedSprite ( strResName , FALSE); 

if (!pPS) 
{ 

delete pPS ; 

StrResName += " not found!"; 
AfxMessageBox ( StrResName) ; 
return; 

} 

if (m__pPSActor) 

delete m_pPSActor; // Delete previously allocated resource 

m_pPSActor = pPS; 
m_nCellID = 0; 

m_jpPSActor->SetCell (m_nCellID) ; 
CRect rc; 

m_pPSActor->GetRect (rc) ; 

m_rcActor . right - m_rcActor . lef t + rc.WidthO; 
m_rcActor . bottom = m_rcActor . top + rc.Height(); 

CScrollBar* pSB = (CScrollBar* ) GetDlgltem ( IDC_SB_ACTOR) ; 
ASSERT (pSB) ; 

pSB- >SetWindowPos {NULL, m_rcActor . lef t , m_rcActor . bottom+2 , 

m_rcActor . Width 0*2, 15 , 
SWP_NOZORDER | SWP_NOACTIVATE ) ; 

pSB->SetScrollRange ( 0 , m_pPSActor- >GetNumCells ( ) -1) ; 

pSB->SetScrollPos (0) ; 

m_lbActors . SetCurSel (m_nCharID) ; 
InvalidateRect ( &m_rcActor) ; 

} 
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void 



CPPMyInf o 



OnPaint ( ) 



CPaintDC dc{this); // device context for painting 

CPSJoinChannel* pPSJC = (CPS JoinChannel * ) GetParent ( ) ; 
ASSERT (pPSJC) ; 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (pPSJC->GetPalette () ) 
{ 

pPalOld = dc.SelectPalette (pPSJC->GetPalette () , FALSE) 
bForceBackground ^ FALSE 

// pDC- >RealizePalette ( ) ; // we realize in response to 
WM_QUERYNEWPALETTE 



if (pPalOld) 

dc . SelectPalette (pPalOld, FALSE) ; 
// Do not call CPropertyPage :: OnPaint ( ) for painting message 



if 



(m_pPSActor) 



m_pPSActor->SetCell (m_nCellID) ; 

CPoint ptLT (m_rcActor . lef t , m_rcActor . top ) ; 

m_pPSActor->Draw (&dc, ptLT) ; 



} 
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#if ! defined ( AFX_PPMYINFO_H 4DDADF8 1_B0E7_11D3_B82B_00 1 05A6 0F93 0 INCLUDED_) 

#def ine AFX_PPMYINFO_H 4DDADF81_B0E7_11D3_B82B_00105A60F93 0 INCLUDED^ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 100 0 
// PPMylnfo.h : header file 
// 



class CPhasedSpri te ; 



1 1 1 1 11 1 / 1 1 11 1 1 1 1 1 1 1 1 11 1 / 1 1 1 n I / 1 1 1 1 / 1 1 1 1 / 1 1 11 1 1 1 1 / 1 1 11 1 1 1 / 1 1 1 / 1 1 11 1 1 1 / 11 / 1 11 1 

II CPPMylnfo dialog 

class CPPMylnfo : public CPropertyPage 
{ 

DECLARE_DYNCREATE (CPPMylnfo) 

// Construction 
public : 

CPPMylnfo ( ) ; 

-CPPMylnfo () ; 



int m_nCharID; 

int m_nSex; // 0 : 1, 1: Male, 2: Female 

int m_nEthnic; 

int m_nLanguage ; 

int m_nWork; 



BOOL m_bChanged/ 

// Dialog Data 

/ / { { AFX_DATA ( CPPMylnfo ) 
enum { IDD = IDD_PP_MYINFO } ; 
CListBox m_lbActors ; 

CComboBox m_cbWork; 
CComboBox m_cbSex; 
CComboBox m_cbEthnic; 
CButton m_btnUploadPhoto ; 

UINT m_nAge ; 
//} }AFX_DATA 



/ / Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAL( CPPMylnfo) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

//} }AFX_VIRTUAL 

// Implementation 
protected : 

void UpdateActorlmage ( ) ; 

int m_nCellID; 
CPhasedSpri te* m_pPSActor; 
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CRect m_rcActor; 

// Generated message map functions 
// { { AFX_MSG (CPPMyInf o) 
virtual BOOL Onini tDialog ( ) ; 
afx__msg void OnSelchangeLbActors ( ) ; 
afx__msg void OnSelchangeComboSex ( ) ; 

afx_msg void OnHScroll (UINT nSBCode, UINT nPos , CScrollBar* 
pScrollBar) ; 

af x_msg void OnPaint ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_PPMYINFO_ H 4DDADF8 1_B0E7 11D3_B82B_0010 5A6 0F93 0 INCLUDED 
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// PPOtherlnfo.cpp : implementation file 
// 

#include " stdaf x . h" 
iinclude "uc2 .h" 
#include " PPOtherInf o . h" 

#ifdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
/ / CPPOtherInf o property page 

IMPLEMENT_DYNCREATE ( CPPOtherInf o , CPropertyPage ) 

CPPOtherInf o :: CPPOtherInf o ( ) : CPropertyPage (CPPOtherInf o :: IDD) 
{ 

// { { AFX_DATA_INIT (CPPOtherInf o) 

m_sAge = _T ( " " ) ; 

m_sAlias = _T ( " " ) ; 

m_sEmail = _T ( " " ) ; 

m_sEthnic = _T ( " " ) ; 

m_sFName = _T ( " " ) ; 

m_s Homepage = _T ( " " ) ; 

m_sLanguage - _T ( " " ) ; 

m_sLName - _T ( " " ) ; 

m_sSex = _T("") ; 

m_sWork = _T { " " ) ; 

/ / } } AFX_DATA_INIT 

) 

CPPOtherInf o : : -CPPOtherInf o ( ) 

{ 

} 

void CPPOtherInf o : :DoDataExchange (CDataExchange* pDX) 

{ 

CPropertyPage: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP ( CPPOtherInf o) 
DDX_Text (pDX, IDC_ST_AGE, m_sAge) ; 
DDX_Text (pDX, IDC_ST_ALIAS , m_sAlias) ; 
DDX_Text (pDX, IDC__ST_EMAIL , m_sEmail) ; 
DDX_Text (pDX, IDC_ST_ETHNIC , m_sEthnic) ; 
DDX_Text (pDX, IDC_ST_FNANE , m_sFName) / 
DDX_Text (pDX, IDC_ST_HOMEPAGE , m_sHomepage) ; 
DDX^Text (pDX, IDC_ST_IiANGUAGE , m_sLanguage) ; 
DDX_Text (pDX, IDC_ST_LNAME, m_sLName) ; 
DDX_Text (pDX, IDC_ST_SEX, m_sSex) ; 
DDX_Text (pDX, IDC_ST_WORK, m_sWork) ; 
/ / } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP ( CPPOtherInf o , CPropertyPage ) 
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// { {AFX_MSG_MAP (CPPOtherInf o) 

// NOTE: the ClassWizard will add message map macros here 
//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CPPOtherlnfo message handlers 
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#if 

! defined (AFX_P POTHER INFO_H 0E8E8441_B2 5D_llD3_B82B_0 0105A6 0F93O INCLUDED_) 

#def ine AFX_PPOTHERINFO_H 0EeE844 1_B2 5D_11D3_B82B_00 105A60F93 0 INCLUDED^ 



#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// PPOtherlnfo.h : header file 

// 



///////////////////////////////////////////////////////////////////////////// 
// CPPOtherlnfo dialog 

class CPPOtherlnfo : public CPropertyPage 
{ 

DECLARE_DYNCREATE (CPPOtherlnfo) 

// Construction 
public : 

CPPOtherlnfo ( ) ; 

-CPPOtherlnfo 0 ; 



// Dialog Data 

//{ {AFX_DATA (CPPOtherlnfo) 

enum { IDD = IDD_PP__OTHERINFO } ; 

CString m_sAge; 

CString TTi_sAlias; 

CString m_sEmail; 

CString m_sEthnic; 

CString m_s FName 

CString m_s Homepage; 

CString m_s Language ; 

CString m_sLName; 

CString m__sSex; 

CString m_sWork; 

//} }AFX_DATA 



// Overrides 

// ClassWizard generate virtual function overrides 
//{ {AFX_VIRTUAL (CPPOtherlnfo) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 

//{ {AFX_MSG (CPPOtherlnfo) 

// NOTE: the ClassWizard will add member functions here 

//} }afx_msg 
declare_message_map ( ) 

}; 

// { {afx_insert_location} } 
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// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX PPOTHERINFO_H 0E8E8441 B2 5D__11D3_B82B_0 0105A6 0F93 0 INCLUDED 
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// PPPaymentInf o . cpp : implementation file 
// 

#include "stdafx.h" 

#include "UC2.h" 

#include " PPPayment Info . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPPPayment Inf o property page 

IMPLEMENT_DYNCREATE ( CPPPayment Inf o , CPropertyPage ) 

CPPPayment Inf o : : CPPPayment Inf o ( ) : CPropertyPage (CPPPayment Inf o : : IDD) 
{ 

// { {AFX_DATA_INXT {CPPPaymentInf o) 
m_strCardNum ^ _T ( " " ) ; 
m_strExpDate = _T ( " " ) ; 
// } } AFX_DATA_INIT 

} 

CPPPayment Inf o : : -CPPPayment Inf o ( ) 

{ 
} 

void CPPPaymentInf o : :DoDataExchange (CDataExchange* pDX) 

{ 

CPropertyPage: : DoDataExchange (pDX) ; 
/ / { { AFX_DATA_iy[AP (CPPPayment Inf o) 
DDX_Control (pDX, IDC_COMB01 , m_cbCredit) ; 
DDX_Text (pDX, IDC_EDIT_CARDNUM , m_strCardIsrum) ; 
DDX_Text (pDX, IDC_EDIT_EXPDATE, m_st rExpDate ) ; 
/ / } } AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP ( CPPPayment Inf o , CPropertyPage) 
// { {afx_MSG_MAP (CPPPaymentInf o) 

// } }afx_msg_map 
end__message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CPPPayment Inf o message handlers 

BOOL CPPPayment Info: : OnlnitDialog ( ) 

{ 

CPropertyPage: : OnlnitDialog ( ) ; 

m_cbCredit .SetCurSel (0) ; 
m_strExpDate = _T("MM/YY"); 

m_strCardNum = _T ( "XXXX-XXXX-XXXX-XXXX" ) ; 
UpdateData (FALSE) ; // Write 
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return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
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#if 

! defined ( AFX_PPPAYMENTINFO_H 19BBF2 82_4 74C_1 1D2_BCFD_0 0 8 0C7EADFBB INCLUDED_ 

) 

#def ine AFX_P P PAYMENT INFO_H 19BBF2 82_4 74C_11D2_BCFD_0 0 8 0C7EADFBB INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 100 0 

// PPPaymentlnfo.h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// CPPPaymentInf o dialog 

class CPPPaymentInf o : public CPropertyPage 
{ 

DECLARE_DYNCREATE (CPPPaymentInf o) 

// Construction 
public : 

CPPPaymentInf o ( ) ; 

-CPPPaymentInf o ( ) ; 

// Dialog Data 

//{ {AFX_DATA(CPPPaymentInfo) 
enum { IDD - IDD_PP_PAYMENT } ; 
CComboBox m_cbCredit ; 
est ring m_strCardNum; 
CString m_strExpDate ; 

/ / } } AFX_DATA 



// Overrides 

// ClassWizard generate virtual function overrides 
/ / { { AFX_VIRTUAIi ( CPPPayment Inf o ) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 

// { { AFX_MSG (CPPPaymentInf o) 

virtual BOOL, Onini tDialog ( ) ; 

//} }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

); 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_PPPAYMENTINFO_H 19BBF2 82_4 74C_11D2_BCFD_0 08 0C7EADFBB INCLUDED 

) 
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// PPShoppingCart.cpp : implementation file 
// 

#include " stdaf x . h" 

iinclude "UC2 .h" 

#include "PPShoppingCart . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPPShoppingCart property page 

IMPLEMENTED YNCREATE (CPPShoppingCart . CPropertyPage ) 

CPPShoppingCart : : CPPShoppingCart ( ) : CPropertyPage (CPPShoppingCart : : IDD) 
{ 

//{ {AFX_ DATA_INIT (CPPShoppingCart) 

// NOTE: the ClassWizard will add member initialization here 
//} }AFX_DATA_INIT 

} 

CPPShoppingCart : : -CPPShoppingCart () 

{ 
} 

void CPPShoppingCart :: DoDataExchange (CDataExchange* pDX) 

{ 

CPropertyPage: : DoDataExchange (pDX) ; 
//{ {AFX_DATA_MAP (CPPShoppingCart) 
DDX_Control (pDX, IDC_CART, m_lcCart) ; 
// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE__MAP (CPPShoppingCart , CPropertyPage) 

/ / { {AFX_MSG_MAP (CPPShoppingCart) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CPPShoppingCart message handlers 

BOOL CPPShoppingCart: : OnlnitDialog ( ) 

{ 

CPropertyPage: : OnlnitDialog ( ) ; 

// Prepare List Control for Channels list 
// m_lcCart -SetlmageList {&m_ilChannel , LVSIL_SMALL) ; 

char* szColumn[] = {"QNTY", "ITEM", "ID#", "PRICE", "TOTAL"}; 
int nWidth[] = {40, 130, 40, 70, 70}; 

LV__COLUMN IvC; // list view column structure 
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IvC.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM ; // 

valid members 

IvC.fmt = LVCFMT_LEFT; // left-align column 

// Add the columns. 

for (int i=0; i < si zeof (nWidth) /sizeof (nWidth [0 ] ) ; i++) 
{ 

IvC.cx = nWidth [i]; // width of column in 

pixels 

IvC.iSubltem = i; 

IvC.pszText = szColumn[i]; 

if (m_lcCart . InsertColumn (i, SilvC) -1) 
return NULL; 

} 

#define NUM_ITEMS 4 

LPTSTR aszQuantity [NUM__ITEMS] = {"1", "2", "1", "3"}; 

LPTSTR aszltem [NUM_ITEMS] = { "SM 518", "SM 520", "VTR" , "SM 

525"} ; 

LPTSTR aszID [lSnjM_ITEMS] = {"1353", "1742", "6727", "5917"} 

LPTSTR aszPrice [NUM_ITEMS] = {"$18,000", "$22,000", "$330", 

"$28, 000" } ; 

LPTSTR aszTotal [NUM_ITEMS] = {"$18,000", "$56,000", "$56,330" 

"$92, 000" } ; 

LV_ITEM IvI; // list view item structure 

for (i=0; i < NUM_ITEMS; i++) 

{ 

: : ZeroMemory (&lvl , sizeof (IvI) ) ; 

Ivl.mask = LVIF_TEXT | LVIF_IMAGE | LVIF_PARAM | 



LVIF STATE ; 



IvI . state = 0 ; 

IvI . stateMask = 0; 



IvI . iltem = i ; 

IvI . iSubltem - 0 ; 

// The parent window is responsible for storing the text. 
// The list view control will send an LVN_GETD ISP INFO 
// when it needs the text to display. 
IvI.pszText = aszQuantity [i] ; 

IvI . cchTextMax = MIC_MAX_CHANNEL_NAME_LENGTH_MIC ; // 63 

// Ivl.i Image = i Image ; 

// IvI.lParam = (LPARAM) pics Prop ; 

m_lcCart - Insertltem (&lvl) ; 

m_lcCart .SetltemText (i, 1, aszltem[i] ) ; 

m_lcCart . SetltemText (i , 2, as2lD[i]); 

m_lcCart . SetltemText (i, 3, aszPrice [i] ) ; 

m_lcCart . SetltemText (i, 4, aszTotal [i] ) ; 

} 

#undef NUM_ITEMS 

return TRUE; // return TRUE unless you set the focus to a control 
^ // EXCEPTION: OCX Property Pages should return FALSE 
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#if 

! defined (AFX__PPSHOPPINGCART_H 1 9BBF2 8 1_474C_11D2_BCFD_008 0C7EADFBB 

_) 

#def ine AFX_PPSHOPPINGCART_H 1 9BBF2 8 1_4 7 4 C_l 1D2_BCFD_0 0 8 0 C7EADFBB_ 

#if _MSC_VER > 10 0 0 
#pragma once 

#endif // _MSC_VER > 1000 
// PPShoppingCart . h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// CPPShoppingCart dialog 

class CPPShoppingCart : public CPropertyPage 
{ 

DECLARE_DYNCREATE ( CPPShoppingCart ) 

// Construction 
public : 

CPPShoppingCart { ) / 

-CPPShoppingCart () ; 

// Dialog Data 

//{ {AFX_DATA( CPPShoppingCart) 
enum { IDD = IDD_PP_CART } ; 
CListCtrl m_lcCart; 
//} }AFX_DATA 



// Overrides 

// ClassWizard generate virtual function overrides 
/ / { { AFX_VIRTUAL ( CPPShoppingCart ) 
protected : 

virtual void DoDataExchange {CDataExchange* pDX) ,- // DDX/DDV support 

/ / } } AFX__VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 

//{ {AFX_MSG (CPPShoppingCart) 

virtual BOOL OnlnitDialog () ; 

// } }afx_msg 

DECLARE_MESSAGE_iy[AP ( ) 

}; 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 

#endif // 

I defined (AFX_PPSHOPPINGCART_H 19BBF2 8 1_4 74C_11D2_BCFD_0 0 8 0C7EADFBB INCLUDED 

) 



^INCLUDED 
INCLUDED 
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// 



// File: PROGRESS . CPP 
// 

// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF 

// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO 

// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A 

// PARTICULAR PURPOSE. 
// 

// Description: 
// 

// This sample demonstrates using a URL moniker to download information. 

// The key routines include the implementation of IBindStatusCallback 

// and the CDownload : : DoDownload routine, which creates and binds to the 

// URL moniker. 
// 

// Instructions: 



// 

// To use this sample: 

// * build it using the NMAKE command. NMAKE will create PROGRESS . EXE . 
// * run PROGRESS.EXE, specify the resource to download by passing an 
// URL on the command- line . use no command- line argument to default to 

// downloading "http : //www . msn . com" . 

// * The program displays a dialog box containing information about the 
// download: 

// - a status message, describing the current status of the download 

// - a progress message, describing the amount of information that 

// has been downloaded. 

// - a text box, which displays chunks of the download information as 

// it arrives - 

// * Press the "GO" button to begin the download. 
// 

// Sample update : - 

// * New feature include Progress Bar to indicate progress of the download 
// * Edit box replaces the old text box. Also the whole file can be 

viewed . 

// If the file exceeds 32KB then only the first 32 KB from the last data 

// pull will be displayed. If the pull exceeds 32 KB, then only the 

first 

// 32 KB of the last Read will be displayed. 

// 

/// 



// File updated by Jason Strayer 27-Aug-1997 

// File updated by Jobi George 19-June-1996 

// File updated by Ramesha Gopalakrishna 28 -June- 1996 

// File updated by Oliver Wallace 9-July-1996 

// File updated by Soomin Kim 6 -April -1998 

// Copyright 1995-1997 Microsoft Corporation. All Rights Reserved. 
// 



#include " stdaf x . h" 
#include "urlmon.h" 
#include "wininet.h" 
#include " resource. h" 
#include "Prog.h" 



A-314 



Prog.cpp 



/ / CBindStatusCallback Implementation 



// 

// %%Function: CBindStatusCallback: : CBindStatusCal Iback 

// 

CBindStatusCallback: : CBindStatusCallback (HWND hwndFrame , LPCTSTR szFile) 

TRACE ( "CBindStatusCallback: : CBindStatusCallback\n" ) ; 
m_hFrame = hwndPrame ; 

m_pbinding = NULL; 

m_jpstm = NULL; 

m_cRef = 1; 

m__pFile = NULL; 

m_strFile = szFile; 

} // CBindStatusCallback 

// 

// %%Function: CBindStatusCallback: : -CBindStatusCallback 

// 

CBindStatusCallback: : -CBindStatusCallback ( ) 
{ 

TRACE ("CBindStatusCallback: : -CBindStatusCallback\n" ) ; 
} // -CBindStatusCallback 

/* 

inline void CBindStatusCallback :: SetWndText (HWND hwnd, LPCWSTR szText) 
if (IsWindow (hwnd) ) 

{ 

char rgchBuf [ INTERNET_MAX_PATH_LENGTH] ; 
WideCharToMultiByte (CP_ACP, 0, szText, -1, rgchBuf, 
INTERNET_MAX_PATH_LENGTH , 0 , 0 ) ; 

SetWindowText (hwnd, rgchBuf) ; 

} 

} 

*/ 

// 

// %%Function: CBindStatusCallback: : Querylnterf ace 

// 

STDMETHODIMP CBindStatusCallback :: Querylnterf ace (REFIID riid, void** ppv) 
*ppv = NULL; 

if (riid = = IID_IUnknown | | riid==rl lD_IBindStatusCallback) 
*ppv =r this; 
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AddRef 0 ; 
return S_OK; 

} 

return E_NO INTERFACE; 
} // CBindStatusCallback: :QueryInterface 

// 

// %%Function: CBindStatusCallback: : OnStartBinding 



STDMETHODIMP CBindS tatusCallback :: OnStartBinding (DWORD dwReserved, IBinding* 
pbinding) 

{ 

TRACE ("CBindStatusCallback: : OnStartBinding\n" ) ; 
if (m_pbinding) 

m_pbinding- >Release ( ) ; 
m_pbinding = pbinding; 
if (mjbinding) 
{ 

m_pbinding->AddRef 0 ; 

PostMessage (CMD_BIND_START) ; // SetStatus (L"Status : Startina to 

bind. . . ") ; 
} 

TRACED ("m_pFile = new CFile;\n"); 
m_pFile = new CFile; 

if ( !m_pFile->Open(m_strFile, CFile: : modeReadWrite | CFile: : modeCreate 
I CFile : : shareExclusive) ) 

{ 

delete m_pFile; 
m_jDFile = NULL; 

AfxMessageBox ( "Failed to open file"); 
return FALSE; 

} 

PostMessage (CMD_BIND_FILE_OPENED) ; 
return S_OK; 
} // CBindStatusCallback: : OnStartBinding 

// 

// %%Function: CBindStatusCallback: : OnStopBinding 



STDMETHODIMP CBindStatusCallback :: OnStopBinding (HRESULT hrStatus, LPCWSTR 
pszError) 

{ 

TRACE ("CBindStatusCallback: : OnStopBinding\n" ) ; 
if (hrStatus) 

PostMessage (CMD_BIND_FAILED) ; // SetStatus (L" Status : File 
download Failed. ") ; 

if (m_pbinding) 

{ 

m_pbinding- >Release ( ) ; 
m_pbinding = NULL; 

} 
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CloseFile ( ) ; 
return S_OK; 
} // CBindStatusCallback: rOnStopBinding 

void CBindStatusCallback; :CloseFile() 
{ 

if (m__pFile) 
{ 

TRACE { "m_pFile->Close () ;\n") ; 
m__pFile- >Close ( ) ; 
delete m__pFile/ 
m_jp File = NULL; 

PostMessage (CMD_BIND FILE CLOSED); 

} 

} 

// 

// %%Function: CBindStatusCallback: iGetPriority 

// 

STDMETHODIMP CBindStatusCal Iback : : GetPrior i ty ( LONG* pnPriority) 

return E_NOTIMPL; 
} // CBindStatusCallback: :GetPriority 

// 

// %%Function: CBindStatusCallback: : OnLowRe source 

// 

STDMETHODIMP CBindStatusCallback: : OnLowRe source {DWORD dwReserved) 

return E_NOTIMPL; 
} // CBindStatusCallback: : OnLowResource 

// 

// %%Function: CBindStatusCallback: :OnProgress 

// 

STDMETHODIMP CBindStatusCal Iback : : OnProgress (ULONG ulProgress, ULONG 
ulProgressMax, 

ULONG 

ulStatusCode , LPCWSTR szStatusText ) 
{ 

TRACE ("CBindStatusCallback: : OnProgress ( %lu) \n" , ulProgress) ; 
char sz [2 55] ; 

if (szStatusText ) 

WideCharToMultiByte(CP_ACP, 0, szStatusText, -1, sz, 255, 0, 0); 

if (Istrlen(sz) > 0) 
{ 

char msg [256] ; 
char buf [256] ; 
// WCHAR out [256*2]; 
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char* p = strrclir(sz, '/'); 

if (p) 

{ 

P++; 

strcpy (buf , p) ; 

wsprintf (msg, "%s %d of %d", buf, ulProgress, (ulProgress > 
ulProgressMax) ? ulProgress : ulProgressMax) ; 

// MultiByteToWideChar {CP_ACP, 0, msg, -1, out, sizeof (out) ) ; 

SendMessage (CMD_BIND_PROGRESS_MSG, 0, (LPARAM) msg) ; 

} 

TRACE("%lu, %lu\n", ulProgress, ulProgressMax) ; 
SendMessage (CMD_BIND_PROGRESS_BAR, (WPARAM) ulProgress, 
(LPARAM) ulProgressMax) ; // by value 

} 

return NOERROR; 
} // CBindStatusCallback : :OnProgress 



// 

// %%Function: CBindStatusCallback : :GetBindInfo 

// 

STDMETHODIMP CBindStatusCal Iback :: GetBindlnfo (DWORD* pgrfBINDF, BINDINFO* 

pbindinf o) 

{ 

if (Ipbindlnfo || ! pbindinf o- >cbSi ze || !pgrfBINDF) 
return E_IMVAIjIDARG; 

*pgrfBINDF = BINDF_ASYNCHRONOUS | B I NDF_ASYNC STORAGE | BINDF_PULLDATA | 

BINDF_GETNEWESTVERS ion I BINDF_NOWRITECACHE ; 

// remember incoming cbSize 
ULONG cbSize = pbindinf o- >cbSize ; 
// zero out structure 
: : ZeroMemory (pbindinf o, cbSize) ; 

// restore cbSize 

pbindinf o- >cbSize = cbSize; 

pbindinf o->dwBindVerb = BINDVERB_GET ; 

return S_OK; 
} // CBindStatusCallback: :GetBindInfo 

// 

// %%Function: CBindStatusCallback :: OnDataAvailable 

// 

STDMETHODIMP CBindStatusCal Iback :: OnDataAvai lable (DWORD grfBSCF, DWORD 

dwSize, FORMATETC* pfmtetc, STGMEDIUM* pstgmed) 

{ 

TRACE ( "CBindStatusCallback: : OnDataAvailable ( %ld) \n" , dwSize) ; 
HRESULT hr=S_OK; 

// Get the Stream passed 
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if (BSCF_FIRSTDATANOTIFICATION Sc grfBSCF) 
{ 

if (!m_pstm && (pst:gmed->tymed == TYMED_ISTREAM) ) 
{ 

m_pstm = pstgmed- >pstm; 
if (m_pstm) 

m_pstTn- >AddRef () ; 

} 

} 

// If there is some data to be read then go ahead and read them 
if {m_pstm Sc6c (dwSize > 0) ) 

{ 

DWORD dwRead = dwSize; // Minimum amount available that 

hasn't been read 

DWORD dwActuallyRead =0; // Placeholder for amount read 

during this pull 

if (dwRead > 0) 

{ 

do 

{ 

char* pNewstr = new char [dwRead + 1] ; 
if ( ! pMewstr) 

return S_FALSE; 
hr = m_pstm->Read (pNewstr , dwRead, &dwActuallyRead) ; 
pNewstr [dwActuallyRead] - 0; 

// If we really read something then lets add it to 

the Edit box 

if (m__pFile (dwActuallyRead > 0) ) 

{ 

TRY 

{ 

m_pFile- >Write {pNewstr , dwActuallyRead) ; 

} 

CATCH (CFileException, e) 
{ 

TRACED ( "Failed to write file.\n"); 
return FALSE ; 
} END_CATCH 

} 

delete [] pNewstr ; 
} while (! {hr == E_PENDING | | hr S_FALSE) 

SUCCEEDED (hr) ) ; 

} 

) // if (m__pstm dwSize > 0) 

if (BSCF_LASTDATANOTIFICATION & grfBSCF) 
{ 

if (m_pstm) 

m_pstm- >Release ( ) ; 

hr = S_OK; // If it was the last data then we should return S_OK 
as we just finished reading everything 

PostMessage (CMD_BIND_DOWNLOAD_DONE) ; // SetStatus (L*'Status : 

File downloaded. ") ; 

TRACED { "Status : File downloaded . \n ") ; 

} 
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return hr; 

} // CBindStatusCallback: : OnDataAvailable 



// 



// %%Function: CBindStatusCallback :: OnObj ectAvai lable 
// 



STDMETHODIMP CBindStatusCal Iback :: OnObj ectAvai lable ( REFI ID riid, lUnknown* 
punk) 

{ 

return E_NOTIMPL; 
} // CBindStatusCallback: : OnObj ectAvailable 



// 

// CDownload Implementation 

// 



// 

// %%Function: CDo\Amload :: CDownload 

// 

CDownload : : CDownload (LPCTSTR szURL) 
{ 

TRACE { "CDownload : : CDownload\n" ) ; 

static WCHAR SZWURL [MAX_PATH] ; // 

L"http : / / www . msn . com" ; 

MultiByteToWideChar {CP_ACP, 0, szURL, -1, szwURL, MAX_PATH) ; 
Tn_ur 1 = s zwURL ; 
m_pmk = 0 ; 
m_jpbc = 0 ; 
mj>bsc = 0 ; 

} // CDownload 

// 

// %%Function: CDownload :: -CDownload 

// 

CDownload : : -CDownload { ) 
{ 

TRACE ("CDownload: : -CDownload\n" ) ; 
i f ( m j>mk ) 

m_pmk- >Re lease ( ) ; 
if (m_pbc) 

m_pbc - >Re lease ( ) ; 
if (m__pbsc) 

{ 

m__pbsc - >Release ( ) ; 
delete m_pbsc; 

} 

} // -CDownload 
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// 

// %%Function: CDownload : : DoDownload 

// 

HRESULT CDownload: : DoDownload (HWND hwndFrame, LPCTSTR szFile) 

{ 

TRACE ( "CDownload : : DoDownload\n" ) ; 
IStream* pstm = NULL; 

HRESULT hr = CreateURLMoniker (NULL , m_url , &m_pmk) ; 
if (FAILED (hr) ) 

goto LErrExit; 



m__pbsc = new CBindStatusCallback (hwndFrame , szFile) ; 
if ( Im pbsc) 

{ 

hr = E_OUTOFMEMORY; 
goto LErrExit; 

} 

hr = CreateBindCtx (0, &m_pbc) ; 
if (FAILED (hr)) 

goto LErrExit; 

hr = RegisterBindStatusCallback (m_pbc , m_pbsc, 0, OL) ; 
if (FAILED (hr) ) 

goto LErrExit; 

hr = m_pmk- >BindToStorage {m__pbc , 0, I ID_IStream, (void* * ) &:ps tm) ; 
if (FAILED (hr) ) 

goto LErrExit; 



return hr; 



LErrExit : 

if {m_pbc) 

{ 

m_pbc->Re lease ( ) ; 
m_pbc = NULL; 

} 

if (m_pbsc) 

{ 

m__pbsc- >Release ( ) ; 
Tn_pbsc = NULL; 

} 

if (m_pmk) 

{ 

m_pmk->Re lease ( ) ; 
m_pmk = NULL ; 

} 

if (pstm) 

{ 

pstm- >Release 0 ; 
pstm = NULL; 

} 

return hr; 
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} // CDownload : : DoDownload 

void CDownload :: CancelDownload ( ) 

{ 

if (m_pbsc) 

{ 

m_pbsc - >CloseFile 0 ; 

} 

} 
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//^^=^= = = = ==^^=.^ = ^=^=^ = = = ^^==^==^^^^ = = ^ = = = = = ^ = 

II (C) Programmed by Kim, Soomin, Apr, 1996 

// Information Technology Institue 
// XJNICHAT.COM 

// Original source from Microsoft 

// = ==^===============^^====== = === = ==== = = = = = - = = - 

#ifndef PROG_H 

#define PROG_H 

#include "urlmon.h" 
#include "wininet.h" 



#define BASE (WM_USER + 200 + 

const UINT CMD_BIND_START 
const UINT CMD_BIND_FAILED 
const UINT CMD_BIND_FILE_OPENED 
const UINT CMD_BIND_FILE_CLOSED 
const UINT CMD_BIND_PROGRESS_MSG 
SendMessage (CMD_BIND_PROGRESS_MSG , 
const UINT CMD_BIND_PROGRESS_BAR 
S endMe s s age ( CMD_B IND_PROGRES S_BAR , 
(LPARAM) ulProgressMax) ; // by value 
const UINT CMD_BIND_DOWNLOAD_DONE 
#undef BASE 



100) 

= BASE; 
^ BASE+1; 
= BASE+2 , 
= BASE+3, 
= BASE+4 . 



// 



0, 



(LPARAM) msg) ; 
- BASE+5; // 
(WPARAM) ulProgress , 

= BASE+6; 



// %%Classes: 



class CBindStatusCallback : public IBindStatusCallback 

{ 



public : 



// lUnknown methods 

STDMETHODIMP Querylnterf ace (REFIID riid, void ** ppv) ; 
STDMETHODIMP_{ULONG) AddRef () { return m_cRef++; } 

STDMETHODIMP_(ULONG) Release () { return m_cRef--; } 

//if (--m_cRef ==0) { delete this; return 0; } return m_cRef; } 



// IBindStatusCallback methods 



STDMETHODIMP 
STDMETHODIMP 
STDMETHODIMP 
STDMETHODIMP 
ulStatusCode , 

STDMETHODIMP 
STDMETHODIMP 
STDMETHODIMP 
*pfmtetc, 

STDMETHODIMP 



OnStartBinding (DWORD dwReserved, IBinding* pbinding) ; 
GetPriority (LONG* pnPriority) ; 
OnLowRe source (DWORD dwRe served) ; 

OnProgress (ULONG ulProgress, ULONG ulProgressMax, ULONG 

LPCWSTR pwzStatusText) ; 
OnStopBinding (HRESULT hrResult, LPCWSTR szError) ; 
GetBindlnfo (DWORD* pgrfBINDF, BINDINFO* pbindinfo) ; 
OnDataAvailable (DWORD grfBSCF, DWORD dwSize, FORMATETC 

STGMEDIUM* pstgmed) ; 
OnObjectAvailable (REFIID riid, lUnknown* punk) ; 



// constructors/destructors 

CBindStatusCallback (HWND hwndFrame , LPCTSTR szFile) ; 
-CBindStatusCallback ( ) ; 



BOOL PostMessage (UINT message, WPARAM wParam=OL, LPARAM lParam=OL) 



const 
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{ return : : PostMessage (m_hFrame , message, wParam, iParam) 

} 

BOOL SendMessage (UINT message, WPARAM wParam=OL, LPARAM lParam=OL) 



const 

} 



}; 



{ return :: SendMessage (m_hFrame , message, wParam, IParam) 

void CloseFileO; 

// data members 

DWORD m_cRef ; 

IBinding* m__pbinding; 

IS t ream* m__pstm; 

HWND m__h Frame ; 
CFile* m__pFile; 
CString m_strFile ; 



class CDownload 

{ 

public : 

CDownload {LPCTSTR szURL) ; 
-CDownload ( ) ; 

HRESULT DoDownload (HWND hwndFrame , LPCTSTR szFile) ; 

void CancelDownload ( ) ; 

LPCWSTR m_url; 



private : 

IMoniker* m_pmk; 

IBindCtx* m__pbc ; 

CBindStatusCallback* m__pbsc; 

}; 

ttendif // PROG_H 
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// ProgressDlg . cpp : implementation file 
// 

#include " stdaf x . h" 

#include "UC2.h" 

#include " ProgressDlg . h" 

#include "Prog.h" 

#include "ResMan.h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/DIBPal , h" 

#include "MainFrm.h" 

#include "LoginDlg.h" // USERDEF__HOST 

#include "Parser. h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

extern CParser gParser; 
extern CResMan gResMan; 

const CRect RECT_EDIT (14 , 14, 407, 227); 
const CRect RECT_PROGRESS ( 82 , 233, 342, 250); 
const CRect RECT_PROGRESS_BAR ( 77 , 253, 342, 262); 
const CRect RECT_DISPLAY ( 82 , 270, 338, 287); 
LPCTSTR URLSERVER = _T { " f tp : / / " ) ; 

LPCTSTR U2SERVERPATH - _T ( " /UniChat / " ) ; 

LPCTSTR U2MOD_TXT = _T ( " u2mod . txt " ) ; // Message of the Day 

#ifdef _KOREAN 

LPCTSTR TOKEN_MOD = _T("MOD"); 

#else 

LPCTSTR TOKEN_MOD = _T("MODE"); 

#endif 

LPCTSTR TOKEN_FILELIST = _T ( " FILELIST " ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CProgressDlg dialog 

CProgressDlg : : CProgressDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CProgressDlg :: IDD, pParent) 

{ 

//{ {aFX_DATA_INIT (CProgressDlg) 
m_strDisplay = „T ( " " ) ; 
m_strProgress - _T ( " " ) ; 
/ / } }AFX__DATA_INIT 

// Note that Loadlcon does not require a subsequent Destroylcon in 

Win32 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 
ASSERT (pMF) ; 

m_NullBrush.CreateStockObject (NULL_BRUSH) ; 

m^ftMessage.CreateFont (-12, 0, 0, 0, FW_NORMAL, // FW_BOLD, 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
DEFAULT_CHARSET , OUT_CHARACTER_PRECIS , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY , 

DEFAULT_PITCH | | FF_DONTCARE , 
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#ifdef _KOREAN 
#else 

"Arial") ; 

#endif 

m_pPal = NULL; // Set it NULL before loading DIB 

CString strPath ( *gResMan . GetResPath ( ) ) ; 

CString strFile ( strPath + "U2 Login | LoginBk . bmp ") ; 

m__pDIBBack = new CDIB; 

if ( !m_pDIBBack->Load (strFile) ) 

delete Tn_pDIBBack; 
m_jpDIBBack ^ NULL; 
return ; 



if (pMF->Is256Palette 0 ) 

{ // Use mainframe's palette to avoid color flickering 

m_jpPal = pMF- >GetPalette ( ) ; 
m_pDIBBack- >MapColorsToPalette (m_j)Pal) ; 
m_bPaletteCreated = FALSE; 

else // Use original palette in the file for TRUE color system 
{ // Create the palette from the DIB. 

CDIBPal* pDIBPal; 

pDIBPal = new CDIBPal; 

ASSERT (pDIBPal ) ; 

if ( ! pDIBPal ->Create (m_pDIBBack) ) 
{ 

AfxMessageBox ( "Failed to create palette from DIB file") 
delete pDIBPal; 

} 

m__pPal = pDIBPal; // type casting to parent class 
m_bPaletteCreated = TRUE; 

} 

StrFile = StrPath + "U2Login | BtnOK . bmp " ; 
m__btnOK. Load (strFile) ; 
m_btnOK. Set Palette (m_pPal) ; 

StrFile = strPath + •'U2Login | BtnNo . bmp " ; 
m_btnCancel . Load ( StrFile) ; 
m_btnCancel . SetPalette (mj)Pal ) ; 

m_j)Download = NULL; 
m_aDI = NULL; 
m_nDIs = 0; 

m_bFirst = TRUE; 

m_bMOD = FALSE; 

m_nCurDI = 0; 

m_strDownloadingFile = strPath + "down.tmp"; 
m_bRITModif ied - FALSE; 
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CProgressDlg : : -CProgressDlg ( ) 

{ 

if {m__pDIBBack) 

delete m_pDIBBack; 
if (m_pPal Sc5c m_bPaletteCreated) 

delete mj)Pal; 

if (m_pDownload) 

delete m_pDownload; 
if (m^aDI) 

delete [] m_aDI; 

// CoUninitialize { ) ; 

} 

void CProgressDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
//{ {AFX_DATA_MAP (CProgressDlg) 
DDX_Control (pDX, IDC_EDIT_MSG , m_ecMsg) ; 
DDX_Control (pDX, IDC_PROGRESSBAR , m_pbProgress ) ; 
DDX_Text (pDX, IDC_DISPIjAY, m_strDi splay ) ; 
DDX_Text (pDX, IDC_PROGRESS, m_s trProgress ) ; 
/ / } }AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP (CProgressDlg, CDialog) 
// { {AFX_MSG_MAP (CProgressDlg) 
ON__WM_QUERYNEWPALETTE ( ) 
ON_WM_PALETTECHANGED ( ) 
ON_WM_ERASEBKGND ( ) 
ON__WM_CTLCOLOR ( ) 
ON_WM_SIZE() 
ON_WM_SYSCOMMAND ( ) 
ON_WM_PAINT ( ) 
ON_WM_QUERYDRAGICON ( ) 
ON_WM_NCHITTEST ( ) 
// } }AFX_MSG_MAP 

ON_MESSAGE (CMD_BIND_START, OnBindStart) 
ON_MESSAGE ( CMD_BIND_FAILED , OnBindPailed) 
ON_MESSAGE ( CMD_B IND_FILE_OPENED , OnBindFi 1 eOpened ) 

ON_ME S S AGE ( CMD_B I ND__F I L E_CLO S ED, OnBindFileClosed) 
ON_MESSAGE { CMD_BIND_PROGRESS_MSG , OnBindProgressMsg ) / / 

SendMessage (CMD_BIND_PROGRESS__MSG, 0, (LP/iJ^AM) msg) ; 

ON_MESSAGE (CMD_BIND_PROGRESS_BAR, OnBindProgressBar ) // 

SendMessage (CMD__BIND_PROGRESS_BAR, (WPARAM) ulProgress , 

(LPARAM) ulProgressMax) ; 

ON_MESSAGE (CMD_BIND_DOWNLOAD_DONE , OnBindDownloadDone ) 

END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CProgressDlg message handlers 

BOOL CProgressDlg: : Onini tDialog () 
{ 

TRACEO ( "CProgressDlg: : OnlnitDialog () \n" ) ; 
if ( !m_j)DIBBack) 
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return FALSE; 
CDialog: : OnlnitDialog ( ) ; 

m_btnOK. SubclassDlgltem (IDOK, this) ; 
m_btnCancel . SubclassDlgltem (IDCANCEL, this) ; 

CPoint ptLT(349, 238); 
m_btnOK.MoveResize (ptLT) ; 
ptLT.X = 17; 

m_btnCancel . MoveResize (ptLT) ; 

InitControl (IDC_EDIT__MSG, RECT_EDIT) ; 

InitControl (IDC_PROGRESS, RECT_PROGRESS ) ; 
InitControl {IDC_PROGRESSBAR, RECT_PROGRESS_BAR) ; 

InitControl(IDC_DISPLAY, RECT_DISPLAY) ; 

CUC2App* pApp = (CUC2App*) AfxGetApp 0 ; 
ASSERT (pApp) ; 

int nConnType = pApp- >RegGetConnType ( ) ; 

if (nConnType == USERDEF_HOST) 

{ 

pApp->RegGetSer^er (m_strHost ) ; 

} 

else 

{ 



} 



CString* pS = gResMan . GetServer IP (nConnType ) ; 
m_strHost = pS ? *pS : _T ( " 88 . 1 . 2 6 . 2 " ) ; 



// HRESULT hr = Colnitialize (MULL) ; 

// if (FAILED (hr) ) 

// return FALSE; 



} 



return TRUE; // return TRUE unless you set the focus to a control 



void CProgressDlg : : DownloadFi lesLis t ( ) 
{ 

CString s trU2 MOD (URLS ERVER + m_strHost + U2SERVERPATH + U2MOD_TXT) ; 
if (m_jpDownload) 

delete mjjDownload; 
m_pDownload - new CDownload (strU2M0D) ; 

GetDlgltem(IDOK) - >EnableWindow (FALSE) ; 
GetDlgltem(IDCANCEL) - >EnableWindow (FALSE ) ; 

// char rgchBuf [INTERNET_MAX_PATH_LENGTH] ; 

// WideCharToMultiByte {CP_ACP, 0, m__pDownload >m_url, -1, rgchBuf, 

MAX_PATH, 0, 0) ; 

// SetWindowText (rgchBuf ) ; 

m_strDisplay .LoadString ( IDS_PROGRESS_INIT_BIND) ; 
UpdateDisplay ( ) ; 

CString s trPath ( *gResMan . GetResPath ( ) ) ; 
CString strFile ( strPath + U2MOD_TXT) ; 
m_bMOD = TRUE; // Set MOD mode 

m_pDownload- >DoDownload (GetSaf eHwnd ( ) , strFile) ; 
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GetDlgltem(IDCANCEL) - >EnableWindow (TRUE) ; 

} 

void CProgressDlg : :0nOK ( ) 

{ 

CDialog : :OnOK( ) ; 

} 

void CProgressDlg :: OnCancel C ) 

{ 

if (m_pDownload) 

m_pDownload->CancelDownload ( ) ; 
// EndDialog (hwndDlg , 0) ; 
CDialog: : OnCancel () ; 

} 

LRESULT CProgressDlg : lOnBindStart (WPARAM, LPARAM) 
{ 

m_strDisplay. Loads tring ( IDS_PROGRESS_PREPARE ) ; 
UpdateDisplay ( ) ; 
return 0; 

} 

LRESULT CProgressDlg : rOnBindFailed (WPARAM, LPARAM) 
{ 

m_strDisplay . LoadString (IDS_PROGRESS_DOWNLOAD_FAIIj) ; 
UpdateDisplay ( ) ; 
return 0 ; 

} 

LRESULT CProgressDlg: :OnBindFileOpened (WPARAM, LPARAM) 

{ 

return 0 ; 

} 

LRESULT CProgressDlg : rOnBindFileClosed (WPARAM, LPARAM) 

{ 

return 0 ; 

} 

LRESULT CProgressDlg : :OnBindProgressMsg (WPARAM wParam, LPARAM IParam) 
{ 

char* szMsg = (char* ) IParam; 
if (szMsg && Istrlen (szMsg) ) 

{ 

m_strProgress = szMsg; 
UpdateProgress ( ) ; 

} 

return 0 ; 

} 

LRESULT CProgressDlg: :OnBindProgressBar (WPARAM wParam, LPARAM IParam) 
{ 

ULONG cProgress = (ULONG) wParam; 

ULONG maxProgress = (ULONG) IParam ; 
m_pbProgress . SetRange ( 0 , 100); 
// m_j)bProgress . SetPos (maxProgress ? cProgress * 100 / maxProgress 
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i f ( m_nD I s ) 

m_pbProgress . SetPos ( (m_nCurDI + 1) * 100 / m__nDIs) ; 
return 0 ; 



LRESULT CProgressDlg : : OnBindDownloadDone (WPARAM, LPARAM) 

{ 

m_strDisplay .LoadString ( IDS_PROGRESS_DOWNLOADED) ; 
UpdateDisplay ( ) ; 

CString strPath { *gResMan . GetResPath ( ) ) ; 
CString strFile; 



if (!m_bMOD) 
{ 



// Normal data files 



if {m_aDI [m_nCurDI] . m_bNew) 

{ 

StrFile = strPath + m_aDI [m_nCurDI ] . m^strFile ; 
CFileStatus fs; 

if {CFile: rGetStatus {m_strDownloadingFile, fs) ) 



{ 



if (fs.m_size m aDI [m nCurDI] .m ISize) 



FALSE) 



: : CopyFile (m_strDownloadingFile , strFile, 



if (CFile: rGetStatus (strFile, f s) ) 
{ 

f s .m_mtime = m_aDI [m_nCurDI] .m_mtime 
CFile: : Set Status (strFile, fs) ; 
if (strFile. Find(" .rit") > 0) // RIT 
m_bRITModif led = TRUE; 

} 

else 

{ 

StrFile " not found!"; 

AfxMessageBox (strFile) ; 



} 

} 

m_nCurDI++ ; 
DownloadNewFile ( ) ; 
return 0 ; 



// Message of the Day 

StrFile = strPath + U2MOD_TXT; 

m_bMOD = FALSE; 

CTextFileBuf f er t f b (gParser . GetMaxBuf f er ( ) ) ; 

if ( ! tfb. Load (strFile) ) 

{ 

StrFile Load Error !" ; 

AfxMessageBox ( StrFile) ; 
return - 1 ; 

} 
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m_nCurDI = 0 ; 
m_nD Is = 0 ; 

while (tfb.ReadStringO ) 
{ 

gParser . CopyBuf f er { tf b . GetString ( ) ) ; 

if {gParser . IsCommentLine ( ) ) // At first, check if it's a 

comment line 

continue ; 
CString strBuf; 

if (! gParser ,SetLeftToken( '#' ) || 

! gParser .GetValueRightToken (strBuf , ' = ' ) ) 
continue; // get next line 

if (Istrcmpi {strBuf , "FILELIST") 0) // matching! 

{ 

while (tfb.ReadStringO ) 
{ 

gParser. CopyBuf fer(tfb. GetString () ) ; 
if (gParser . IsCommentLine () ) // At first, 

check if it's a comment line 

continue ; 

if (gParser . SetLeftToken ('{') ) // Begin 

{ 

if (gParser . SetLeftToken ('}') ) // {} 

break; 

continue; // get next line 

} 

if (gParser .SetLeftToken ('}') ) // End of 

break; // out of while loop 

if (gParser . SetLeftToken ('=') ) 

m_nDIs++; // Anyway, we should increase 



contents 
the counter 

} 



} 



} 

tf b . SeekToBegin ( ] 



if (m_nDIs) 

m_aDI = new CDownInf o [m_nDIs] ; 

int di=0; 
CString strTemp; 



while (tfb.ReadStringO ) 
{ 

gParser . CopyBuf fer (tf b . GetString { ) ) ; 
if (gParser . IsCommentLine 0 ) 

continue ; 
if ( ! gParser. SetLeftToken C ) ) 

continue ; 
CString strBuf; 

if ( 'gParser .GetValueRightToken (strBuf , ' = ')) 
continue ; 

1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 // 1 1 1 1 n 1 1 1 1 1 1 1 1 

if (Istrcmpi (strBuf , TOKEN_FIIiELIST) == 0) 
{ 
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while (tfb.ReadString () ) 
{ 

gParser -CopyBuf fer ( t f b . GetString () ) ; 
if (gParser . IsCommentLine { ) ) 

continue ; 
if {gParser . SetLef tToken ( ' { ' ) ) 
{ 

if (gParser. SetLef tToken ( • } ' ) ) 

break ; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break; 

if { ! gParser . GetValueRightToken (strTemp, ' = ' ) ) 

continue ; 
strTemp . MakeLower ( ) ; 
m__aDI [di] .m_strFile = strTemp; 

gParser . GetValueRightToken (m_aDI [di] .m_nType, ' 

gParser . GetValueRightToken (m_aDI [di] .m_lSize, ' 

int YY , mm, dd, hh, mn; 
gParser -GetValueRightToken (yy, ' , ' ) ; 
gParser .GetValueRightToken (mm, ' , ' ) ; 
gParser . GetValueRightToken (dd, ' , ') ; 
gParser . GetValueRightToken (hh, ' , ') ; 
gParser . GetValueRightToken (mn, ' / ' ) ; 
if (di >= m_nDXs) 
break; 

CTime t (yy, mm, dd, hh, mn, 0); 
m_aDI [di++] .m_mtime = t; 

} 

} 

else if (Istrcmpi (strBuf , TOKEN_MOD) == 0) // matching 

{ 

while ( tfb. ReadString 0 ) 

{ 

gParser. CopyBuf f er( tfb -GetString 0 ) ; 
if (gParser . IsCommentLine 0 ) 

continue ; 
if (gParser , SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

break; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break; 




StrTemp = tf b . GetString () ; 
StrTemp += _T("\r\n"); 

int len = m_ecMsg . GetWindowTextLength ( ) ; 
m_ecMsg . SetSel (len, len); // starting 

position, ending position 

m_ecMsg . ReplaceSel (strTemp) ; 

} 

} 
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} 

DownloadNewFile ( ) ; 

#ifdef _DEBUG 

for (int i=0; i < m_nDIs; i++) 

{ 

CTime& t = m_aDI [i] .m_mtime; 

TRACE ("%s=%d, %ld, %d, %d, %d, %d, %d\n" , 

m_aDI [i] .m_strFile, m_aDI [i] -m_nType, m_aDI [i] .m_lSi2e, 
t . GetYear ( ) , t . GetMonth ( ) , t . GetDay ( ) , t . GetHour ( ) , 
t . GetMinute ( ) , t . GetSecond ( ) ) ; 
} 

#endif 

return 0 ; 

} 

void CProgressDlg : : DownloadNewFile ( ) 

{ 

if (m_nCurDI >= m_nDIs) 

{ 

m_strDisplay . LoadString (IDS_PROGRESS_ALL_FILES_DONE) ; 

UpdateDi splay ( ) ; 

m_pbProgress . SetPos { 10 0 ) ; 

CWnd* pW = GetDlgltem(IDOK) / 

pW->EnableWindow (TRUE) ; 

pW- >SetFocus ( ) ; 

return; 

} 

CString strPath { *gResMan . GetResPath ( ) ) ; 

CString strFile ( strPath + m_aDI [m^nCurDI ] . m_s trFile) ; 
CTimefi: tHost = m_aDI [m_nCurDI ] - m_mtime ; 
CFileStatus f sLocal ; 

BOOL bFound = CFile :: GetStatus ( strFile , fsLocal); 

// Compare with local files 

if (!bFound || ( f sLocal . m_mtime < tHost)) 

{ 

CString strDFi le (URLSERVER + m_strHost + U2SERVERPATH + 
m_aDI [m_nCurDI] -m_strFile) ; 

if (m_pDownload) 

delete m__pDownload 
mj>Download = new CDownload ( strDFile ) ; // Server 

GetDlgltem (IDOK) - >EnableWindow ( FALSE ) ; 
GetDlgltem (IDCANCEL) - >EnableWindow ( FALSE) ; 

m_strDisplay. LoadString (IDS_PROGRESS_INIT_BIND) ; 
UpdateDisplay ( ) ; 

m__pDownload- >DoDownload (GetSaf eHwnd { ) , m_strDownloadingFile) ; 
//strFile) ; // Local 

GetDlgltem (IDCANCEL) - >EnableWindow (TRUE) ; 
m_aDI [m_nCurDI] . m_bNew = TRUE; 

} 

else 

{ 

m_aDI [m_nCurDI ] . m_bNew = FALSE; 

PostMessage (CMD_BIND__DOWNLOAD_DONE, 0, 0); // to proceed to 

the next file 
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} 

void CProgressDlg :: InitControl (const int nCtrllD, const CRect& rcCtrl) 
{ 

CWnd* pW = GetDlgltem(nCtrllD) ; 
ASSERT (pW) ; 

pW->SetWindowPos (NULL, rcCtrl . left, rcCtrl . top, 

rcCtrl , Width ( ) , rcCtrl . Height ( ) , 
SWP_NOZORDER | SWP_NOACTIVATE ) ; 

pW- >SetFont ( &:m_f tMessage , FALSE); // do not Redraw 

} 

void CProgressDlg :: OnPaletteChanged (CWnd* pFocusWnd) 

{ 

CDialog: : OnPalet teChanged (pFocusWnd) ; 



} 



if (pFocusWnd != this) 

OnQueryNewPalette ( ) 



BOOL CProgressDlg: : OnQueryNewPalette () 

{ 

if (m_pPal) 
{ 

CDC* pdc = GetDC 0 ; 

CPalette* pPalOld = pdc- >SelectPalette (m_pPal , FALSE); // 

foreground 

UINT u = pdc->RealizePalette ( ) ; 
if (pPalOld) 

pdc->SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
// if (u) 

// { // Some colors changed so we need to do a repaint. 

Invalidate 0 ; // Repaint the lot. 
return TRUE; // Say we did something. 

// } 
} 

return FALSE; // Say we did nothing. 

} 

void CProgressDlg :: OnSize (UINT nType, int cx, int cy) 

{ 

CDialog :: OnSize (nType , cx, cy) ; 
if (m_pDIBBack) 

{ 

SetWindowPos (NULL, 0, 0, m_jpDIBBack- >GetWidth ( ) , m_pDIBBack- 
>GetHeight () , 

SWP_NOMOVE I SWP_NOZORDER | SWP_NO ACTIVATE) ; 

} 

} 

BOOL CProgressDlg : lOnEraseBkgnd (CDC* pDC) 

{ 

CDialog: : OnEraseBkgnd (pDC) ; 
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if (m_bFirst) 

{ 

m_bFirst = FALSE ; 
DownloadFilesList () ; 

} 

// Make sure we have what we need to do a paint, 
if ( !m_jpDIBBack) 

{ 

TRACE { "CProgressDlg: No DIB!\n"); 
return FALSE; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (m_pPal) 
{ 

pPalOld - pDC->SelectPalette (m_pPal, FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette ( ) ; // we realize in response to 

WM_QUERYNEWPALETTE 

} 

m_pDIBBack->Draw (pDC, 0, 0); 

// Select old palette if we altered it. 

if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 

return TRUE; 

} 

HBRUSH CProgressDlg: :OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
{ 

if (nCtlColor == CTLCOLOR_STATIC) 
{ 

pDC->SetBkMode (TRANSPARENT) ; 
return (HBRUSH) m_NullBrush; 

} 

else 
{ 

HBRUSH hbr = CDialog : : OnCtlColor (pDC, pWnd , nCtlColor); 
return hbr; 

} 

} 

void CProgressDlg :: UpdateControlBackground (const CRect& rcBack) 
{ 

if ( !m_jpDIBBack) 

return; 
CRect rc(rcBack); 
InvalidateRect (&rc, TRUE); 



void CProgressDlg: : UpdateDisplay ( ) 
{ 

CWnd* pWnd = GetDlgl tern (IDC_DISPLAY) ; 
pWnd->ShowWindow (SW_HIDE) ; 
UpdateControlBackground (RECT_DISPLAY) ; 
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UpdateData (FALSE) ; // Write 

pWnd->ShowWindow{SW_SHOW) ; 

} 

void CProgressDlg : : UpdateProgress ( ) 
{ 

CWnd* pWnd - GetDlgl tern ( IDC_PROGRESS ) ; 
pWnd->ShowWindow(SW_HIDE) ; 
UpdateControlBackground (RECT_PROGRESS ) ; 
UpdateData (FALSE) ; // Write 

pWnd- >ShowWindow (SW_SHOW) ; 

} 

UINT CProgressDlg :: OnNcHitTest (CPoint point) 

{ 

UINT nHitTest = CDialog :: OnNcHitTest (point ) ; 
CPoint pt (point); 
ScreenToClient (&:pt ) ; 
if ( !RECT_EDIT. PtInRect (pt) && 

(nHitTest == HTCLIENT) && ( : : GetAsyncKeyS tate (MK_LBUTTON) < 0)) 
nHitTest = HTCAPTION; 
return nHitTest; 

} 
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// ProgressDlg.h : header file 
// 

#if 

I defined (AFX_PROGRESSDLG_H C8A4 75E9_CD64_11D1_80E2_0 8 0 009B9F3 3 9 INCLUDED_) 

#def ine AFX_PROGRESSDLG_H C8A4 75E9_CD64_11D1_8 0E2_08 00 09B9F3 3 9 INCLUDED^ 

#if _iyiSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
#include "UC2Ani/PSButton . h" 

///////////////////////////////////////////////////////////////////////////// 
// CProgressDlg dialog 
class CDownload; 

class CDownlnfo 

{ 

public: // CFileStatus 

CString m_strFile; 

int m_nType; // 0: No Extract, 1: Extract 

LONG m_lSize; // The logical size of the file in bytes 

CTime m_mtime; // The date and time the file was created. 

BOOL m_bNew; // Newly downloaded file 

}; 

class CDIB; 

class CProgressDlg : public CDialog 

{ 

/ / Construction 
public : 

CProgressDlg (CWnd* pParent = NULL); // standard constructor 
-CProgressDlg ( ) ; 

BOOL RITModif led ( ) const { return m_bRITModif led ; } 

// Dialog Data 

// { {AFX_DATA (CProgressDlg) 

enum { IDD = IDD_PROGRESS_DIALOG } ; 

CEdit m_ecMsg; 

CProgressCtrl m_pbProgress ; 

CString m_strDi splay ; 

CString m_s t rProgress ; 

//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CProgressDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV 

support 

// } }AFX_VIRTUAL 

/ / Implementation 
protected : 

void InitControl (const int nCtrllD, const CRect& rcCtrl) ; 

void UpdateControlBackground (const CRect& rcBack) ; 
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void 
void 
void 
void 



UpdateDi splay ( ) ; 
UpdateProgress () ; 
DownloadFilesList {) 
DownloadNewFile ( ) ; 



}; 



CDIB* 

CPalette* 

BOOL 

CPSButton 
CPSButton 
CBrush 
CFont 

CDownload* 
CDownInf o* 
int 
int 

CString 

CString 

BOOL 

BOOL 

BOOL 



m_pDIBBack; // Background frame image 

m__pPal; // main palette 

m_bPaletteCreated; 

m_btnOK; 

m_btnCancel ; 

m_NullBrush; 
m_f tMessage ; 



mj)Download ; 
m aDI ; 



m_nDIs ; 
m_nCurDI ; 
m_strHost ; 

m_strDownloadingFile ; 



m_bFirst ; 
m_bMOD ; 

m bRITModif ied; 



// Message of the Day 
// need to reload stage 



// ON_MESSAGE 

LRESULT OnBindStart (WPARAM, LPARAN) ; 
LRESULT OnBindFai led (WPARAM, LPARAM) ; 
LRESULT OnBindFileOpened (WPARAM, LPARAM) ; 
LRESULT OnBindFileClosed (WPARAM, LPARAM); 
LRESULT OnBindProgressMsg (WPARAM, LPARAM); 
LRESULT OnBindProgressBar (WPARAM, LPARAM); 
LRESULT OnBindDownloadDone (WPARAM, LPARAM); 

// Generated message map functions 

//{ {AFX_MSG (CProgressDlg) 

virtual BOOL Onini tDialog () ; 

virtual void OnOK ( ) ; 

virtual void OnCancelO; 

afx_msg BOOL OnQueryNewPalette ( ) ; 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 

afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 

afx_msg HBRUSH OnCtlColor (CDC* pDC, CWnd* pWnd, UINT nCtlColor) ; 
afx_msg void OnSize (UINT nType , int cx, int cy) ; 
afx_msg UINT OnNcHitTest (CPoint point); 

//} }afx_msg 

declare message map ( ) 



// { {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 



#endif // 

! defined (AFX PROGRESSDLG H 



C8A475E9 CD64 llDl 80E2 080009B9F339 INCLUDED ) 
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// PSFrame.cpp : implementation file 
// 

#include " stdaf x . h" 
#include " resource. h" 
#include "PSFrame.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPSFrame 

IMPLEMENT_DYNCREATE (CPSFrame, CMini Frame Wnd) 
CPSFrame : : CPSFrame ( ) 

{ 

m_pModelessPropSheet = NULL; 

} 

CPSFrame : : -CPSFrame ( ) 

{ 
} 



BEGIN_MESSAGE_MAP (CPSFrame, CMini FrameWnd) 

//{ {AFX_MSG_MAP (CPSFrame) 

ON_WM_CREATE ( ) 

ON_WM_CLOSE ( ) 

ON_WM_SETFOCUS ( ) 

ON_WM_ACTIVATE ( ) 

// } } AFX_MSG_MAP 
END MESSAGE MAP ( ) 



1 1 11 11 1 1 11 1 / 1 11 1 1 1 1 1 1 1 / 1 11 1 1 1 1 / 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 J 1 1 / 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II CPSFrame message handlers 

int CPSFrame: : OnCreate (LPCREATESTRUCT IpCreateStruct ) 
{ 

if (CMiniFrameWnd :: OnCreate (IpCreateStruct ) == -1) 
return -1; 

m_j)ModelessPropSheet = new CPSMember Info ( this ) ; 

if ( !m_pModelessPropSheet->Create (this, WS_CHILD | WS_VISIBLE, 0)) 
{ 

delete m_pModelessPropSheet ; 
m_pModelessPropSheet = NULL; 
return -1; 

} 

// Resize the mini frame so that it fits around the child property 
// sheet. 

CRect rectClient, rectwindow; 

m__pModelessPropSheet- >GetWindowRect (rectClient) ; 
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rectWindow = rectClient; 

// CMiniFrameWnd : : CalcWindowRect adds the extra width and height 
// needed from the mini frame. 
CalcWindowRect { rectWindow) ; 

SetWindowPos (NULL, rectWindow . left , rectWindow . top , 

rectWindow . Width () , rectWindow . Height () , 

SWP_NOZORDER | SWP_NOACTIVATE ) ; 
m_pModelessPropSheet - >SetWindowPos (NULL, 0, 0, 

rectClient . Width ( ) , rectClient . Height ( ) , 

SWP_NOZORDER | SWP_NOACTIVATE ) ; 

return 0 ; 

} 

void CPSFrame : : OnClose ( ) 

{ 

// Instead of closing the modeless property sheet, just hide it. 
ShowWindow (SW_HIDE) ; 

} 

void CPSFrame : lOnSetFocus {CWnd* pOldWnd) 

{ 

CMiniFrameWnd: :OnSetFocus (pOldWnd) ; 

} 

void CPSFrame : :OnActivate (UINT nState, CWnd* pWndOther, BOOL bMinimized) 

{ 

CMiniFrameWnd : :OnActivate (nState , pWndOther, bMinimized); 
// Forward any WM_ACTIVATEs to the property sheet... 

// Like the dialog manager itself, it needs them to save/restore the 

focus - 

ASSERT_VALID (m_pModeles sPropSheet ) ; 

// Use GetCurrentMessage to get unmodified message data, 
const MSG* pMsg = GetCurrentMessage () ; 
ASSERT (pMsg->message == WM__ACTIVATE) ; 

m_pModelessPropSheet - >SendMessage (pMsg- >message , pMsg- >wParam, pMsg- 
>lParam) ; 

} 

void CPSFrame :: PostNcDestroy ( ) 

{ 

CMiniFrameWnd: : PostNcDestroy () ; 
// delete this; 

} 
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// PSFrame.h : header file 
// 

// This file contains the mini -frame that controls modeless 

// property sheet CPSMemberInf o . 

#ifndef PSFRAME_H 

#define PSFRAME_H 

#include " PSMemberInf o . h " 

///////////////////////////////////////////////////////////////////////////// 
// CPSFrame frame 

class CPSFrame : public CMiniFrameWnd 
{ 

DECLARE_DYNCREATE (CPSFrame) 
//Construction 
public : 

CPSFrame ( ) ; 

// Attributes 
public : 

CPSMemberInf o* m_pModelessPropSheet ; 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CPSFrame) 
protected : 

virtual void PostNcDestroy () ; 
/ / } }AFX_VIRTUAIi 

// Implementation 
public : 

virtual -CPSFrame () ; 

/ / Generated message map functions 
// { { AFX_MSG (CPSFrame) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) / 
afx_msg void OnClose () ; 

afx_msg void OnSetFocus (CWnd* pOldWnd) ; 

afx_msg void OnActivate (UINT nState, CWnd* pWndOther, BOOL bMinimized) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_iyiAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

#endif // PSFRAME_H 
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// PS JoinChannel . cpp : implementation file 
// 



#include " stdaf x . h" 
#include "resource. h" 
#include "PSJoinChannel , 
#include "ResMan.h" 
#include "UC2Ani/DIB . h" 
#include "UC2Ani/DIBPal . 
#include "MainFrm.h" 
#include "Memberinf o . h" 
#include "UC2Doc .h" 



#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] - FILE ; 

#endif 



extern CResMan gResMan; 
LPCTSTR HTTP - __T { " ht tp : / / " ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CPS JoinChannel 

IMPLEMENT_DYNAMIC ( CPS JoinChannel , CPropertySheet ) 

CPSJoinChannel : iCPSJoinChannel {CUC2DOC* pDoc , const int nPageSelect, LPCTSTR 
pszCaption, UINT iSelectPage) 

: CPropertySheet (pszCaption, NULL, iSelectPage) /* 
IDS_PROPSHT_CAPTION */ 
{ 

TRACED ( "CPS JoinChannel : : CPS JoinChannel () \n" ) ; 



m_j3Doc = pDoc ; 

m_nPageSelect = nPageSelect; 

m_brNull . CreateStockOb j ect (NULL_BRUSH) ; 

m_font . CreateFont ( -12 , 0, 0, 0, FW_BOLD, // NORMAL, 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
DEFAULT_CHARSET, OUT_CHARACTER_PRECIS , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY , 

DEFAULT_PITCH | | FF_DONTCARE, 

#ifdef _KOREAN 

"m. ^A^" ) ; 

#else 

"Times New Roman") ; 

#endif 



f"__pPal = NULL; // Set it NULL before loading DIB successfully 

m_jpDIBBack = NULL; 

CString strPath { *gResMan , GetResPath ( ) ) ; 

/* 

CString strFile ( strPath + "U2Login | LoginBk . bmp " ) ; 

m_jpDIBBack = new CDIB; 

if ( !m_pDIBBack- >Load ( StrFile) ) 
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{ 

delete m_pDIBBack; 
m__pDIBBack = NULL; 
return; 

} 

m_jpDIBBack->Shif tRGBPercent (0, 256, 100) ; 

*/ 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd { ) ; 
// if (pMF->Is256Palette () ) 

// { // Use mainframe's palette to avoid color flickering 

m_pPal = pMF- >GetPalette ( ) ; 
// m_pDIBBack->MapColorsToPalette {m_pPal) ; 

m^bPaletteCreated = FALSE; 

/* } 

else // Use original palette in the file for TRUE color system 
{ // Create the palette from the DIB . 

CDIBPal* pDIBPal; 

pDIBPal = new CDIBPal; 

ASSERT (pDIBPal) ; 

if ( !pDIBPal->Create (m_pDIBBack) ) 
{ 

AfxMessageBox ( "Failed to create palette from DIB file") 
delete pDIBPal; 

} 

m__pPal = pDIBPal; // type casting to parent class 
m_bPaletteCreated = TRUE; 

} 

*/ 

// m__pDlBBack->GetRect (m_rcPSheet) ; 
// m_rcPSheet . Inf lateRect ( 14 , 49); 
/* 

// Create the palette f rom the DIB . 
m__pPal = new CDIBPal; 
ASSERT (m_pPal) ; 

if ( lm_pPal ->Create (m_pDIBBack) ) 

{ 

AfxMessageBox ( "Failed to create palette from DIB file"); 
delete m_pPal ; 
m_pPal = NULL; 

} 

// Add all of the property pages here. Note that 
// the order that they appear in here will be 
// the order they appear in on screen. By default, 
// the first page of the set is the active one. 
// One way to make a different property page the 
// active one is to call SetActivePage ( ) . 

TRACEO ( "\tAddPage (&:m_ActorListPage) ;\n") ; 

if (nPageSelect & PS_ACTOR__PAGE ) 
AddPage ( &m_ActorListPage) ; 

#ifdef _MALL 

if (nPageSelect & PS_JOIN_PAGE) 

AddPage ( &m_ShoppingCartPage) ; 
if (nPageSelect & PS_CREATE_PAGE ) 
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AddPage ( &:m_Payment Inf oPage) ; 

#else 

if (nPageSelect & PS_JOIN_PAGE) 

AddPage ( &:m_ Jo inChannel Page) ; 

if (nPageSelect & PS_CREATE_PAGE) 

AddPage {&:m_CreateChannel Page) ; 

#endif 
} 

CPS JoinChannel : : -CPS JoinChannel () 
{ 

TRACED ( "CPS JoinChannel : : -CPS JoinChannel () \n" ) ; 
if (m__pDIBBack) 

delete m_j5DIBBack ; 
if (m_pPal 8c6c m_bPaletteCreated) 

delete m__pPal; 



BEGIN_MESSAGE_MAP (CPS JoinChannel, CPropertyShee t ) 

//{ {AFX_MSG_MAP (CPS JoinChannel) 

ON_WM_PALETTECHANGED ( ) 

ON_WM_QUERYNEWPALETTE ( ) 

// } }AFX_MSG_MAP 
END MESSAGE MAP () 



11 / 1 1 1 1 1 1 / 1 1 1/ n fi f I n I / 1 1 1 1 1 n 1 1 1 / 1 11 1 11 // 1 1 III 1 1 11 1 // 1 1 1 / 1 / 1 1 1 1 / 1 1 1 1 1 11 1 1 1 1 

I / CPS JoinChannel message handlers 

// To be shared in child property pages 

BOOL CPSJoinChannel : : OnPageEraseBkgnd (CDC* pDC) 

{ 

// Make sure we have what we need to do a paint . 

if ( !GetDIBBack() ) 

{ 

// TRACE ( "CPSJoinChannel : No DIB!\n"); 

return FALSE; 

} 

// If we have a palette, select and realize it. 

CPalette* pPalOld = MULL; 

CPalette* pPal = GetPalette ( ) ; 

if (pPal) 

{ 

pPalOld = pDC->SelectPalette (pPal, FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette 0 ; // we realize in response to 

WM_QUERYNEWPALETTE 

} 

if (m_pDIBBack) 

{ 

m_pDIBBack- >Draw (pDC, 0, 0, m_pDIBBack- >GetWidth ( ) , m_pDIBBack- 
>GetHeight () , 

12 , 12) ; 

} 

// Select old palette if we altered it. 
if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 
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return TRUE ; 

} 

BOOL CPSJoinChannel : : OnQueryNewPalette ( ) 
{ 

TRACE ( "CPSJoinChannel : : OnQueryNewPalette\n" ) ; 
// if (m_jpDoumi m_pDoumi - >GetDIBPal ( ) ) 

if (m_pPal) 
{ 

CDC* pdc = GetDCO ; 

CPalette* pPalOld = pdc - >SelectPalette ( (CPalette* ) m_pPai , FALSE) 
// foreground 

UINT u = pdc- >RealizePalette ( ) ; 
if (pPalOld) 

pdc->SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
if (u) 

{ // Some colors changed so we need to do a repaint . 

Invalidate 0 ; // Repaint the lot. 

return TRUE; // Say we did something. 

} 

} 

return FALSE; // Say we did nothing, 

} 

void CPSJoinChannel : :OnPaletteChanged (CWnd* pFocusWnd) 
{ 

TRACE ( "CPSJoinChannel : : OnPaletteChanged\n " ) ; 
if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

/* 

void CPSJoinChannel :: OnSize (UINT nType, int cx, int cy) 
{ 

TRACE ( "CPSJoinChannel : rOnSize (%d, %d, %d) \n" , nType, cx, cy) ; 
CPropertySheet :: OnSize (nType , cx, cy) ; 

if (m_pDIBBack) 

{ 

SetWindowPos (NULL, 0, 0, m_rcPSheet . Width () , m_rcPSheet . Height ( ) 
SWP_NOMOVE I SWP_NOZORDER | SWP_NOACTIVATE ) ; 

} 

} 

*/ 

BOOL CPSJoinChannel: : OnlnitDialog () 
{ 

TRACE ( "CPSJoinChannel :: OnlnitDialog ( ) Ox%x\n" , this); 

/* 

Setlcon (m_hIcon , TRUE) ; 
Setlcon (m_hIcon, FALSE); 
CRect rc ; 

CWnd* pW - (CWnd*)GetDlgItem(IDOK) ; 

if (pW) 

{ 
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pW- >GetClientRect ( Sere ) ; 

pW->SetWindowPos (NULL, rcPSheet . lef t , rcCtrl.top, 

rcCtrl. Width () , rcCtrl . Height ( ) , 
SWP_NOZORDER | SWP_NOACTIVATE) ; 

#ifdef _ENGLISH 

pW->SetWindowText ( "OK! ") ; 

#endif 

} 

pW = (CWnd*)GetDlgItem(IDCANCEL) ; 
if (pW) 

pW- >SetWindowText ( "Cancel " ) ; 
pW = (CWnd*)GetDlgItem(IDHELP) ; 
if (pW) 

pW- >SetWindowText ( "Help" ) ; 
pW = (CWnd*)GetDlgItem(0x3021) ; // Apply 

if (pW) 

pW- >SetWindowText ( "Apply") ; 

*/ 

#ifdef __MALL 

{ (CWnd*) GetDlgltemdDOK) ) - >SetWindowText { "OK" ) ; 

( (CWnd*)GetDlgItem{IDCANCEL) ) - >SetWindowText ("Cancel") ; 

#endif 

CWnd* pW = (CWnd*) GetDlgltem(IDHELP) ; 
if (pW) 

pW >ShowWindow (SW_HIDE) ; 
pW = (CWnd*)GetDlgItem(0x3021) ; // Apply 

if (pW) 

pW- >ShowWindow {SW_HIDE) ; 
// pW->EnableWindow (FALSE) ; 

return CPropertySheet : : OnlnitDialog () ; 

} 

void CPSJoinChannel :: InitControl (const int nCtrllD, const CRect&i rcCtrl) 

{ 

CWnd* pW = GetDlgltem (nCtrllD) ; 
ASSERT (pW) ; 

pW->SetWindowPos (NULL, rcCtrl. left, rcCtrl.top, 

rcCtrl . Width ( ) , rcCtrl . Height ( ) , 
SWP_N020RDER | SWP_NO ACTIVATE) ; 

pW- >SetFont { &:m_f ont , FALSE); // do not Redraw 

} 

BOOL CPSJoinChannel: :GetChannelInfo(EC_CHANNELINFO& eclnfo) 
{ 

: :ZeroMemory (&ecInfo, sizeof (EC_CHANNELINFO) ) ; 

CString* pS; 
int len; 

// N.B- You should not pass a pointer to objects in this stack! 
if { IsCreateChannel ( ) ) { 

pS = m_CreateChannelPage . GetStageName 0 ; 
len = pS- >GetLength 0 ; 
if (!len) 

return FALSE; 
eclnfo . szName = pS - >GetBuf f er (len+1 ) ; // 

[epO/OOOOcntr] {O, 0, 0}test 

eclnfo . dwType = m_CreateChannelPage . IsPublic ( ) 
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? CS_CHANNEL_PUBLIC /* | 

CS__CHANNEL_ALLOWANON */ 

: CS_CHANNEL_PROTECTED; /* | 

CS_CHANNEL_ALLOWANON */ 
} 

else {// Join the Channel 

// m_strStageID will be the selected channel 
pS = &m_JoinChannelPage .m_strStageID; 
m_CreateChannelPage . m_strTopic = *pS; 
len = pS->GetLength() ; 

if (lien) { // No room is selected: Consider as a MUD mode // s 

0706 

// m_JoinChannelPage -GetLastStagelD ( ) ; // syc 0715 
// gResMan . GetStageTitle (m_CreateChannelPage .m_strTopic) ; 
// = UC2MUD_T0PIC; // syc 0715 

return FALSE; // syc 0 715 

} 

eclnf o - szName = pS - >GetBuf f er ( len+1 ) ; 

if (m_JoinChannelPage . IsMUD ( ) ) { 

gResMan .GetStageTitle (m_CreateChannelPage .m_strTopic) ; 
// = UC2MUD_T0PIC; 
} 

if ( m_JoinChannel Page . m_strPas sword . I sEmpty {) ) { 

eclnf o-dwType = CS_CHAJSrNEL_PUBLIC; /* | 

CS_CHANNEL_ALLOWANON */ 

m_CreateChannelPage . m_strPas sword . Empty ( ) ; 

} 

else { 

eclnf o.dwType = CS_CHANNEL_PROTECTED ; /* | 

CS_CHANNEL_ALLOWANON */ 

m_CreateChannelPage . m_strPassword = 
m_JoinChannelPage . m^strPassword; 

} 

} 

pS = &:m_CreateChannelPage . m_strTopic ; 

// If the topic and Stage ID is same then Find out the topic 
//from Stage ID 

if (m_CreateChannelPage , m_strTopic == m_JoinChannelPage . m_s t rStagelD) 

{ 

CString str(*pS); 

int Pos = str . ReverseFind ( ' ) '); 

m_CreateChannelPage .m_strTopic = str . Mid (Pos+1 , str . GetLength ( ) - 

1) ; 



} 

pS = Scm_CreateChannelPage . m_strTopic ; 
len = pS- >GetLength ( ) ; 

eclnf o . szTopic = pS- >GetBuf f er ( len+1) ; 

if (m_CreateChannelPage . m_strPassword . IsEmpty ( ) ) { 
eclnf o . szPass = _T { " " ) ; 

} 

else { 
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pS = &:m_CreateChannelPage - m_strPassword ; 
len = pS->GetLength ( ) ; 

eclnf o . szPass = pS- >Get:Buf f er ( len+1 ) ; 

} 

eclnf o.cUsersMax = MAX_MEMBERS_IN_CHANNEL ; // limit # of members 

in a channel 

eclnf o.dwFlags = CS__CHANNEL_FLAG_MICONLY ; 

// CPropertySheet : rOnClose ( ) ; 

return TRUE; 




} 



void 

{ 



// 
// 
// 
// 
// 
// 

// 
} 



CPS JoinChannel : : SetMemberInf o (CMemberlnf o& mi) 



m_ActorListPage .m 
m_ActorListPage .m 
m_ActorListPage .m_ 
m_ActorListPage . m_ 
m_ActorListPage .m 
m_ActorListPage .m 
m_ActorListPage .m 



nCharlD 

nAge 

nSex 

strProf ile 
sName 
strChatID 
sHomePage 



= mi -GetCharlD ( ) 

= mi . Get Age ( ) ; 

= mi . GetSex { ) ; 
*mi . GetProf ile { ) ; 
*mi - GetRealName { ) ; 

= *mi .GetNick ( ) ; 
*mi . GetHyper 1 ink ( ) ; 



if (m_ActorListPage . m_sHomePage . Is Empty { ) ) 

m_ActorListPage . m_sHomePage = HTTP; 
int nVer = mi . GetVersion ( ) ; 

m_ActorListPage . m_sVersion . Format ( " V%d . %02d 



nVer / 100, nVer % 100) 



void CPS JoinChannel :: GetMemberlnfo {CMemberlnfo&i mi) const 

{ 

mi . SetCharlD ( m_ActorListPage . m_nCharID) ; 

mi.SetAge( m_ActorListPage . m_nAge ) ; 

mi.SetSex( m_ActorListPage . m_nSex) ; 

mi . SetBubbleKind (m_ActorIjistPage . m_nSex) ; // Later I'll change this... 
// mi . SetProf ile ( m_ActorListPage . m__strProf ile) ; 
// mi . SetRealName ( m_ActorListPage . m_strName) ; 
// mi.SetNick( m_ActorListPage . m_s trChat ID) ; 

// if ( ! m_ActorListPage . m_sHomePage . IsEmpty ( ) && 

// (Istrcmpi (m_ActorListPage ,m_strHomePage , HTTP) != 0)) 

// mi , SetHyperlink (m_ActorListPage . m_strHomePage) ; 

} 

BOOL CPSJoinChannel : : Act ivateCreateChannelPage ( ) 
{ 

if ( ! (m_nPageSelect & PS_CREATE_PAGE) ) 

AddPage ( &:m_CreateChannelPage) ; 
return SetActivePage (&:m_CreateChannelPage) ; 

} 

BOOL CPSJoinChannel: : Act ivateJoinChannelPage ( ) 
{ 

if ( ! (m_nPageSelect & PS_JOIN_PAGE) ) 

AddPage ( &:m_JoinChannelPage) ; 
return SetActivePage ( &m_JoinChannelPage ) ; 

} 
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// PSJoinChannel.h : header file 
// 

// This class defines custom modal property sheet 
// CPSJoinChannel . 

#ifndef PS JOINCHANNEL_H 

#define PS JOINCHA]SrWEL_H 

#ifdef _MALL 

#include " PPShoppingCart . h" 

#include " PPPaymentInf o . h" 
#endif 

#include " PPCreateChannel . h " 

#include " PPChannel . h " 

#include " PPActor . h" 

#include "PPMylnfo.h" 

#include "UC2CS.h" // EC_CHANNELINFO 

#include "UC2Doc.h" // GetSocketO 

///////////////////////////////////////////////////////////////////////////// 
// CPSJoinChannel 

class CDIB; 

class CMemberlnfo; 

class CUC2Socket; 

enum PAGE_SELECT 
{ 

PS_ACTOR_PAGE = 0x0001, 

PS_JOIN_PAGE = 0x0 0 02, 

PS_CREATE_PAGE - 0x0004, 

PS_ALL_PAGES = PS_ACTOR_PAGE ] PS_JOIN_PAGE | PS_CREATE_PAGE 

}; 

class CPSJoinChannel : public CPropertySheet 

{ 

DECLiARE_DYNAMIC (CPSJoinChannel) 

/ / Construction 
public : 

CPSJoinChannel {CUC2DOC* pDoc , const int nPageSelect, LPCTSTR 
pszCaption, UINT iSelectPage=0 ) ; 

// Attributes 
public : 

CDIB* GetDIBBackO { return m_pDIBBack; } 

CPalette* GetPaletteO { return m_pPal ; } 

CFont* GetFontO { return &m_font; } 

CBrush* GetNullBrush ( ) { return &m_brNull; } 

BOOL IsListOnlyO const { return (m_nPageSelect = = 

PS_JOIN_PAGE) ; } 

BOOL IsCreateChannel ( ) const 

{ return ( (m_nPageSelect & PS_CREATE_PAGE) 

I m_CreateChannelPage . m_strTopic . IsEmpty ( ) ) ; } 
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CUC2DOC* 
CUC2Socket* 



GetDocument () 
GetSocket ( ) 



{ return m_pDoc / } 

{ return m_pDoc- >GetSocket { ) ; } 



// 



CPPActor 
CPPMylnfo 



m_ActorListPage ; 
m_ActorListPage ; 



#ifdef _MALL 

CPPShoppingCart m_ShoppingCartPage ; 

CPPPaymentInf o tn_Payment Inf oPage ; 

#endif 

CPPChannel Tn_JoinChannelPage ; 

CPPCreateChannel m_CreateChannelPage ; 

EC_CHANNELINFO m_eclnf O; 

// Operations 
public : 

BOOL OnPageEraseBkgnd (CDC* pDC) ; 

void InitControl (const int nCtrllD, const CRect& rcCtrl) ; 

BOOL ActivateCreateChannelPage ( ) ; 

BOOL ActivateJoinChannelPage () ; 

BOOL GetChannelInf o (EC_CHAN]SrELINFO& eclnfo) ; 

void SetMemberInf o (CMemberlnf o& mi ) ; 

void GetMemberlnfo (CMemberlnf oSt mi) const; 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {aFX_VIRTUAL (CPSJoinChannel) 
// } }AFX_VIRTUAL 

// Implementation 
public : 

virtual -CPSJoinChannel () ; 

/ / Generated message map functions 
protected : 

CDIB* m_pDIBBack; // Background frame image 

CPalette* m_pPal; // main palette 

BOOL m_bPaletteCreated; 
// CRect m_rcPSheet; 

CBrush m_brNull; 
CFont m_font; 

int m_nPageSelect ; // enum PAGE_SELECT 

CUC2DOC* m__pDoc; // To get pointers to Socket 

//{ {AFX_MSG (CPSJoinChannel) 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
afx_msg BOOL OnQueryNewPalette ( ) ; 
virtual BOOL Onini tDialog ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
#endif // PS JOINCHANNEL H 



A-350 



PSMemberlnfo.cpp 



// PSMemberlnfo.cpp : implementation file 
// 

#include " stdaf x . h" 
#include "resource. h" 
#include "PSMemberInf o . h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED__CODE THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPSMemberInf o 

IMPLEMENT_DYNAMIC { CPSMemberInf o , CPropertySheet ) 

CPSMemberInf o : : CPSMemberInf o (CWnd* pWndParent) 

: CPropertySheet ( IDS_PROPSHT_CAPTION, pWndParent) 

{ 

// Add all of the property pages here. Note that 
// the order that they appear in here will be 
// the order they appear in on screen. By default, 
// the first page of the set is the active one. 
// One way to make a different property page the 
// active one is to call SetActivePage ( ) . 

AddPage (&:m_Pagel) ; 
AddPage (&:m_Page2) ; 

} 

CPSMemberInf o : : -CPSMemberInf o ( ) 

{ 

} 



BEGIN_MESSAGE_MAP ( CPSMemberInf o , CPropertySheet ) 
//{ {AFX_MSG_MAP ( CPSMemberInf o) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

//} }afx_msg_map 
end message map () 



///////////////////////////////////////////////////////////////////////////// 
// CPSMemberInf o message handlers 

void CPSMemberInf o : : PostNcDestroy ( ) 

{ 

CPropertySheet: : PostNcDestroy ( ) ; 
delete this; 

} 
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// PSMemberlnfo.h : header file 
// 

// CPSMemberInf o is a modeless property sheet that is 
// created once and not destroyed until the application 
// closes. It is initialized and controlled from 
// CPSFrame. 

#ifndef PSMEMBERINFO_H 

#define PSMEMBERINFO_H 

#include " PPMember Inf ol . h" 

///////////////////////////////////////////////////////////////////////////// 
// CPSMemberInf o 

class CPSMemberInf o : public CPropertySheet 
{ 

DECLARE__DYNAMIC (CPSMemberInf o) 

// Construction 
public : 

CPSMemberInf o (CWnd* pWndParent = NULL) ; 

// Attributes 
public : 

CPPMemberInf ol 
CPPMemberInf o2 

/ / Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CPSMemberInf o) 
/ / } } AFX_VI RTUAL 

// Implementation 
public : 

virtual -CPSMemberInf o () ; 
virtual void PostNcDestroy ( ) ; 

// Generated message map functions 
protected : 

// { {AFX_MSG (CPSMemberInf o) 

// NOTE - the ClassWizard will add and remove member functions 

here . 

//} }AFX__MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

#endif // PSMEMBERINFO_H 




m_Page 1 ; 
m_Page2 ; 
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// PSOtherlnfo.cpp : implementation file 
// 

# include "stdafx.h" 
#include " resource -h" 
#include " PSOtherInf o . h" 
#include "ResMan.h" 
#include "UC2Ani/DIB . h" 
#include "UC2Ani/DIBPal . h" 
#include "MainFrm.h" 
#include "Memberinf o. h" 
#include "UC2Doc . h" 
#include "Parser. h" 



#ifdef _DEBUG 
#undef TH1S_FILE 

static char BASED_CODE THIS_FILE[] = FILE 

#endif 



extern CResMan gResMan; 
extern CParser gParser; 

1 1 1 1 1 1 1 1 11 1 1 / 1 1 1 1 1 1 1 1 / 1 1 11 1 1 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 / 1 1 1 1 1 1 / 1 1 11 1 f I ! 1 1 1 1 1 1 1 1 1 1 1 1 1 / 

I / CPSOtherlnfo 

IMPLEMENT_DYNAMIC (CPSOtherlnfo, CPropertySheet ) 

CPSOtherlnfo: :CPSOtherInfo(CUC2Doc* pDoc , const int nPageSelect, LPCTSTR 
pszCaption, UINT iSelectPage) 

: CPropertySheet (pszCapt ion, NULL, iSelectPage) /* 
IDS_PROPSHT_CAPTION */ 
{ 

TRACED ( "CPSOtherlnfo: : CPSOtherlnfo () \n" ) ; 



m_pDoc = pDoc ; 

m_nPageSelect - nPageSelect; 

m_brNull .CreateStockObject (NULL_BRUSH) ; 

m_f ont . CreateFont ( -12 , 0, 0, 0, FW__BOLD, // NORMAL, 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
DEFAULT_CHARSET , OUT_CHARACTER_PRECIS , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY, 

DEFAULT_PITCH | | FF_DONTCARE, 

#ifdef _KOREAN 
#else 

"Times New Roman") ; 

#endif 



m_pPal = NULL; // Set it NULL before loading DIB successfully 
m_pDIBBack = NULL; 

CString s trPath ( *gResMan . GetResPath ( ) ) ; 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 
// Add all of the property pages here. Note that 
// the order that they appear in here will be 
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// the order they appear in on screen. By default, 
// the first page of the set is the active one. 
/ / One way to make a different property page the 
// active one is to call SetActivePage () . 

TRACEO ( "\tAddPage (&m_ActorListPage) ;\n") / 

if {nPageSelect & PS__OTHERINFO_PAGE) 
AddPage ( &m_OtherInf oPage) ; 

// if {nPageSelect & PS__OTHERADDR_PAGE ) 

// AddPage ( £cm_User Addr Page) ; 

// if (nPageSelect & PS_OTHERPROF_PAGE) 

// AddPage ( &:m_UserProfil ePage) ; 

// if (nPageSelect & PS_OTHERPIC_PAGE) 

// AddPage ( 6cm_UserPicPage) ; 

} 

CPSOtherlnfo: : -CPSOtherInf o () 
{ 

TRACEO ( "CPSOtherlnfo: : -CPSOtherlnfo () \n" ) ; 
if (m_pDIBBack) 

delete m_pDIBBack; 
if (m_jpPal ScSc m_bPaletteCreated) 

delete mjPal ; 

} 

BEGIN_MESSAGE_MAP (CPSOtherlnfo, CPropertySheet ) 
//{ {AFX_MSG_MAP (CPSOtherlnfo) 
ON_WM_PALETTECHANGED ( ) 

on_wm_quer™ewpal.ette ( ) 
/ / } } afx_msg_map 
end message map ( ) 



I // 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 / 1 1 1 1 1/ 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1/ 1 1 // f /// 1 1 1 1 11 1 1 1 n 1 1 1 1 11 1 1 1 1 1 1 1 1 1 

II CPSOtherlnfo message handlers 

// To be shared in child property pages 

BOOL CPSOtherlnfo : lOnPageEraseBkgnd (CDC* pDC) 

{ 

// Make sure we have what we need to do a paint . 

if ( IGetDIBBack () ) 

{ 

// TRACE ( "CPSOtherlnfo: No DIB!\n"); 

return FALSE; 

} 

// If we have a palette, select and realize it. 

CPalette* pPalOld = NULL; 

CPalette* pPal GetPalette ( ) ; 

if (pPal) 

{ 

pPalOld = pDC->SelectPalette (pPal , FALSE); // 
bForceBackground = FALSE 
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// dc . RealizePalette ( ) ; // we realize in response to 

WM_QUERYNEWPALETTE 
} 

if (m_pDIBBack) 
{ 

m_pDIBBack- >Draw (pDC, 0, 0, m__pDIBBack- >GetWidth ( ) , m_pDIBBack- 
>GetHeight () , 

12, 12); 

} 

// Select old palette if we altered it. 
if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 

return TRUE; 

} 

BOOL CPSOtherlnfo: : OnQueryNewPalette ( ) 

{ 

TRACE ( "CPSOtherlnfo : : OnQueryNewPalet te\n " ) ; 
// if (m_pDoumi m_pDoumi - >GetDIBPal ( ) ) 

if (m__pPal) 
{ 

CDC* pdc = GetDC 0 ; 

CPalette* pPalOld - pdc - >SelectPalet te { (CPalette* ) m_pPal , FALSE) 
/ / foreground 

UINT u = pdc- >RealizePalette ( ) ; 
if (pPalOld) 

pdc- >SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
if (u) 

{ // Some colors changed so we need to do a repaint. 

Invalidate () ; // Repaint the lot. 

return TRUE; // Say we did something. 

} 

} 

return FALSE; // Say we did nothing. 

} 

void CPSOtherlnfo : :OnPaletteChanged (CWnd* pFocusWnd) 
{ 

TRACE ( "CPSOtherlnfo : : OnPaletteChanged\n" ) ; 
if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

BOOL CPSOtherlnfo: : OnlnitDialog ( ) 
{ 

TRACE ("CPSOtherlnfo: :OnInitDialog() => Ox%x\n", this); 

CWnd* pW = (CWnd*)GetDlgItem(IDHELP) ; 
if (pW) 

pW->ShowWindow(SW_HIDE) ; 
pW = (CWnd*) GetDlgItem(0x3021) ; // Apply 

if (pW) 

pW->ShowWindow(SW_HIDE) ; 
// pW->EnableWindow (FALSE) ; 
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return CPropertySheet : : Onini tDialog ( ) 

} 



void CPSOtherlnfo :: InitControl (const int nCtrllD, const CRect& rcCtrl) 
{ 

CWnd* pW = GetDlgltem (nCtrllD) ; 
ASSERT (pW) ; 

pW->SetWindowPos (NULL, rcCtrl.left, rcCtrl.top, 

rcCtrl . Width ( ) , rcCtrl . Height ( ) , 
SWP_NOZORDER | SWP__NOACTIVATE ) ; 

pW- >SetFont (&m_f ont , FALSE); // do not Redraw 

} 



/*void CPSOtherlnfo :: SetMemberProf ile (CMemberInfo& mi) 

{ 



m_UserProf ilePage .m^sProf ile 



= *mi . GetProf ile ( ) ; 



void CPSOtherlnfo :: SetMemberAddress (CMemberInfo& mi) 



{ 



m_UserAddrPage . m_sAddrStreet 
m_UserAddrPage .m_sAddrCity 
m_UserAddrPage . m_sAddrZip 
m_UserAddrPage . m_sAddrState 
m__UserAddrPage .m_nCountry 



*mi - GetAddrStreet ( ) ; 
*mi . GetAddrCity ( ) ; 

= *mi . GetAddrZip 0 ; 
*mi . GetAddrState ( ) ; 

= mi . GetCountry () ; 



m_UserAddrPage .m_sTelHome 
m__UserAddrPage .m_sTelWork 
m_UserAddrPage , m_sTelMobile 
m_UserAddrPage .m_sTelFax 
m_UserAddrPage .m_sTelOther 



= *mi . GetTelHome ( ) ; 

= *mi . GetTelWork ( ) ; 
= *mi .GetTelMobile () ; 

= *mi -GetTelFax ( ) ; 
= *mi . GetTelOther ( ) ; 



void CPSOtherlnfo :: SetMemberlnfo (CString* str) 
{ 

TRACE ( "\nCPSOtherInfo: :SetMemberInfo() on string: %s", str) / 



int nAge ; 
int nSex; 
int nEthnic; 
int nWork ; 
int nLanguage ; 



gParser . GetValueRightToken (m_OtherInf oPage . m_sFName , ARG_TOKEN) ; 

gParser . GetValueRightToken (m_OtherInf oPage . m__sLName , ARG_TOKEN) ; 

gParser , GetValueRightToken (nAge , ARG_TOKEN) ; 

gParser. GetValueRightToken (nSex, ARG_TOKEN) ; 

gParser . GetValueRightToken (nEthnic , ARG_TOKEN) ; 

gParser . GetValueRightToken (nLanguage , ARG_TOKEN) ; 

gParser . GetValueRightToken (nWork, ARG_TOKEN) ; 

m_OtherInfoPage .m_sAge . Format (" %d" , nAge) ; 
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m_0therlnf oPage . m_sSex . Format ( " %s " , SexTable [nSex] ) ; 
m_OtherInfoPage .m__sEthnic . Format ( "%s" , EthnicTable [nEthnic] ) ; 
m_OtherInfoPage .m_sLanguage . Format ("%s" , LanguageTable [nLanguage] ) 
m_OtherInf oPage . m_sWork . Format ( %s " , WorkTable [nWork] ) ; 

gParser -GetValueRightToken (m_OtherInf oPage . m_sEmail , ARG_TOKEN) ; 

} 

/* 

void CPSOtherInf o : : GetMemberProf ile (CMemberlnf 0&: mi) const 

{ 

mi . SetProf ile ( m_UserProf ilePage . m_sProf i le) ; 

} 

void CPSOtherInf o :: GetMemberAddress (CMemberlnf o& mi) const 

{ 

mi . SetAddrStreet ( m_Us erAddr Page . m_sAddrS treat ) ; 

m_UserAddrPage . m_sAddrCity) ; 
m_Us erAddr Page . m_sAddrSt ate) ; 

m_Us erAddr Pag e . m_sAddr Zip) ; 

m_UserAddrPage . m_nCountry) ; 

m_Us erAddr Page . m_s Tel Home) ; 
m_Us erAddr Page . m_sTel Work) ; 
m_UserAddrPage .m_sTelMobile) ; 

m_Us erAddr Page . m_s Tel Fax) ; 
m_UserAddrPage . m_sTelOther) ; 

} 




mi . SetAddrCity ( 
mi . SetAddrState ( 
mi - SetAddrZip { 

mi . SetCountry ( 

mi . SetTelHome ( 
mi . SetTelWork ( 
mi . SetTelMobile ( 
mi . SetTelFax ( 
mi . SetTelOther { 



void CPSOtherInf o :: GetMemberlnfo (CMemberlnf o& mi) const 

{ 

mi . SetCharlD ( m_MyInf oPage , m_nCharID) ; 

mi . Set Age ( m_My Inf oPage . m_nAge ) ; 

mi.SetSex( m_MyInf oPage . m_nSex) ; 

mi . SetBubbleKind (m_MyInf oPage .m_nSex) ; // Later I'll change thi 

// mi . SetProf ile ( m_MyInf oPage . m_strProf ile ) ; 

CString rn = m_MyInf oPage . m_sFName ; 
rn " "; 

rn += m_MyInf oPage . m_sLName ; 

mi . SetRealName ( rn ) ; 

mi.SetNick( m_MyInf oPage . m_sAlias ) ; 

if ( lm_MyInf oPage . m_sHomePage . IsEmpty 0 

(Istrcmpi (m_MyInf oPage .m_sHomePage , HTTP) != 0)) 

mi , SetHyperlink (m_MyInf oPage . m_sHomePage) ; 

mi.SetEmail( m__MyInfoPage . m_s Email ) ; 

mi . SetEthnic ( m_MyInf oPage . m_nEthnic ) ; 

mi . SetLanguage ( m_My Inf oPage . m_nLanguage ) ; 
mi . SetFName ( m__MyInf oPage .m_sFName) ; 

mi .SetLName ( m_My Info Page .m_sLName) ; 

mi . SetWork ( m_MyInf oPage . m_nWork) ; 
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} 



BOOL CPSOtherInf o : : ActivateCreateChannelPage ( ) 
{ 

if ( ! (m_nPageSelect & PS_CREATE_PAGE) ) 

AddPage (&:m_CreateChannelPage) ; 
return SetActivePage (Scm_CreateChannelPage) 

} 

BOOL CPSOtherInf o : : ActivateJoinChannelPage ( ) 

{ 

if { ! (m__nPageSelect & PS_JOIN_PAGE) ) 

AddPage (&Tn_JoinChannel Page) ; 
return SetActivePage ( &m_JoinChannelPage) ; 

} 

*/ 
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// PSOtherlnfo.h : header file 
// 

// This class defines custom modal property sheet 
// CPSOtherlnfo. 

#ifndef PSOtherInfo_H 

#define PSOtherInfo_H 

#ifdef _MALL 

#include " PPShoppingCart . h" 

#include " PPPayment Inf o . h '* 
#endif 

#include " PPCreateChannel . h " 

#include " PPChannel . h" 

#include "PPActor.h" 

#include " PPMyInf o . h " 

# include " PPMyAddress . h" 
//#include " PPUserPic . h " 
//#include " PPUserProf ile . h" 

#include " PPOtherInf o . h" 

#include "UC2CS.h" // EC_CHANNELINFO 

#include "UC2Doc.h" // GetSocketC) 

///////////////////////////////////////////////////////////////////////////// 
// CPSOtherlnfo 

class CDIB; 

class CMemberlnfo; 

class CUC2Socket; 

enum PAGE__SELECT 
{ 

PS_OTHERINFO_PAGE = 0x0001, 

PS_OTHERADDR_PAGE = 0x0002, 

PS_OTHERPROF_PAGE = 0x0004, 
// PS_USERPIC_PAGE = 0x0004, 

PS_ALL_PAGES = PS_OTHERINFO_PAGE | PS_OTHERADDR__PAGE | 

PS_OTHERPROF_PAGE 

}; 

class CPSOtherlnfo : public CPropertySheet 
{ 

DECLARE^DYNAMIC (CPSOtherlnfo) 

// Construction 
public : 

CPSOtherlnfo (CUC2DOC* pDoc , const int nPageSelect, LPCTSTR pszCaption, 
UINT iSelectPage=0) ; 

// Attributes 
public : 

CDIB* GetDIBBackO { return m_pDIBBack; } 
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CPalette* GetPaletteO { return m_pPal ; } 

CFont* GetFont() { return &:m_font; } 

CBrush* GetNullBrush ( ) { return &:m_brNull; } 



// BOOL 
PS_JOIN__PAGE) ; } 
CUC2DOC* 
CUC2Socket* 



// 
// 



IsListOnly() const 

GetDocument ( ) 
GetSocket ( ) 



CPPActor 



{ return (m_nPageSelect =- 

{ return m_pDoc ; } 

{ return in_pDoc - >Get Socket () ; } 



m_ActorListPage ; 



CPPOtherlnfo 
// CPPOtherPic 
// CPPOtherProf ile 
// CPPOtherAddr 



m_OtherInf oPage ; 
Tn_OtherPicPage ; 
Tn_OtherProf ilePage ; 

m__OtherAddrPage ; 



// 


Operations 






public : 








BOOL 


OnPageEraseBkgnd (CDC* pDC) ; 






void 


InitControl {const int nCtrllD, 


const CRect& 


// 


BOOL 


Act ivateCreateChannelPage { ) ; 




// 


BOOL 


Activate JoinChannelPage ( ) ; 




// 


BOOL 


GetChannellnfo (EC_CHANNELINFO& eclnfo) ; 




void 


SetMemberInf o (CString* str) ; 






void 


GetMemberInf o (CMemberInf o& mi) 


const ; 




void 


SetMemberProf ile (CMemberInf o& 


mi ) ; 




void 


SetMemberAddress (CMemberInf 


mi) ; 




void 


GetMemberProf ile (CMemberInf o& 


mi) const; 




void 


Get Member Address (CMemberInf o& 


mi) const; 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL ( CPSOther Inf o) 
//} }AFX_VIRTUAL 

// Implementation 
public : 

virtual -CPSOtherInf o () ; 



// Generated message map functions 
protected : 

CDIB* m_pDIBBack; // Background frame image 

CPalette* m_jpPal; // main palette 

BOOL m_bPalet teCreated ; 

/ / CRect m_rcPSheet ; 

CBrush m_brNull; 
CFont m_font; 

int m_nPageSelect ; // enum PAGE_SELECT 

CUC2DOC* m__pDoc; // To get pointers to Socket 

// { {AFX_MSG (CPSOtherInf o) 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
afx_msg BOOL OnQueryNewPalette () ; 
virtual BOOL Onini tDialog () ; 
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//} }afx_msg 
declare_message_map ( ) 

}; 



static char* SexTable [] = { 
II "3 II 

"Male" , 
"Female " 

}; 

static char* EthnicTable [] - { 

It M 

"African" , 
"Asian" , 

"Bi/Multi-ethnic" , 
"Caucasian" , 
"Latino/Hispanic" , 
"Middle Eastern", 
"South East Asian", 
"Other" 

}; 



static char* WorkTable [] = { 
II II 

"Academic " , 
"Actor/Actress" , 
"Administrative" , 
"Art/Entertainment" , 
"College Student", 
"Community & Social", 
"Computers " , 
"Education" , 
"Engineering" , 
"Financial Services", 
"Government " , 
"High School Student", 
"Home" , 
"Law" , 

"Managerial " , 
"Manufacturing" , 
"Medical/Health" , 
"Military" , 
"Musician" , 

"Non-Government Organization", 
"Other Services", 
"Professional" , 
"Retail" , 
"Retired" , 

"Science & Research", 
"Sports" , 
"Technical" , 
"University Student", 
"Web Technology" 

}; 
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static char* LanguageTable [] = { 

M rt 

"English" , 
"Cantonese" , 
"German" , 
"Hakka" , 
"Hokkien" , 
"Italian" , 
" Korean" , 
"Japanese " , 
"Mandarin" , 
"Russian" , 

"Afrikaans" , 
"Arabic" , 
"Assamese" , 
"Awadhi" , 

"Bahasa Indonesia", 
"Bambara" , 
"Basque " , 
"Bengali " , 
"Bhojpur " , 
"Breton" , 
"Burmese" , 
"Creole" , 
"Croatian" , 
"Czech" , 
"Dutch" , 
"Esperanto" , 
"Estonian" , 
"Farsi " , 
"Finnish" , 
"Gaelic" , 
"Greek" , 
"Guj arati " , 
"Hawaiian" , 
"Hebrew" , 
"Hindi" , 
"Hungarian" , 
"Maithili" , 
"Maltese" , 
"Maori" , 

"Native American" , 
"Norwegian" , 
"Nyanj a" , 
"Panj abi" , 
"Polish" , 
"Portuguese " , 
"Quechua" , 
"Romanian" , 
"Rund" , 

"Shanghainese " , 
"Shona " , 
"Swahi" , 
"Swat" , 
"Swedish" , 
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"Tagalog" , 
"Telugu" , 
"Thai" , 
"Tsonga " , 
"Urdu" , 
"Welsh" , 
"Xhosa" , 
"Yiddish" , 
"Zulu" 

}; 



///////////////////////////////////////////////////////////////////////////// 

#endif // PSOtherlnfo H 
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MICROSOFT FOUNDATION CLASS LIBRARY : UC2 



AppWizard has created this UC2 application for you. This application 

not only demonstrates the basics of using the Microsoft Foundation classes 

but is also a starting point for writing your application - 

This file contains a summary of what you will find in each of the files that 
make up your UC2 application. 

UC2 .h 

This is the main header file for the application. It includes other 

project specific headers (including Resource -h) and declares the 

CUC2App application class. 

UC2 . cpp 

This is the main application source file that contains the application 
class CUC2App. 

UC2 . rc 

This is a listing of all of the Microsoft Windows resources that the 
program uses. It includes the icons, bitmaps, and cursors that are 
stored 

in the RES subdirectory. This file can be directly edited in Microsoft 
Developer Studio . 

res\UC2 . ico 

This is an icon file, which is used as the application's icon. This 
icon is included by the main resource file UC2 . rc . 

res\UC2 . rc2 

This file contains resources that are not edited by Microsoft 

Developer Studio. You should place all resources not 

editable by the resource editor in this file. 

UC2 . clw 

This file contains information used by ClassWizard to edit existing 
classes or add new classes. ClassWizard also uses this file to store 
information needed to create and edit message maps and dialog data 
maps and to create prototype member functions. 

///////////////////////////////////////////////////////////////////////////// 

For the main frame window: 

MainFrm.h, MainFrm.cpp 

These files contain the frame class CMainFrame, which is derived from 
CFrameWnd and controls all SDI frame features. 

res\Toolbar . bmp 

This bitmap file is used to create tiled images for the toolbar. 
The initial toolbar and status bar are constructed in the 
CMainFrame class. Edit this toolbar bitmap along with the 
array in MainFrm.cpp to add more toolbar buttons. 
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///////////////////////////////////////////////////////////////////////////// 

AppWizard creates one document type and one view: 

UC2Doc.h, UC2Doc.cpp - the document 

These files contain your CUC2Doc class. Edit these files to 
add your special document data and to implement file saving and loading 
(via CUC2DOC : rSerialize) . 

UC2View-h, UC2View.cpp - the view of the document 
These files contain your CUC2View class. 
CUC2View objects are used to view CUC2Doc objects. 

///////////////////////////////////////////////////////////////////////////// 
Help Support : 
MakeHelp . bat 

Use this batch file to create your application's Help file, hlp\UC2.hLP. 
hlp\UC2 .hpj 

This file is the Help Project file used by the Help compiler to create 
your application's Help file. 

hlp\* .bmp 

These are bitmap files required by the standard Help file topics for 
Microsoft Foundation Class Library standard commands. 

hlp\* .rtf 

This file contains the standard help topics for standard MFC 
commands and screen objects. 

///////////////////////////////////////////////////////////////////////////// 
Other standard files: 

StdAfx.h, StdAfx.cpp 

These files are used to build a precompiled header (PCH) file 
named UC2.pch and a precompiled types file named StdAfx.obj. 

Resource . h 

This is the standard header file, which defines new resource IDs. 
Microsoft Developer Studio reads and updates this file. 

///////////////////////////////////////////////////////////////////////////// 
Other notes : 

AppWizard uses "TODO:" to indicate parts of the source code you 
should add to or customize. 

If your application uses MFC in a shared DLL, and your application is 

in a language other than the operating system's current language, you 

will need to copy the corresponding localized resources MFC40XXX.DLL 

from the Microsoft Visual C++ CD-ROM onto the system or system32 directory, 

and rename it to be MFCLOC.DLL. ("XXX" stands for the language abbreviation. 

For example, MFC40DEU.DLL contains resources translated to German.) If you 

don't do this, some of the UI elements of your application will remain in the 
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language of the operating system. 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 1 1 1 1 1 1 n // 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 
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// ResMan: Resource Manager 
// 

7/=..^^^=:^^ = == = = = = =^ = = ^. = = = = = = = == = = = = = = .= 

// (C) Programmed by Kim, Feb 199 8 

// Information Technology Institute 
// UNXCHAT.COM 

7/===================================^ 

// 
7* 

; "resrcOOO . rit " for resrcOOO.bmc 



; Resource Info Specification 

; RIT: Resource Information Table 

; Specification written by Soomin Kim 

; Feb 1998, Samsung SDS 

; f ilename= [ (col , row) ] (cz.X/Cz.y)] [, nickname] ; 

filename = resource type flag(l) + name (4) + serial (3); 

resource type flag - t (TILE) , s (STATIC) , i(ANI), a (AVATAR) , w(WAVE) 
m(MIDI) 

(col, row) - # of cells in (column, row); for STATIC this attribute 
omitted 

; (cz.x,cz.y) - center of z-order in (x, y) pixel position from the 1 
top 

nickname = nickname for actor 

7/ Think of tile as a PhasedSprite 

#TIL= 7/ TILE 

{ 

tcity001= (1,4) ; 

#STT= 7/ STATIC Sprites 

{ 

ccity002= (23 , 28) ; // Earth Position 

}" 

#ANI= // ANIMATED Sprites 
( 

wroom001= (1, 17) , {34 , 8) ; // 34,22 

iadvtOOO= (1, 3) , (123 , 321) ; // not exist 

}" 

#AVT= // AVATAR 
{ 

ainan_001=(ll, 4) , ( 27 , 4 5 ) , ° A° I ; 

}" 

#WAV= 
{ 

wwhip; 7/ wwhip.wav 

} 

#MID= 
{ 

mtest; // mtest.mid 
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} 

// Comments 

// Resources are sequentially numbered according to the order in RIT. 

// BMP file merger will read this info and then load each bitmap file 

// with the same name as it's id (+.bm) . 



; ACTOR SECTION 

; (*i) : - change orientation, * 50%, / 25%, | 12%, ~ 0%, ^ don't USE_COLORKEY 

; #ACTORBASE=nMSPT // Basic formula for all the actors 

; #ACTOR=id // Overridden formula for special cases 

; { 

// nMSPT is Milliseconds per Tick 
; // Behaviors 

0-nRepeatCount , (cell index { , delay ticks ( , displacement_x , 
displacement_y ( , sound id) )))...; 

// nRepeatCount = 0 for infinite loop, - value for pendulum movement 

// delay ticks; 5 = fast; 10 = moderate; 15 slow 

; } 

; #COACTOR= . . . 



#ACTORBASE= 
{ 

STANDF =1, (0) ; 

STANDB =1,(8); 

}"' 

#ACTOR=aman_00 0 ; 

{ 

SPECIAL =1, . . . 

}" ^ 

#include " stdaf x . h" 

#include "ResMan.h" 
#include "Parser. h" 



#include "UC2Ani/DIB . h" 
#include "UC2Ani /PhSprite . h" 
#include "Behavior. h" 
#include "Actor. h" 
#include " UC2Ani/ Sound . h" 
#include "UC2Ani/MCIObj . h" 



const CString SERVER_XP = _T ( " 2 06 . 1 1 1 . 13 3 . 50 " ) ; // Ftp Server IP 

// This must be changed according to the Server path 

const CString DYlsrAMIC_BANNER_PATH = 

_T ( "www.unichat\\dynamicAdds\\Update . txt " ) ; 

/ / const for Dyn_ads Path 

const CString C_STR_FTP_DYNAMIC_ADS_PATH = _T ( "web/dyn_ads " ) ; 



const CString C_STR_DYNAMIC_BANNER_INI_FILE = _T ( "Dybanner . ini " ) ; 
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extern CParser gParser; 

double GetMapEditorVersion ( ) 
{ 

// V0.90 Feb 1998 
// V0.99 Mar 1, 1998 
// VI. 00 Mar 11, 1998 
// VI. 01 Mar 17, 1998 
return 1.01; 

} 

LPCTSTR RESFILE_FILTER = "Resource Information Tables (*. HIT) | *. RIT | 

"All files (* . *) I * . * I I " ; 
LPCTSTR RES_BMPEXT = ".bmp"; // ".bm" 
LPCTSTR RES_JPJEXT = ".gif"; 

LPCTSTR ACTOR_SHADOW_NAME = " csOO | cshadOOl " ; 
LPCTSTR PUBLIC_STAGE_NAME_FORMAT = "[p2/%s]"; 

LPCTSTR MUD_STAGE_NAME_FORMAT = "[u2/%s]00"; 

// SATYA CHANGES START 

LPCTSTR HOME_STAGE_NAME_FORMAT = "[home/%s]"; 

const char UCServerIP[] "206 . Ill . 133 . 50 " ; 
// SATYA CHANGES END 

static const PALETTEENTRY apeMASTER [2 56 ] = 
{ 

#include "U2Pal.Inc" // 256 Color Table 

}; 

const char* DATA_PATH = 
#ifdef _DEBUG 
#ifdef MAPEDITOR 
"WdataW"; 

#else 

#ifdef _MALL 
"\\Mall\\" ; 

#else 

"\\MapEd\\data\\ " ; 

#endif 
#endif 
#else 

"W"; 

#endif 

1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 f 1 1 1 / 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 11 1 1 1 If 1 11 1 1 1 1 1 11 1 1 1 If 1 1 1 
f I SATYA CHANGES START 

// Implementation for class CChnCatTree 

CChnCatTree :: CChnCatTree ( ) 

{ 

m_strCatName = _T ( " " ) ; 
m_nNum = 0 ; 

m_pltem = NULL; 

} 

CChnCatTree : : -CChnCatTree ( ) 
{ 

if (m_pltem) 




integer Resource ID 

MIT merged into SIT, Hyperlink 

DEFAULT 10=0x1000 => 0x0000 
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delete [] m_pltem; 
m_pltem = NULL; 

} 

// SATYA CHANGES END 



1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 11 1 / 1 1 1 1 11 / 1 1 1 1 1 / 

WORD CResMan: : CSpriteInf o : :GetType() 
{ 

int IDS ^ m_strName . Find ( ' | ' ) ; 
if (iDS >= 0) // found 

iDS++; 

else 



iDS = 0; 

switch (tolower (m_strName [iDS] ) ) 

{ 



case 


■ t • 


return 


SPRITE^ 


_TILE; 


case 


' w ' 


return 


SPRITE_ 


_WALL ; 


case 


• c ' 


return 


sprite" 


_STATIC; 


case 


' i ' 


return 


SPRITE_ 


_PHASED; 


case 


' a ' 


return 


SPRITE_ 


_ACTOR; 



} 



return -1; 

} 

1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 III 1 1 1 1 1 



CResMan: : CResMan () 

{ 

// SATYA CHANGES START 

m_nChnCatTree = 0; 

m_pChnCatTree = NULL; 

m_pInetSes ^ NULL; 

m_pFtpCon = NULL; 

m__iMainCat = 0; 

m_iSubCat = 0; 

// SATYA CHANGES END 



TRACEO ("CResMan: : CResMan () \n") ; 



m_ 


nSprites 




0; 


m_ 


_aSl 




NULL; 


m 


nWaves 




0; 


m 


aWave 






m 


nActorDescs 




0; 


m 


aActorDesc 




NULL; 


m_ 


nStageNames 




0; 




_aStageName 




NULL; 


m_ 


nServerlPs 




0; 


m_ 


aServerIP 




NULL; 


m 


nResFiles 




1; 



m^strResFile . Empty ( ) ; 

m_bMute = FALSE; 

m_nBubbleText Limit = GetDef aul tBubbleTextLimit ( ) ; 

m_nBubbleTime = GetDef aul tBubbleTime () ; 
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CString strRes; 
int len=512; 

char* psz ~ strRes . GetBuffer { len) ; 
: :GetCurrentDirectory (len, psz) ; 
StrRes . ReleaseBuf far ( ) ; 
StrRes += DATA_PATH; 
SetResPath (strRes) ; 

TRACE ( "CResMan : iCResMan - SetResPath ( %s ) \n" , strRes); 

} 

CResMan : : -CResMan ( ) 
{ 

TRACED ( "CResMan: : -CResMan ( ) \n") ; 
DeleteResources () ; 

} 

void CResMan: : DeleteResources () 
{ 

if (m_aSI) 

delete [] m_aSI; 
m_aSI = NULL; 

m_nSprites - 0; 




if (m_aWave) 

{ 

for (int i=0; i < m_nWaves ; i++) 

{ 

CWaveDataSc wd - m__aWave [i] ; 
i f ( wd . m__pWave ) 

delete wd . Tn__pWave ; 

} 

delete [] m_aWave ; 

} 

m_aWave = NULL ; 
m_nWaves = 0 ; 
if (m__aMIDI) 

delete [] m_aMIDI; 
m_nMIDIs = 0; 

if (m_aActorDesc) 

delete [] m_aActorDesc ; 
m_aActorDesc - NULL; 

m_nActorDescs = 0; 

if (m_aStageName ) 

delete [] m_aStageName ; 
m_nStageNames = 0; 

if (m_aServerIP) 

delete [] m__aServerIP ; 
m_nServer I Ps = 0; 



RemoveAllDIBs ( ) ; 



//CHANGES_MADE_FOR_UNICHAT_2 
//delete the FTP connection 
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if ("iJ*FtpCon 1= MULL) 
{ 

delete m__pFtpCon; 
m_pFtpCon = NULL; 

} 

//delete internet session, 
if (m_pInetSes ) 

{ 

delete m_pInetSes; 
m_pInetSes = NULL; 

} 



void CResMan : : Countltems (CTextFileBuf f er& tfb) 

{ 

m_nSprites - 0; 
m__nWaves = 0 ; 
m_nMIDIs = 0; 

m_nStageNames - 0; 
m_nServerIPs = 0; 
int nAD=:0; 

while (tf b . ReadString ( ) ) 



{ 



comment line 



gParser .CopyBuf f er ( tf b . GetString { ) ) ; 

if (gParser . IsCommentLine { ) ) // At first, check if i 

cent inue ; 
CString strBuf; 

if ( !gParser.SetLeftToken( ) || 

! gParser . GetValueRightToken { strBuf , ' = ' ) ) 

continue; // get next line 

if ( (Istrcmpi (strBuf , "TIL") ==0) || // matching 

(Istrcmpi (strBuf , "STT") ==0) || 

(Istrcmpi (strBuf , "ANl " ) ==0) || 

(Istrcmpi (strBuf , "AVT") 0)) 



m_nSprites += CountContent s (tfb) ; 
Ise if (Istrcmpi (strBuf , "WAV") == 0) 

m_nWaves += CountContent s (tfb, ' ; ' ) ; 
Ise if (Istrcmpi (strBuf , "MID") 0) 

m_nMIDIs += CountContent s (tfb, ' ; ' ) ; 
Ise if (Istrcmpi (strBuf , "STAGE") 0) 

m__nStageNames += CountContent s (tfb, ' ; ' ) ; 
Ise if (Istrcmpi (strBuf , "SERVERIP") == 0) 

m_nServerIPs += CountContents (tfb, ' ; ') ; 
Ise if (Istrcmpi (strBuf , "ACTOR") == 0) // matching 
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m_aActorDesc [nAD++] . SetNumBehaviors ( CountContents (tfb) ) ; 

} 

} 

tf b . SeekToBegin ( ) ; 

} 

// Count the number of lines that matches a specified string between and 
int CResMan : : CountHeaders (CTextFileBuf f er&z tfb, const char* szToken) 

{ 

int i=0; 

while (tfb - Reads tringO ) 
{ 

gParser.CopyBuf fer (tfb.GetStringO ) ; 

if (gParser . IsCommentLine { ) ) //At first, check if it's a 

comment line 

continue ; 
CString strBuf; 

if { IgParser .SetLeftToken( •#' ) || // get next line 
! gParser . GetValueRightToken (strBuf , ' = ' ) ) 
continue ; 

if (Istrcmpi (strBuf , szToken) == 0) // matching! 
i + + ; 

} 

tfb . SeekToBegin ( ) ; 
return i; 

} 

// Count the number of lines that include token (• = ' ) between { and } 
int CResMan :: CountContents {CTextFileBuffer& tfb, const char token) 

{ 

int i=0; 

while (tf b . ReadString ( ) ) 

{ 

gParser . CopyBuf f er (tfb . GetString ( ) ) ; 

if (gParser . IsCommentLine () ) // At first, check if it's a 

comment line 

continue ; 

if (gParser - SetLeftToken ('{') ) // Begin 

{ 

if (gParser .SetLeftToken( '}') ) // {} 

break ; 

continue ; / / get next line 

} 

if (gParser . SetLeftToken ('}') ) // End of contents 

break; / / out of while loop 

if (gParser . SetLeftToken (token) ) 

i++; // Anyway, we should increase the counter 

} 

return i ; 

} 

BOOL CResMan: : Initialize (CTextFileBuffer& tfb) 

{ 

DeleteResources () ; 

m_nActorDescs = CountHeaders (tfb, "ACTOR"); 
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11111/ 1/ I/I I Initialize Actor Behaviors 

if (m_nActorDescs <= 0) 

{ 

AfxMessageBox ( IDS_RIT_NO_BEHAVIORS ) ; 
// return FALSE; 

} 

else 

{ 

m_aActorDesc = new CActorDesc [m_nActorDescs] ; 

} 

TRACE ("# of Actor Descriptions = %d\n" , m__nActorDescs ) 
Countltems { tf b) ; 

//////////// Initialize Sprite Informations 

if (m_nSprites <= 0) 

{ 

AfxMessageBox ( IDS_RIT_NO_SPRITES ) ; 
return FALSE; 

} 

else 

{ 

m_aSI = new CSpriteInf o [m_nSpri tes ] ; 

} 

TRACE ("# of Sprites = %d\n" , m_nSpri tes ) ; 

if (m_nWaves <^ 0) 
{ 

AfxMessageBox (IDS_RIT_NO_WAVES) ; 
// return FALSE; 

} 

else 

{ 

m_aWave = new CWaveData [m_nWaves] ; 

} 

TRACE ("# of Waves = %d\n" , m_nWaves) ; 

if (m_nMIDIs <= 0) 
{ 

AfxMessageBox (IDS_RIT__NO_MIDIS) ; 
// return FALSE; 

} 

else 

{ 

m_aMIDI = new CString [m_nMIDIs] ; 

} 

TRACE{"# of MIDIs = %d\n" , m_nMIDIs); 

if (m_nStageNames <= 0) 
{ 

AfxMessageBox (IDS_RIT_NO_STAGES) ; 
// return FALSE; 

} 

else 

{ 

m_aStageName = new CString [tn_nStageNames] ; 

} 
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TRACE ("# of Stage Names - %d\n", m_nStageNames) ; 

if (m_nServerIPs <= 0) 
{ 

AfxMessageBox (IDS_RIT_NO_SERVERIPS) ; 
// return FALSE; 

} 

else 

{ 

m_aServerIP = new CString [m_nServerIPs ] ; 

} 

TRACE("# of Server IPs = %d\n", m_nServerIPs ) ; 
return TRUE; 

} 

BOOL CResMan: :SetResPath(LPCSTR path) 

{ 

m_strResPath = path; 

int len = Istrlen (path) ; 

if {path[len-l] ! = '\\') 

Tn_strResPath "\\"; 
return TRUE; 

} 

// Modify this so that it can handle multiple RIT files ( resrcO 0 ? . rit ) 

BOOL CResMan: : Load (LPCSTR path) 

{ 

TRACEO {"CResMan: : Load ( ) \n") ; 

// CHANGE S_MADE_FOR_UN I CHAT_2 

// Dovm load the Dynamic Banner Info 

if ( ! DownLoadDynamicBannerInf o ( ) ) 

{ 

return FALSE; 

} 

if ((path == NUIili) II (Istrlen (path) == 0)) 
{ 

: : SetCurrentDirectory (m_strResPath) ; 

// Show an Open File dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 
m_strResFile , // Initial file name 

OFN_FILEMUSTEXIST | OFN_HIDEREADONLY , 
RESFILE_FILTER) ; 

if (dlg.DoModal 0 == IDOK) 

m_strResFile = dig . GetPathName ( ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
m_strResFile = path; 
IncludePath (m_strResFile) ; 

} 
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CTextFileBuf f er t f b (gParser . GetMaxBuf f er ( ) ) ; 

if ( ! tf b . Load (m_strResFile) ) 

{ 

return FALSE; 

} 

ExcludePath (m_strResFile) ; 

if ( ! Initialize (tfb) ) 
{ 

return FALSE; 

} 

int i=0; 

int ad=0; 

CString strTemp; 

BOOL bOldVersion = FALSE; 

while (tfb.ReadStringO ) 
{ 

gParser.CopyBuffer (tfb.GetStringO ) ; 
if (gParser . IsCommentLine { ) ) 

continue ; 
if ( I gParser . SetLef tToken ('#')) 

continue ; 
CString strBuf; 

if (! gParser .GetValueRightToken ( StrBuf , '=')) 
continue ; 

1 1 1/ 1 n 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 // 1 1 1 

if (Istrcmpi (strBuf , "VERSION") == 0) 
{ 

gParser . SetLef tToken ( ' =r ' ) ; 
double f Vers ion; 

gParser . GetValueRightToken (f Version, ' ; ' ) ; 
if (fVersion <= 0.90) 

{ 

CString strMsg; 

strMsg . Format ( "Old Version %.2f", fVersion) 
AfxMessageBox (strMsg) ; 
bOldVersion TRUE; 

} 

} 

else if ( Istrcmpi (strBuf , "TIL") 0) // matching! 

{ 

while (tfb.ReadStringO) 
{ 

gParser -CopyBuffer ( tf b . GetString ( ) ) ; 
if (gParser . IsCommentLine ( ) ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken (•}')) 

break; 
continue ; 

} 

if (gParser. SetLeftToken( '}') ) 
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break ; 

if ( ! gParser . GetValueRightToken (strTemp, '=')) 

continue ; 
m__aSI [i] .m_strName = strTemp; 

gParser . GetValueRightToken (m_aSI [i] . m_sColRow, * , ' , 
m_aSI [i] .m_sEarth ^ CSi ze ( 64 /2 , 0 ) ; 

gParser . GetValueRightToken (m_aSI [i] . m_strHyperl ink , 
i + +; 

} 

} 

else if {Istrcmpi (strBuf , "STT") 0) 
{ 

while (tfb . ReadString ( ) ) 

{ 

gParser . CopyBuf f er (tfb . GetString ( ) ) ; 
if (gParser . I sCommentLine 0 ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

breaks- 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break ; 

if ( 1 gParser . GetValueRightToken (strTemp, '^')) 

continue ; 
StrTemp . Make Lower ( ) ; 
m_aSI [i] .m_strName = strTemp; 
m_aSI [i] .m_sColRow = CSize(l, 1) ; 

gParser -GetValueRightToken (m_aSI [i] .m_sEarth, ' , • , 
gParser - GetValueRightToken (m_aSI [i] . m_strHYperlink , 
i + + ; 

} 

} 

else if ( Istrcmpi ( strBuf , "ANI") == 0) 

{ 

while (tf b . ReadString 0 ) 

{ 

gParser . CopyBuf fer ( tf b . GetString ( ) ) ; 
if (gParser . IsCommentLine 0 ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

break ; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break; 

if (! gParser . GetValueRightToken (strTemp, '=')) 

continue ; 
StrTemp . MakeLower ( ) ; 
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m_aSI[i] .m_strName = strTemp; 

gParser . GetValueRightToken (m_aSI [i] . m_sColRow , ' , ' ) 
gParser . GetValueRightToken (m_aSI [i] .m_sEarth, ' , ' , 

' ; • ) ; 

gParser - GetValueRightToken {m_aS I [i] . m_strHyperlink , 

• , ' . ' ; ' ) ; 

i + +; 

} 

} 

else if (Istrcmpi (strBuf , "AVT") == 0) 
{ 

while ( tf b . ReadString ( ) ) 

{ 

gParser. CopyBuffer (tfb.GetString 0 ) ; 
if (gParser - 1 sComment Line () ) 

continue ; 
if (gParser. SetLeftToken ('{')) 
{ 

if (gParser . SetLeftToken ('}')) 

break; 
continue ; 

} 

if (gParser . SetLeftToken (•}') ) 
break; 

if ( J gParser . GetValueRightToken ( StrTemp , '=')) 

continue ; 
StrTemp . MakeLower { ) ; 
m_aSI [i] .m__strName ^ strTemp; 

gParser . GetValueRightToken (m_aSI [i] .m_sColRow, ' , ' ) 
gParser . GetValueRightToken (m_aSI [i] .m_sEarth, • , • , 

' ; ■ ) ; 

gParser . GetValueRightToken (m__aSI [i] . m_strHyperlink , 
i + +; 

} 

} 

else if (Istrcmpi (strBuf , "WAV") == 0) 

{ 

int w=0; 

while ( tfb . ReadString {) ) 

{ 

gParser . CopyBuffer ( tfb . GetString ( ) ) ; 
if (gParser . IsCommentLine 0 ) 

continue ; 
if (gParser . SetLeftToken ('{')) 
{ 

if (gParser . SetLeftToken ('}')) 

break ; 
continue ; 

} 

if (gParser . SetLeftToken ('}')) 
break; 

if ( ! gParser , GetValueRightToken (strTemp , ' ; ' ) ) 

continue ; 
if (w >= m_nWaves) 

break ; 
StrTemp . MakeLower { ) ; 
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m_aWave [w++] .m_strName = strTemp; 

} 

} 

else if (Istrcmpi (strBuf , "MID") == 0) 
{ 

int m=0; 

while (tfb,ReadString () ) 
{ 

gParser . CopyBuf f er ( tf b .GetString ( ) ) ; 
if (gParser . isCommentLine ( ) ) 

continue ; 
if (gParser. SetLeftToken( ' { ' ) ) 
{ 

if (gParser . SetLef tToken ('}')) 

break ; 
continue ; 

} 

if (gParser. SetLef tToken ( ' } ' ) ) 
break; 

if ( 1 gParser . GetValueRightToken (strTemp, ' ; ' ) ) 

continue ; 
if (m >= m_nMIDIs) 

break ; 
StrTemp . MakeLower ( ) ; 
m_aMIDI [m++] = strTemp; 

} 

} 

else if (Istrcmpi ( StrBuf , "STAGE") == 0) 
{ 

int s=0 ; 

while (tfb.ReadString () ) 
{ 

gParser .CopyBuf far (tfb- GetString ( ) ) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if (gParser . SetLef tToken ('{') ) 
{ 

if (gParser . SetLef tToken ('}')) 

break; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break; 

if ( IgParser.GetValueRightToken (strTemp, ' ; ' ) ) 

continue ; 
if (s >= m_nStageNames ) 

break; 
StrTemp . MakeLower ( ) ; 
m_aStageName [s + -f ] = strTemp; 

} 

} 

else if (Istrcmpi (strBuf , "SERVERIP") == 0) 
{ 

int p=0; 

while (tfb.ReadString () ) 

{ 

gParser . CopyBuf fer ( tf b . GetString ( ) ) ; 
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if (gParser . IsCommentLine ( ) ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

breaks- 
continue ; 

} 

if (gParser , SetLef tToken ('}')) 
break; 

if ( ! gParser . GetValueRightToken ( strTemp , ' ; ' ) ) 

continue ; 
if (p >= m_nServerIPs ) 

break; 

Tn_aServerIP [p+ + ] = strTemp; 

} 

} 

else if (Istrcmpi (strBuf , "ACTOR") 0) 

{ 

if (ad >= m_nActorDescs) 
break ; 

m_aActorDesc [ad++] -Load(tfb) ; 

} 

else 
{ 

TRACE ( "Unknown Data type in RIT f i le ( %s ) ! \n" , 

m_strResFile) ; 

} 

} 

/* 

#ifdef _DEBUG 

for (i=0; i < m_nSprites; i++) 

TRACE ( "%d) \t%s= (%d, %d) , (%d, %d) \n" , i, m_aSI [i] .m_strName, 
m_aSI [i] .m_sColRow. cx, m__aSI [i] . m_sColRow . cy , 

m_aSI [i] .m_sEarth . cx, m__aSI [i] . m_sEarth . cy) ; 
for (i=:0; i < ad; i + + ) 

TRACE ( "%d) \t%d behaviors\n " , i, 
m_aActorDesc [i] . GetNumBehaviors () ) ; 
#endif 
*/ 

for (int s=0; s < GetNumStageNames () ; s++) 

{ 

CString strStagelD (m_aStageName [s] ) ; 
CString strTitle (strStagelD) ; 

if (GetStageTitle (strTitle) ) // access each sit file 

{ 

MakeStageName (strStagelD, TRUE) ; 

m_aStageName [s] = strStagelD + ' ' + strTitle; 

} 

else 

{ 

TRACE ("SIT (%s) file not found!\n", strTemp); 

} 

} 

LoadWave ( ) ; 
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// SATYA CHANGES START 

// load the room catigories 

LoadChnCatTree () ; 

// SATYA CHANGES END 



return TRUE; 



} 

int CResMan :: GetSpritelD (const CString& strName) const 

{ 

for (int i = 0; i < m_nSprites; 

{ 

if { Istrcmpi (m_aSI [i] .m_strName, strName) == 0) 
return i ; 

} 

return ~1; // Not Found! 

} 

int CResMan: :GetWave ID (const CString& strName) const 

{ 

for (int i-0; i < m_nWaves; i++) 

{ 

if (Istrcmpi (m_aWave [i] . m_strName , strName) == 0) 
return i ; 

} 

return - 1 ; / / Not Found ! 

} 

int CResMan : :GetMIDIID (const CStringSc strName) const 

{ 

for (int i=0; i < m_nMIDIs; i++) 

{ 

if (Istrcmpi (m_aMIDI [i] , strName) — 0) 
return i ; 

} 

return -1; // Not Found! 

} 

BOOL CResMan : : LoadWave ( ) 

{ 

CString strFile; 

for (int i=0; i < m_nWaves; i++) 

{ 

CWaveData&: wd = m_aWave [i] ; 

ASSERT ( ! wd . m_strName . IsEmpty ( ) ) ; 

if (wd . m_strName [0] == 's') // wave 

{ 

wd . m_pWave = new CSound ; 

strFile = m_strResPath + wd.m_strName + ".wav" 
// TRACE ("Loading Wave %s\n", strFile); 

if (! wd .m_pWave- >Load (strFile) ) 

{ 

delete wd.m_j3Wave; 
wd . m_pWave = NULL ; 
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} 

} 

else 

{ 

wd . m_pWave = NULL ; 

} 

} 

return TRUE; 

} 

// Play wave sound (memory- loaded) 

BOOL CResMan :: PlayWave ( const int nID) const 

{ 

if (m_bMute) 

return FALSE; 
CWaveData& wd = m_aWave [nID] ; 
CString&: s = wd . m_strName ; 

if (s [0] == • s ■ ) // wave 
{ 

if ( ! wd . m_pWave ) 

return FALSE; 
wd . m__pWave- >Play ( ) ; 
return TRUE; 

} 

else 

{ 

TRACE ("Not wave sound\n"); 
return FALSE; 

} 

return FALSE; 

} 

WORD CResMan : :GetSpriteTypeByName (const CString& strName) const 

{ 

CString strRes ( strName ) ; 

MakeResName (strRes) ; 

int i = GetSpritelD (strRes) ; 

return (i >= 0) ? GetSpriteType ( i ) : SPRITE_STATIC ; 

} 

/////////////////////////////////////////////////////////////////// 
// DIB Management 

CDIB* CResMan: :LoadDIB (LPCSTR szResName) 

{ 

CString strFile ( szResName) ; 
ExpandResName (strFile, RES_BMPEXT) ; 
StrFile . MakeLower ( ) ; 
CDIB* pDIB; 

POSITION pos - m_olDIB.GetHeadPosition() ; 
while (pos) 

{ 

pDIB = (CDIB*) m_olDIB . GetNext (pos) ; // Increment position. 

if (pDIB) 

{ 

ASSERT (pDIB->IsKindOf (RUNTIME_CLASS (CDIB) ) ) ; 
CString* pstr = pDIB- >GetName ( ) ; 
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if (*pstr == strFile) // compare with only filename 

(excluding path) 

return pDIB; 

} 

} 

// File not found in current resource bank . 

// So create a new one and add it to the bank. 

pDIB = new CDIB; 

if ( !pDIB->Load (strFile) ) 

{ 

TRACE{"%s: Resource Load Failure ! \n*' , strFile); 
delete pDIB; 
return NULL; 

} 

LoadMasterPalette (pDIB) ; 
m_olDIB . AddTail (pDIB) ; 
return pDIB; 

} 

CDIB* CResMan: iLoadDIB (const WORD wResid, const BOOL bMasterPalette) 

{ 

CString strName; 

strName , Format ( "RES : %d" , wResid) ; 
CDIB* pDIB; 

POSITION pos = m_olDIB .GetHeadPosition ( ) ; 
while (pos) 

{ 

pDIB - (CDIB* ) m_olDIB .GetNext (pos) ; // Increment position. 

if (pDIB) 

{ 

ASSERT (pDIB->IsKindOf (RUNTIME_CLASS (CDIB) ) ) ; 
CString* pstr = pDIB- >GetName ( ) ; 
if (*pstr == StrName) 
return pDIB; 

} 

} 

// File not found in current resource bank. 
// So create a new one and add it to the bank. 
pDIB = new CDIB; 
if ( !pDIB->Load (wResid) ) 

{ 

TRACE("%d: Resource Load Failure!\n", wResid); 
delete pDIB; 
return NULL; 

} 

if (bMasterPalette) 

LoadMasterPalette (pDIB) ; 
m_olDIB.AddTail (pDIB) ; 
return pDIB; 

} 

// Load the specified resource into CPhasedSprite 

// and sets initial conditions such as # of cells. 

// The caller is responsible for deleting this sprite. 

CPhasedSprite* CResMan :: LoadPhasedSprite (LPCSTR szResName, const BOOL 
bDIBReuse , int nReSID) 

{ 
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int nResID; 

if ( IsDynamicBanner (nReSID) ) 

{ 

nResTD = nReSID; 

} 

else 

{ 

nResID = GetSpritelD (szResName) ; 

} 

if (nResID < 0) // Not found in RIT 
{ 

CString strMsg; 

strMsg . Format (" %s not found in RIT", szResName) ; 
Af xMessageBox (strMsg) ; 
return NULL; 

} 

CPhasedSprite* pPS ; 

if (bDIBReuse) // Reuse Mechanism 

{ 

CDIB* pDIB = LoadDIB (szResName) ; 
if (!pDIB) 

return NULL; 
pPS = new CPhasedSprite ; 

pPS->SetDIB (pDIB) ; // link DIB resource to this sprite 

} 

else / / Do not Reuse 

{ 

CString strFile ( szResName ) ; 

ExpandResName (strFile , RES_BMPEXT) ; 

pPS = new CPhasedSprite; 
if ( !pPS->Load (strFile) ) 
{ 

delete pPS; 

TRACE("%s: Resource Load Fai lure ! \n" , strFile); 
return NULL; 

} 

ASSERT (pPS->GetDIB () ) ; 
LoadMasterPalette (pPS->GetDIB ( ) ) ; 
#ifdef MAPEDITOR 

if (Get SpriteTypeByName (szResName) SPRITE_ACTGR) 

{ 

static int nColorSet = 1; 

RotateActorColorSet (pPS->GetDIB () , nColorSet) ; 

nColorSet++ ; 

if (nColorSet > 4) 

nColorSet = 1 ; 

} 

#endif 

} 

pPS->SetType (GetSpriteType (nResID) ) ; 
pPS->SetNumCells (GetSpriteColRow (nResID) ) ; 
pPS->SetEarth (GetSpriteEarth (nResID) ) ; 
CString* pStr = GetSpriteHyperl ink (nResID) ; 
if ( !pStr->IsEmpty 0 ) 
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pPS->SetHyperlink (*pStr) ; 
return pPS; 

} 

CActor* CResMan :: LoadActor {const int nCharlD, const int nColorSet, const 

bME) 

{ 

CActorDesc* pAD = GetActorDesc (nCharlD) ; 

if (!pAD) 

{ 

CString strMsg; 

strMsg . Format { "Actor Description: %d not found!", nCharlD) ; 
Af xMessageBox { strMsg) ; 
return isTULL; 

} 

CString strFile ( *pAD- >GetResName () ) ; 
ExpandResName ( strFile , RES_BMPEXT) ; 
CActor* pA = new CActor; 
if ( !pA->Load (strFile) ) 
{ 

delete pA; 

TRACE ("%s: Resource Load Failure !\n", strFile); 
return NULL; 

} 

ASSERT (pA- >GetDIB ( ) ) ; 
LoadMasterPalette (pA- >GetDIB ( ) ) ; 

if (bME) 

ShowOutline (pA- >GetDIB {) ) ; 
if (nColorSet) 

RotateActorColorSet (pA->GetDIB 0 , nColorSet) ; 

// Load Shadow 

CDIB* pDIB = LoadDIB (ACTOR_SHADOW_NAME) ; // LoadMasterPalette () 

if (pDIB) 
{ 

CSprite* pS = new CSprite; 

pS - >SetDIB (pDIB) ; // link DIB resource to this sprite 
pS->SetType (SPRITE_STATIC) ; 

int nResID = GetSpritelD (ACTOR_SHADOW_NANE) ; 
pS- >SetEarth (GetSpriteEarth (nResID) ) ; 
pA- >SetShadow (pS) ; 

} 

int nResID = GetSpri telD ( *pAD- >GetResName ( ) ) ; 
ASSERT (nResID>= 0) ; 

pA- >SetType (GetSpriteType (nResID) , SPRITE_ANI_ACTOR) ; 
pA- >SetNumCells (GetSpri teColRow (nResID) ) ; 
pA- >SetEarth (GetSpriteEarth (nResID) ) ; 
pA->SetCharID(nCharID) ; 

CString* pStr = GetSpri teHyperlink (nResID) ; 
if ( !pStr->IsEmpty 0 ) 

pA- >SetHyperlink (*pStr) ; 

return pA; 
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CBehavior* CResMan : : GetActorBehavior ( cons t WORD nCharlD, const int bi) 

{ 

CActorDesc* pAD = GetActorDesc (nCharlD) ; 

if (!pAD) 

{ 

Af xMessageBox ( "Actor not found ! " ) ; 
return NULL; 

} 

CBehavior* pBeh = pAD- >GetBehavior (bi ) ; 

if (!pBeh) // If not found in this ActorDesc, use that of the standard 
instead 

{ 

pAD ~ GetActorDesc ( 0 ) ; // Standard ActorDesc 
ASSERT (pAD) ; 

return pAD- >GetBehavior {bi ) ; // return that of the standard 

} 

return pBeh; 

} 

void CResMan : :DeleteDIB (CDIB* pDIB) 
{ 

POSITION pos = m_olDIB.Find(pDIB) ; 

if (pos) // Hunt for pDIB 

{ 

mo ID IB . Remove At (pos ) ; 
delete pDIB; 

} 

} 

//Be sure not to do use DIBs allocated here elsewhere! ! ! 
void CResMan :: RemoveAllDIBs ( ) 

{ 

// Walk down the list deleting objects as we go. 

// We need to do this here because the base class simply deletes the 
pointers . 

POSITION pos = m_olDIB . GetHeadPosi tion ( ) ; 
CDIB* pDIB; 
while (pos) 

{ 

pDIB = (CDIB* ) m_olDIB . GetNext (pos ) ; // Increment position. 

if (pDIB) 

{ 

ASSERT (pDIB->IsKindOf ( RUNTIME_CLASS (CDIB) ) ) ; 
delete pDIB; 

} 

} 

// Now call the base class to remove the pointers. 
m_olDIB , Remove All ( ) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 11 Naming Handling Methods 
// Extract filename only 

// C:\UC2\Data\t00ltcity000.bmp ===> tOO|tcityOOO 
void CResMan :: MakeResName (CStringfic strName) const 

{ 
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int i = strName . ReverseFind ( ' \\ ' ) ; 
int j = strName . ReverseFind ( ' . • ) ; 
if ( (i < 0) && ( j < 0) ) 
return; 

char* p = StrName - GetBuffer (256) ; 
if (j > 0) 

p[j] = NULL; // Exclude file extension 

if (i >= 0) 

p += (i + l) ; 
CString strTemp ( ( char* ) p) ; 
StrName . ReleaseBuf f er ( ) ; 
StrName = strTemp; 
StrName . Make Lower ( ) ; 

} 

void CResMan: :ExcludePath(CString& strName) const 
{ 

int i = StrName . ReverseFind (' \\ ') ; 
if (i < 0) 

return; 

char* p = StrName . GetBuffer (256) ; 
p += (i+1) ; 

CString strTemp ( (char* ) p) ; 
StrName - ReleaseBuf fer ( ) ; 
StrName = strTemp; 

} 

void CResMan :: IncludePath (CString& strName) const 
{ 

if (strName. Find (• \\ ' ) >= 0) 
return; 

CString strFN (m_strResPath) ; 
strFN += StrName; 
strName - strFN; 

} 

// "too I tcityOOO" => "C:\UC2\Data\t00ltcityOO0.bmp" 

void CResMan :: ExpandResName (est ring& strName, LPCSTR szExt) const 

{ 

MakeResName (strName) ; 
CString strFN (m_strResPath) ; 
StrFN += StrName; 
if (szExt) 

StrFN +=szExt; 
StrName = strFN; 

} 

// " [p2/0010csin] Castle of the Wind" "OOlOcsin" 
BOOL CResMan : :ExtractStageID (CString&: strName) const 

{ 

if (strName . GetLength ( ) <= 5) 
return FALSE; 

if ( (strName [0] == '[') (strName [2] == '2') && (strName [3] == '/')) 

{ 

int i = StrName . Find (']') ; 
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if (i < 4) 

return FALSE; 
CString strRes ( strName . Mid (4 , i-3-1)); 
strName = strRes; 
return TRUE; 

} 

return FALSE; 

} 

// "OOlOcsin" => " [p2/0010csin] " 
// Public or MUD 

void CResMan : iMakeStageName (CString& strName, const BOOL bPublic , const BOOL 
bHome) const 

{ 

CString strlD ( strName) ; 

strlD. Format (bPublic ? PUBLIC_STAGE_NAME_FORMAT : 
MUD__STAGE_NAME_FORMAT , 

StrName) ; 

StrName = strlD; 

/*CString s trID ( strName ) ; 

if ( ! bHome) { 

strlD. Format (bPublic ? PUBLIC_STAGE_NAME_FORMAT : 
MUD_STAGE_NAME_FORMAT, // " [epO/%s] " 

StrName) ; 

} 

else { 

strlD. Format (HOME_STAGE_NAME FORMAT, strName); 

} 

StrName = strlD;*/ 



} 

I / 1 / U 1 1 1 1 1 1 / 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 1 / 1 Palette Control 

//Be sure to call these methods before calling MapColorsToPalette 

UINT CResMan: :LoadMasterPalette (CDIB* pDIB) const 

{ 

return pDIB- >SetPaletteEntries ( 0 , 256, (const 
LPPALETTEENTRY) apeMASTER) ; 
} 

void CResMan :: ShowOutline (CDIB* pDIB) const 

{ 

// Write Outline Color to Outline (Off) Index 
// pDIB->SetPaletteEntries (237, 1, (const 
LPPALETTEENTRY) & (apeMASTER [240] )) ; 

pDIB->CopyPaletteEntry (237, 240) ; 

} 

// nColorSet = 0,1,2,3 

void CResMan : rRotateActorColorSet (CDIB* pDIB, const int nColorSet) const 
{ 

static int COLORS = 16; 
static int COLORSET[] = 
{ 
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0,1, 


0,2, 


0 , 


3, 


// 


nColorSet=4 ,5,6, 


1,0, 


1,2, 


1 , 


3, 


// 


7,8,9, 


2,0, 


2,1, 


2 , 


3 , 


// 


10 , 11, 12 , 


3,0, 


3,1, 


3 , 


2 


// 


13, 14, 15 



}; 

int nCS = (nColorSet < COLORS) ? nColorSet : nColorSet % COLORS 
int nC = (nCS < 4) ? nCS : COLORSET [ (nCS -4 ) *2 ] ; 
int nH - (nCS < 4) ? nCS : COLORSET [ (nCS -4 ) *2+l] ; 
pDIB->RotatePaletteIndex (200 , COLORS, nC*4); // Clothes 

pDIB->RotatePaletteIndex(220, COLORS, nH*4); // Hair 



too -uds 



t * . bmp 
caOO . uds 



ca*.bmp - cc*.bmp 
cdOO .uds 

cd*.bmp - cf*-bmp 
cgOO - uds 

eg*. bmp - cp*.bmp 
csOO .uds 

cs*-bmp - ct*.bmp 

cwOO . uds 

cw* . bmp - 
i * . bmp 
w* . bmp 
*/ 

// Add prefix for UDS resource name 

void CResMan : : Pref ixUDSOO (CStringS: strName) const 

{ 

int iDS = StrName . Find (• I •) ; 

if (iDS 0) // Found, no need to ... 

return; 
CString strDS; 

switch (tolower ( StrName [0] ) ) 

{ 

case 'f: StrDS = "t"; break; 
case ' c * : 

{ 

char ch = tolower ( strName [ 1 ]) ,- 

if (ch <= 'c') StrDS = "ca"; 

else if (ch <= 'f) strDS = "cd"; 

else if (ch <= 'p') strDS = "eg"; 

else if (ch <= 't') strDS ^ "cs"; 

else StrDS = "cw"; 
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} 



break; 

} 

case ' i ' : 

case 'w' : strDS = "cw"; break; 

case 'a': strDS = "a"; break; 

} 

StrDS += "00 I " ; 

strName = strDS + strName; 



int CResMan: :GetStageType (LPCTSTR szName) const 
{ 

if ( ! szName) 

return ST^INVALID; 
if ( (Istrlen (szName) < 5) || (szName [0] != •[•) 

return ST_OLD; 
if ((szName [2] == '2') &:& (szName [3] == '/')) 
{ 

if (szName [1] == 'u' ) 

return ST_MUD; 
if (szName [1] 'p') 

return ST PUBLIC; 

} 

return ST_OLD; 

} 

// strTitledN: stage filename, OUT: stage title) 
BOOL CResMan: :GetStageTitle (CString& strTitle) const 

CString strFi le ( strTitle ) ; 
ExtractStagelD (strFile) ; 
if (strFile. IsEmptyO ) 

return FALSE; 
ExpandResName (strFile , " . sit " ) ; 
CTextFileBuf f er tf b (gParser . GetMaxBuf f er () ) ; 
if ( !tfb.Load(strFile) ) 
{ 

return FALSE; 

} 



while (tfb. Reads t ring () ) 
{ 

gParser .CopyBuf f er (tfb.GetString () ) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if ( IgParser .SetLef tToken ('#')) 

continue ; 
CString strBuf; 

if ( igParser.GetValueRightToken ( StrBuf , ' 
continue ; 

if ( Istrcmpi (strBuf , "STAGE") ==: 0) 

{ 

gParser . SetLef tToken ('='); 

gParser . GetValueRightToken (strTitle 

// remove [u2/0000abcd] 

int i = StrTitle . Find (']') ; 
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if (i > 0) 
{ 

int n = strTitle .GetLength { ) - (i+1) ; 
CString s trTemp { strTitle) ; 
StrTitle = strTemp . Right (n) ; 

} 

return TRUE; 

} 

} 

return FALSE; 

} 

// SATYA CHANGES START 

// Function Name : LoadChnCatTree 
// Inputs : Path of the File 

// Purpose : Load the Room catigories from Specified file 
// Return : TRUE if it reads Successfully other wise FALSE 
BOOL CResMan :: LoadChnCatTree (LPCSTR path) 
{ 

TRACED ( "CResMan: : LoadChanTree () \n " ) ; 

CString strChanTreeFile = path; 
IncludePath (strChanTreeFile ) ; 

CTextFileBuf f er tf b (gParser . GetMaxBuf f er ( ) ) ; 

if ( !tfb. Load (StrChanTreeFile) ) 
{ 

return FALSE; 

} 

ExcludePath (strChanTreeFile ) ; 
DeleteResourcesChnCatTree () ; 
tf b . SeekToBegin ( ) ; 

int i=0; // number of root items 

while (tfb.ReadStringO ) 

{ 

gParser.CopyBuffer (tfb.GetStringO ) ; 

if (gParser . IsCommentLine ( ) ) //At first, check if it's a 

comment line 

continue ; 
if (gParser . SetLef tToken ('#')) 
i + + ; 

} 

m_nChnCatTree - i ; 

m_pChnCatTree = new CChnCatTree [m_nChnCatTree] ; 

tf b - SeekToBegin ( ) ; 
i = 0; 

while (tfb.ReadStringO ) 
{ 

gParser . CopyBuf f er (tf b . GetString () ) ; 
if (gParser . IsCommentLine {) ) 
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continue ; 
if { IgParser . SetLef tToken ( ' # • ) || 

igParser .GetValueRightToken (m__pChnCatTree [i] . m_str Cat Name , 

) ) 

continue ; 

if ( IgParser .GetValueRightToken (m_pChnCatTree [i] .m_nNum, ' ; ' ) ) 
continue ; 

m_pChnCatTree [i] .m__pltem = new 
CChnCatTreeltem [m_pChnCatTree [i] .m_nNum] ; 
int j=0; 

while (tfb.ReadStringO ) 

{ 

gParser . CopyBuf f er ( tfb . GetString ( ) ) ; 
if (gParser - IsCommentLine ( ) ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser. SetLef tToken ('}')) 

break ; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break ; 

if 

( igParser , GetValueRightToken (m_pChnCatTree [i] . m_jpltem [ j ] . m_strl temName , ';')) 

continue ; 

m__pChnCatTree [i] . m_pltem [ j ] . m_ItemID . cx = i; 
m_pChnCa t Tree [i] . m_p Item [j ]. m_ItemID . cy = j; 

} 

i + +; 

} 

//TRACE ("# of Ads = %d\n" , m_nSpritesD) ; 
return TRUE; 

} 

// Function Name : DeleteResourcesChnCatTree 
// Inputs : none 

// Purpose : Delete the Room catigories from the memorey 
// Return : void 

void CResMan: : DeleteResourcesChnCatTree () 

{ 

if (m_pChnCatTree) 

delete [] m_pChnCatTree ; 
m_jpChnCatTree = NULL; 
m_nChnCatTree = 0; 

} 

// Function Name : GetNumSubltemChanTree 

// Inputs : Index (int) Index of the main Item 

// Purpose : It finds the total number of Subltems under that main Item 
// Return : int Number Sub items 

int CResMan :: GetNumSubltemChanTree (const int nindex) const 

{ 

if (nindex >= m_nChnCatTree ) 
return -1; 
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return m_pChnCatTree [nindex] .m_nNum; 

} 

// Function Name : GetNameSubltemChanTree 

// Inputs : (int) cx Index of main Item (int) cy -index Subitem 

// Purpose : It retuen the name of th Item 

// Return : Name (CString) name of the Item 

CString CResMan :: GetNameSubltemChanTree (const int cx, const int cy) const 
{ 

if (cx >= m_nChnCatTree) 

return _T(" ") ; 
if (cy >= m_pChnCatTree [cx] .m_nNum) 

return _T ( " ") ; 
return m_pChnCatTree [cx] . m_jpltem [cy] . m_strItemName ; 

} 

// Function Name : GetNameSubltemChanTree 

// Inputs : (int) cx - - Index of main Item (int) cy -index Subitem 

// Purpose : It retuen the name of th Item 

// Return : Name (CString) name of the Item 

CString CResMan :: GetNameChanTree (const int nindex) const 

{ 

if (nindex >= m_nChnCatTree ) 

return _T ( " " ) ; 
return mjChnCatTree [nindex] . m_strCatName ; 

} 

// Function Name : GetLatestDynamicBanner 

// Inputs : Name for the Dynamic banner 

// Purpose : It finds the name of the Dynamic Banner 

/ / Return : Name of the Dynamic Banner 

/ /CHANGES_MADE_FOR_UNICHAT_2 

BOOL CResMan :: GetLatestDynamicBanner ( CString &BannerPath) 
{ 

CString MainCat , SubCat ; 

MainCat = GetNameChanTree (m_iMainCat ) ; 

SubCat = GetNameSubltemChanTree (m_iMainCat,m_iSubCat) ; 
CString strBannerlD = MainCat + " - > " +SubCat ; 

//m_strResPath 
CString strFileName = 
GetUnichatProf ileString (m_strDynamicBannerLocalPath, strBannerlD, " DYBANNERPATH 

" ) ; 

if (strFileName. IsEmptyO ) 

//unable to get the dynamic banner file 
return FALSE; 

} 

StrFileName += _T(".bmp"); 

CString strcurrFilePath = m_strResPath + strFileName ; 

CString strModtime = 
GetUnichatProf ileString (m_strDynamicBannerLocalPath, strBannerlD, "LASTMODIFIED 

") ; 

COleDateTime dtModRemoteBannerTime ; 
dtModRemoteBannerTime - ParseDateTime (strModtime) ; 
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BOOL bBannerDownLoad = FAJLiSE; 
CFileFind FileFinder; 

if (FileFinder . FindFile ( strcurrFilePath) ) 

{ 

FileFinder . FindNextFile ( ) ; 
FILETIME tBannerCreateTime ; 

FileFinder . GetCreationTime {&tBannerCreateTime ) ; 
COleDateTime dtLocalDyBannerTime ( tBannerCreateTime ) ; 
//if the remote time of the Dyanmic banner is greater than 3 
file timetime 

if {dtModRemoteBannerTime > dtLocalDyBannerTime) 

{ 

bBannerDownLoad = TRUE; 

} 

} 

else 

{ 

bBannerDownLoad = TRUE; 

} 

if (bBannerDownLoad) 
{ 

BOOL bResult = FALSE; 

// Down load the from ftp file 

if (m_pInetSes == NULL) 

{ 

m_pInetSes = new CInternetSession ; 
ASSERT (m_pInetSes != NULL); 

} 

if (m_pFtpCon == NULL) 

{ 

m_pFtpCon - m_j)InetSes- 
>GetFtpConnection (_T ( "www. unichat - com" ) , 

_T ( "devQunichat . com" ) , 

_T ( "homel" ) 

) ; 

ASSERT (m_pFtpCon!=NULL) ; 

} 

//remote path only file name because the we are in correct 
CString strRemotePath = C_STR_FTP__DYNAMIC_ADS_PATH + 
_T ( "/ " ) +strFileName; 

//now down laod the Dynamic banner file to local directory 
bResult = m_pFtpCon- 
>GetFile (strRemotePath, strcurrFilePath, FALSE) ; 
if (bResult == FALSE) 
{ 

return FALSE; 

) 

} 

BannerPath = strcurrFilePath ; 
return TRUE; 
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} 

/ / CHANGE S_MADE_FOR_UN I CHAT_2 



BOOL CResMan : : AddDynamicBanner (CString BannerName) 

{ 

return TRUE; 



// SATYA CHANGES END 

void CResMan :: SetRoomCat igories ( int iMain, int iSub) 

{ 

m_iMainCat = iMain; 
m_iSubCat = iSub; 

} 

//CHANGES_MADE_FOR_UNICHAT_2 

CString* CResMan:: GetSpriteHyperlink ( const int nID) 

{ 

CString HyperLink ; 

if ( IsDynamicBanner (nID) ) 

{ 

// Open the URL where we can the Url form the Server 
//m__pInetSes->OpenURL ( ) ; 

// Read the Hyper link in to the String and pass 
// copy to the Sting and return. . 
//return &:HyperLink 
// return & (m_aSI [nID] , m_strHyperlink) ; 

CString MainCat , SubCat ; 

MainCat = GetNameChanTree (m_iMainCat ) ; 

SubCat = GetNameSubltemChanTree (m_iMainCat , m_iSubCat ) ; 
CString strBannerlD = MainCat + " - > " +SubCat ; 
CString strURL - 

GetUnichatProf ileString (m_strDynamicBannerLocalPath , strBannerlD, "URL" ) 
Tn_aSI [nID] . m__strHyperlink = strURL; 
return & (Tn_aSI [nID] . m_strHyperlink) ; 

} 

else 

{ 

return & (m_aSI [nID] , m_strHyperl ink) ; 

} 

} 



/ /CHANGES_MADE_FOR_UNICHAT_2 

BOOL CResMan:: DownLoadDynatnicBannerInf o ( ) 

{ 

// down load the Ini file 
try 

{ 

if (m_pInetSes == NULL) 

{ 

m_pInetSes = new CInternetSession; 
ASSERT (mjJlnetSes != NULL) ; 

} 
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if {m_pFtpCon == NULL) 

{ 

m_pFtpCon = m_pInetSes- 
>GetFtpConnection (_T ( " www . unichat . com" ) , 

_T { "dev@unichat . com" ) , 

_T { "homel" ) 

) ; 

ASSERT (m__pFtpCon 1 =NULL) 

} 



BOOL bResult =:m_pFtpCon- 
>SetCurrentDirectory (C_STR_FTP_DYNAMIC_ADS__PATH) ; 
if {bResult == FALSE) 

{ 

AfxMessageBox (_T ( "Unable change the directory on FTP 
server . " ) , MB_OK | MB_ICONSTOP) ; 

return FALSE; 

} 

//now down laod the . ini file to local directory 

m_strDynamicBannerLocalPath - m_strResPath + 
C_STR__DYNAMIC_BANNER_INI_FILE ; 

bResult - m_pFtpCon- 
>GetFile (C_STR_DYNAMIC_BANNER_INI_FILE , m_strDynami cBannerLocal Path , FALSE) 

if (bResult FALSE) 

{ 

AfxMessageBox (_T ( "Unable get the file from on FTP 
server.") , MB_OK | MB_ICONSTOP) ; 

return FALSE; 

} 

} 

catch {CInternetException *pE) 
{ 

TCHAR szBuf f er [2048] ; 

memset ( szBuf f er , 0 , 2048) ; 

pE- >GetErrorMessage (szBuf f er , 2 04 8 ) ; 

AfxMessageBox (szBuffer,MB_OK I MB_ICONSTOP) ; 



if (m_pInetSes) 

{ 

delete m_pInetSes; 
m_pInetSes = NULL; 

} 

pE- >Delete ( ) ; 
return FALSE; 

} 

return TRUE; 

} 

/ /CHANGES_MADE_F0R_UNICHAT_2 
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CString CResMan:: GetUnichatProf ileString (CString strlniFi lePath , CString 

strKeyName , CString strSect ionName ) 

{ 

TCHAR szBuf f er [1024] ; 
memset (szBuf f er, 0 , 1024) ; 

GetPrivateProf ileString (strKeyName, s trSect ionName , NULL, szBuf f er, 1024 , st 
rIniFilePath) ; 

CString strResultstrResult = szBuffer; 
return strResultstrResult; 

} 
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// ResMan: Resource Manager 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 

// UNICHAT NETWORKS INC 

#ifndef RESMAN_H 

#define RESMAN_H 

#include <afxinet.h> 
#include "Behavior. h" 

1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 f 1 11 1 1 1 1 1 / 1 1 1 1 / 1 1 1 / 1 

//#include "UCServerSession . h" 

class CDIB; 

class CPhasedSprite ; 

class CActor; 

class CTextFileBuf f er ; 

class CSound; 

enum UC2CHANNEL_TYPE 
{ 

ST_INVALID, 

ST_OLD, // Old version 

ST_MUD, // MUD mode 

ST_PUBLIC // User Creatable 

}; 

// SATYA CCHANGES START 
class CChnCatTreeltem 

{ 

public : 

CSize m_ItemID; 

CString m_strItemName ; 

}; 

class CChnCatTree 

{ 

public : 

CChnCatTree ( ) ; 

virtual -CChnCatTree () ; 

CString m_strCatName ; 

int m_nNum; 

CChnCatTreeltem* m_pltem; 

}; 

// SATYA CHANGES END 

class CResMan : public CObject 

{ 

public : 

BOOL AddDynamicBanner (CString BannerName) ; 

CString GetUnichatProf ileString ( CString strlniFilePath , CString 
strKeyName , CString strSectionName) ; 
CResMan ( ) ; 
virtual -CResMan (); 

class CSpritelnfo 
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public : 

WORD 



ID 



}; 



CString 

CSize 
CSize 
CString 



GetType 0 ; 

m_strName; // should be an internal resource 

m__sColRow; // # of Columns and Rows of the Cells 
m_sEarth; // Center of Earth (offset) 
m_strHyperlink; 



class CWaveData 

{ 

public : 

CString 
CSound* 

}; 

// Attributes 
int 



m_strName ; 
m__pWave ; 



/ / resource name 



GetNumSprites ( ) const 



{ return m_nSprites; } 



int GetSpritelD (const CStringfic strName) const ; 

WORD GetSpriteType (const int nID) const 

{ return m_aSI [nID] . GetType (); } 
// C++ cannot differentiate const int and const CStringS: ? 
WORD GetSpriteTypeByName (const CString& strName) const; 

CString* GetSpriteName ( const int nID) 

{ return ( (nID >= 0) && (nID < m_nSprites) ) ? 
Sc (m_aSI [nXD] .m_strName) : NULL; } 

CSize GetSpriteColRow (const int nID) const 

{ return m_aSI [nID] .m_sColRow; } 
CPoint GetSpriteEarth (const int nID) const 

{ return m_aSI [nID] .m_sEarth; } 
CString* GetFileName ( ) { return &m_strResFile ; } 

CString* GetResPathO { return &m_strResPath; } 

int GetNumResFiles ( ) const { return m_nResFiles; } 

int GetNumActorDescs ( ) const { return m_nActorDescs ; } 

CActorDesc* GetActorDesc (const WORD nCharlD) 

{ return (nCharlD < m_nActorDescs ) ? 
&m_aActorDesc [nCharlD] : NULL; } 

CBehavior* GetActorBehavior (const WORD nCharlD, const int bi); 



NULL; 



int 
int 

CString* 



int 

CString* 
} 

int 
int 

CString* 



GetWavelD (const CString&i strName) const; 
GetMIDIID (const CString&i strName) const; 
GetMIDIName (const int nID) 

{ return (nID < m^nMIDIs) ? 5cm_aMIDI [nID] 



GetNumStageNames ( ) const 



NULL ; } 
{ return m_nStageNames ; 



GetStageName (const int nID) 

{ return (nID < m_nStageNames) ? &:m_aStageName [nID] : 

GetStageType (LPCTSTR szName) const; 

GetNumServerlPs ( ) const { return m_nServerIPs ; 

GetServerIP (const int n) 

{ return (n < m_nServerIPs ) ? &m_aServerIP [n] : NULL; 
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int 

m_nBubbleTextLimit ; } 
#ifdef _MALL 
int 

#else 

int 

#endif 

int 

m_nBubbleTime ; } 
int 



GetBubbleTextLimit ( ) const 

GetDef aultBubbleTextLimit () const 
GetDef aultBubbleTextLimit () const 
GetBubbleTime ( ) const 
GetDef aultBubbleTime ( ) const 



{ return 

{ return 255; } 
{ return 100; } 

{ return 
{ return 4 000; } 



// Operations 
void 
BOOL 
BOOL 
void 

filename only- 
void 
void 
void 
BOOL 
void 



DeleteResources () ; 

Load(LPCSTR path- "u2res000 , rit " ) ; 
SetResPath (LPCSTR path=NULL) ; 
MakeResName (CStringSc strName) const; 



// Extract 



ExpandResName (CStringfi: strName, LPCSTR szExt^NULL) const; 
ExcludePath (CStringS: strName) const; 
IncludePath (CString&i strName) const; 
ExtractStagelD (CString& strName) const; 

MakeStageName (CStringfic strName, const BOOL bPublic , const 
BOOL bHome= FALSE) const; 

BOOL GetStageTitle (CStringSc strTitle) const; 



void 



PrefixTJDSOO (est ring & strName) const; 
PlayWave ( const int nID) const; 



{ m_bMute = bMute; } 



const ; 



BOOL 

void SetMute (const BOOL bMute) 
// SATYA CHANGES START 

void DeleteResourcesChnCatTree 0 ; 

BOOL LoadChnCatTree (LPCSTR path= "uc_chnl_cat . cpc " ) ; 

int GetNumChanTree ( ) const {return m_nChnCatTree ; } ; 

CString GetNameChanTree (const int nindex) const; 

int GetNumSubltemChanTree (const int nindex) const; 

CString GetNameSubltemChanTree (const int cx, const int cy) 

BOOL GetLatestDynamicBanner (CString &BannerPath} ; 

CString* GetSpriteHyperlink ( const int nResID) ; 
// SATYA CHANGES END 



// DIB Management 

CDIB* LoadDIB (LPCSTR szResName); 

CDIB* LoadDIB (const WORD wResid, const BOOL 

bMasterPalette-FALSE) ; 

CPhasedSprite* LoadPhasedSprite (LPCSTR szResName, const BOOL 
bDIBReuse=TRUE, int nResID = -1); 

CActor* LoadActor ( const int nCharlD, const int 

nColorSet=0, const BOOL bME=FALSE) ; 

void DeleteDIB (CDIB* pDIB) ; 

void RemoveAllDIBs ( ) ; 

UINT LoadMasterPalette (CDIB* pDIB) const; 

void ShowOutline (CDIB* pDIB) const; 
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void 



const ; 



mt 



RotateActorColorSet {CDIB* pDIB, const int nColorSet) 
SetBubbleTextLimit (const int nBTL) { return 

{ return 



m_nBubbleTextLimit = nBTL; } 

int SetBubbleTime (const int nBT) 

m_nBubbleTime = nBT; } 



protected : 

BOOL LoadWave ( ) ; 

int CountHeaders (CTextFileBuf f er& tfb, const char* szToken) ; 

void Countltems (CTextFileBuf f er& tfb) ; 

int CountContents (CTextFileBuf f er& tfb, const char token= ' = • ) 

BOOL Initialize (CTextFileBuffer& tfb); 



mt 

CSpriteInf o* 
CObList 
CActorDesc* 
int 

CString* 
file name 
int 

CString* 
int 

CWaveData* 
int 

CString* 
int 

CString 
filename. ext only 

CString 
trailing ' \\ ' 

int 

BOOL 

int 

of the text in a bubble 

int m_nBubbleTime ; 

// SATYA CHANGES START 

int m_nChnCatTree ; 

CChnCa tTree * m_pChnCa t Tree ; 

CInternetSession *m__pInetSes ; 
CFtpConnection *m_pFtpCon; 
// SATYA CHANGES END 
private : 

/ / CHANGES_MADE_FOR_UNI CHAT_2 

int m_iMainCat; // Room main Catigory 

int m_iSubCat; // room sub catigorey 

// 

BOOL DovmLoadDynamicBannerInf o ( ) ; 
CString m_strDynamicBannerLocalPath; 



m_nSprites ; 

m_aSI ; 

m_olDIB; 
m_aActorDesc ; 

m_nActorDescs ; 
m_aStageName; // list of User- creatable stages' 



m_nStageNames ; 
m_aServerIP; 

m_nServerIPs ; 
m_aWave ; 

m__nWaves ; 
m__aMIDI; 

m_nMIDIs ; 
m__strResFile ; 

m_strResPath ; 

m_nResFiles ; 
m_bMute; // Turn Sound Off 

m nBubbleTextLimit ; 



// Resource Information: 
// Resource Path: with 



// Limit to the length 
// in millisec 



public : 

void SetRoomCatigories (int iMain,int iSub) 
BOOL CResMan : : IsDynamicBanner (int nResId) 

{ 
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if (nResId 312 | | nResId ==313 | | nResId == 315 | | nResId == 20 
nResId ==19) 

return TRUE; 

else 

return FALSE; 

} 

}; 

#endif // RESMAN H 



a 
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// ResMan: Resource Manager 
// 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 

// UNICHAT.COM 

// 

/* = = ^ = = = = = = = = = ^ = = = = = = = = = = = = = = = = = = = = 

; "resrcOOO . rit " for resrcOOO.bmc 



Resource Info Specification 
RIT: Resource Information Table 
Specification written by KEN Kim 
Feb 1998, UNICHAT 



; f ilename= [ ( col , row) ] [ , (cz . x, cz . y) ] t , nickname] ; 

filename = resource type flag(l) + name(4) + serial(3); 

resource type flag = t (TILE) , s (STATIC) , i (ANI) , a (AVATAR) , w(WAVE) 
m (MIDI) 

; (col, row) =^ # of cells in (column, row) ; for STATIC this attribute 
omitted 

(cz-x,cz.y) = center of z-order in (x, y) pixel position from the 1 

top 

; nickname ^ nickname for actor 

// Think of tile as a PhasedSprite 

#TIL= // TILE 

{ 

tcityOOl- (1,4) ; 

#STT= // STATIC Sprites 
{ 

ccity002= (23 , 28) ; // Earth Position 

}" 

#ANI= // ANIMATED Sprites 
( 

wroom001= (1, 17) , (34, 8) ; // 34,22 

iadvtOOO= (1 , 3) , (123 , 321) ; // not exist 

}** 

#AVT= // AVATAR 
{ 

aman_001= {11, 4), (27, 45), ''A°I; 

}** 

#SND= // SOUND 
{ 

wwhip; // wwhip.wav 

mtest; // mtest.mid 

} 

// Comments 

// Resources are sequentially numbered according to the order in RIT. 
// BMP file merger will read this info and then load each bitmap file 
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// with the same name as it's id (+.bm) . 
ACTOR SECTION 

(*i) : - change orientation, * 50%, / 25%, | 12%, - 0%, " don't USE_COLORKEY 
#ACTORBASE=nMSPT // Basic formula for all the actors 

#ACTOR=id // Overridden formula for special cases 

{ 

// nMSPT is Milliseconds per Tick 
// Behaviors 

0=nRepeatCount , (cell index ( , delay ticks (, displacement_x , 
displacement_y ( , sound id) )))...; 

// nRepeatCount = 0 for infinite loop, - value for pendulum movement 
// delay ticks; S fast; 10 = moderate; 15 = slow 

} 

#COACTOR= , . . 

#ACTORBASE= 
{ 

STANDF =1 , (0) ; 

STANDS =1, (8) ; 

}" 

#ACTOR=aman_0 0 0 ; 
{ 

SPECIAL =1, . . . 

}" 

#include "stdafx.h" 

#include "ResMan.h" 
^include '• Parser , h" 

#include "UC2Ani/DIB . h" 

#include "UC2Ani/PhSpri te . h" 

#include "Behavior .h" 

#include "Actor. h" 

extern CParser gParser; 

const char* RESFILE_FILTER = "Resource Information Tables {*. RIT) | *. RIT | " 

"All files {* . *) I * - * I I " ; 
const char* RES_BMPEXT = ".bmp"; // ".bm" 

static const PALETTEENTRY apeMASTER [2 56 ] = 
{ 

#include "UC2Master . pal " // 256 Color Table 

}; 

/////////////////////////////////////////////////////////////////// 

WORD CResMan: : CSpri telnf o : :GetType() 
{ 

switch ( tolower (m_strName [0] ) ) 

{ 
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case 


• t • 


return 


SPRITE 


TILE; 


case 




return 


SPRITE_ 


_WALL ; 


case 


, c . 


return 


SPRITE_ 


_STATIC; 


case 


' i ' 


return 


sprite' 


_PHASED; 


case 


•a' 


return 


sprite] 


_ACTOR ; 



} 

return -1; 

} 

1 1 1 1 1 1 1 1 / 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

CResMan: :CResMan() 
{ 

m_nSprites = 0; 

m_aSI = NULL; 

m__nActorDescs - 0; 

m^aActorDesc = NULL; 

m_nRes Files ~ 1; 

m_strResFile . Empty ( ) ; 

} 

CResMan : : -CResMan ( ) 

{ 

DeleteResources () ; 

} 

void CResMan :: DeleteResources ( ) 
{ 

if (m_aSI) 

delete [] m_aSI; 
m_aSI = NULL; 

m_nSprites - 0; 
if {m_aActorDesc) 

delete [} m_aActorDesc ; 
m_aActorDesc - NULL; 

nn_nActorDescs = 0; 

RemoveAllDIBs () ; 

} 

void CResMan :: Countltems (CStdioFile& f, char* szBuf) 

{ 

m_nSprites = 0; 
int nAD^O; 

while ( f - ReadString (szBuf , gParser . GetMaxBuf f er { ) ) ) 

{ 

gParser . CopyBuf f er (szBuf ) ; 

if {gParser . I sComment Line () ) // At first, check if it's 

comment line 

continue ; 
if { ?gParser.SetLeftToken{ ' # ' ) || 

! gParser . GetValueRightToken { szBuf , ' = ' ) ) 

continue; // get next line 

if ( (Istrcmpi (szBuf , "TIL") ==0) || // matching! 

(Istrcmpi (szBuf , "STT") 0) || 

(Istrcmpi (szBuf , "ANI") ==0) || 

(Istrcmpi (szBuf , "AVT") == 0)) 

{ 
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m_nSprites += CountContents ( f , szBuf ) ; 

} 

else if (Istrcmpi (szBuf , "ACTOR") ==0) // matching i 

{ 

m_aActorDesc [nAD+ + ] . SetNumBehaviors {CountContents {f , 

szBuf ) ) ; 

} 

} 

f . SeekToBegin ( ) ; 

} 

// Count the number of lines that matches a specified string between and 
I _ t 

int CResMan : : CountHeaders (CStdioFileS: f, char* szBuf, const char* szToken) 

{ 

int i=0; 

while (f . ReadString (szBuf , gParser . GetMaxBuf f er ( ) ) ) 

{ 

gParser . CopyBuf f er {szBuf ) ; 

if (gParser . IsCommentLine 0 ) //At first, check if it's a 

comment line 

continue ; 

if (! gParser. SetLeftToken( ) || // get next line 
! gParser . GetValueRightToken ( szBuf , ' = ' ) ) 
continue ; 

if ( Istrcmpi (szBuf , szToken) === 0) // matching! 
i + + ; 

} 

f . SeekToBegin ( ) ; 
return i; 

} 

// Count the number of lines that include between { and } 

int CResMan :: CountContents (CStdioFilefic f, char* szBuf) 

{ 

int i=0; 

while {f . ReadString (szBuf , gParser . GetMaxBuf fer ()) ) 

{ 

gParser . CopyBuf fer (szBuf) ; 

if (gParser . IsCommentLine 0 ) //At first, check if it's a 

comment line 

continue ; 

if (gParser . SetLeftToken ('{') ) // Begin 

{ 

if (gParser . SetLeftToken ('}') ) // {} 

break; 

continue; // get next line 

} 

if (gParser , SetLeftToken ('}') ) // End of contents 

break; // out of while loop 

if (gParser . SetLeftToken ('=')) 

i++; // Anyway, we should increase the counter 

} 

return i ; 

} 

BOOL CResMan: : Initialize (CStdioFile& f, char* szBuf) 
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{ 

DeleteResources ( ) ; 

m_nActorDescs = CountHeaders ( f , szBuf, "ACTOR"), - 
//////////// Initialize Actor Behaviors 
if (m_nActorDescs <= 0) 

{ 

AfxMessageBox ( "Resource file: No behaviors found!"); 
// return FALSE; 

} 

m__aActorDesc = new CActorDesc [m_nActorDescs] ; 

TRACE{"# of Actor Descriptions = %d\n" , m_nActorDescs) ; 

Count Items ( f , szBuf ) ; 

//////////// Initialize Sprite Informations 
if (m_nSprites <= 0) 

{ 

AfxMessageBox { "Resource file: No sprites found!"); 
return FALSE; 

} 

m_aSI = new CSpriteInf o [m_nSprites] ; 
TRACE ("# of Sprites = %d\n", m_nSprites) ; 

return TRUE; 

} 

BOOL CResMan: :SetResPath{LPCSTR path) 
{ 

m_strResPath = path; 
int len = Istrlen (path) ; 
if (path[len-l] != 'W') 

m_strResPath += "\\"; 
return TRUE; 

} 

// Modify this so that it can handle multiple RIT files (resrcOO? . rit ) 

BOOL CResMan: : Load (LPCSTR path) 

{ 

if ((path == NULL) II (Istrlen (path) 0)) 
{ 

: : SetCurrentDirectory (m_strResPath) ; 

// Show an Open File dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 
m_strResFile, // Initial file name 

OFN_FILEMUSTEXIST | O FN_H IDE READONLY , 
RESFILE_FILTER) ; 

if (dlg.DoModal 0 == IDOK) 

m_strResFile = dig . GetPathName ( ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
m_strResFile = path; 




A-407 



ResManO.cpp 

IncludePath (m_strResFile) ; 

} 

char* szBuf = new char [gParser . GetMaxBuf f er { ) ] ; // ReadString (CStringi) 
has a bug ! 

TRY 
{ 

CFile f; 

if ( ! f -Open (m_strResFile, CFile :: modeRead \ 
CFile: : shareDenyWrite) ) 

{ 

TRACElC'File Open Failure: %s\n" , m_strResFile) ; 
delete [] szBuf; 
return FALSE; 

} 

UINT hLZFile = : : LZInit ( f . m_hFile ) ; 

LONG iFileSize = : : LZSeek ( f . m_hFile , OL, 2); // points to the 

end of file 

TRACE ("FileSize=%ld bytes\n" , iFileSize); 

: :LZSeek {hLZFile, 0, 0); // seek to beginning of file 
char* pTextSrc = new char [lFileSize+1 ] ; 
int iSytes = :: LZRead (hLZFile , pTextSrc, IFileSize) ; 
if (iBytes != ( int ) IFileSize ) 

{ 

TRACE ("File read failure! %s : %d bytes read\n" , 
m_strResFile , iBytes); 

delete [] szBuf; 
return FALSE; 

} 

: :LZClose (hLZFile) ; 

// CStdioFile f {m_strResFile , CFile :: modeRead | CFile :: shareDenyNone 

I CFile : : typeText ) ; 

ExcludePath (m_strResFile) ; 

if (• Initialize (f , szBuf ) ) 
{ 

f .Close 0 ; 
delete [] szBuf; 
return FALSE; 

} 



int 1=0; 
int ad=0; 
CString strTemp; 



while (f .ReadString (szBuf , gParser . GetMaxBuf fer () ) ) 
{ 

gParser . CopyBuf f er (szBuf ) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if ( !gParser . SetLef tToken ('#•)) 

continue ; 

if ( ! gParser .GetValueRightToken (szBuf , ' = ' ) ) 
continue ; 
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/ / 1 1 1 1 / 1 1 11 1 / / 1 1 1 / n / / 1 1/ 1 1 1 1 / III 1 1 / 1 1 1 / 1 1 / 1 1 / 1 1/ 1 1 1/ 1 1 / 1 1 1 

ENVIRONMENT SECTION 

if (Istrcmpi (szBuf , "TIL") == 0) // matching! 

{ 

while (f .ReadString (szBuf , gParser . GetMaxBuf f er { ) ) ) 

{ 

gParser . CopyBuf f er (szBuf ) ; 
if (gParser . I sCommentLine {) ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

breaks- 
continue ; 

} 

if (gParser. SetLef tToken ( • } ' ) ) 
break; 

if ( I gParser .GetValueRightToken (strTemp, '=')) 

continue ; 
m_aSI [i] .m_strName = strTemp; 

gParser . GetValueRightToken (m_aSI [i] .m_sColRow, 

• , ' ) ; 

m_aSI [i] .m_sEarth = CSize ( 64/2 , 0) ; 
i + + ; 

} 

} 

else if (Istrcmpi (szBuf , "STT") == 0) 

{ 

while (f -ReadString (szBuf , gParser . GetMaxBuf fer ()) ) 
{ 

gParser . CopyBuf fer ( szBuf ) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}') ) 

break; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break; 

if (! gParser . GetValueRightToken (strTemp, '=')) 

continue ; 
StrTemp . MakeLower ( ) ; 
m__aSI [i] .m_strName = strTemp; 
m_aSI [i] .m_sColRow = CSize(l, 1); 
gParser . GetValueRightToken (m_aSI [i] .m_sEarth, 

I.I). 

i + + ; 

} 

} 

else if (Istrcmpi (szBuf , "ANI") 0) 

{ 

while (f .ReadString (szBuf , gParser . GetMaxBuf fer ()) ) 

{ 

gParser . CopyBuf fer ( szBuf ) ; 
if (gParser . IsCommentLine 0 ) 
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• , ' ) ; 

• ; ' ) ; 



• , • ) ; 
' , • ) ; 



} 

else 

{ 



continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser. SetLef tToken ( ' } ' ) ) 

break; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break ; 

if ( 1 gParser . GetValueRightToken {strTemp , '=')) 

continue ; 
strTemp . MakeLower ( ) ; 
m_aSI [i] .m_strName = strTemp; 

gParser . GetValueRightToken (m_aSI [i] .m__sColRow, 
gParser . GetValueRightToken (m_aSI [i] . m_sEarth, 
i++; 

} 

if (Istrcmpi (szBuf , "AVT") 0) 
while (f . ReadString { szBuf , gParser . GetMaxBuf fer {)) ) 

{ 

gParser . CopyBuffer (szBuf) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken (•}•) ) 

break ; 
continue ; 

} 

if (gParser . SetLef tToken ('}')) 
break ; 

if (! gParser . GetValueRightToken (strTemp , 

continue ; 
StrTemp . MakeLower { ) ; 
m_aSI [i] . m__strName = strTemp; 

gParser . GetValueRightToken (m_aSI [i] . m_sColRow, 
gParser . GetValueRightToken (m_aSI [i] .m_sEarth, 
i + +; 



// 

szBuf ) 



Ise if (Istrcmpi (szBuf , "ACTOR") 



0) 



Ise 



m_aActorDesc [ad++] . Load { f , szBuf ) ; 
if (ad >= m_nActorDescs ) 
break; 



TRACEl ("Unknown Data type in Cast file(%s) I\n", 
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} 

f . Close { ) ; 
delete [] szBuf; 
#ifdef _DEBUG 

for (i=0; i < m_nSprites; 

TRACE ( •■%d) \t%s= (%d, %d) , %d) \n", i, m_aSI [i] .m_strName, 

m_aSI [i] .m_sColRow. cx, m_aSI [i] . m__sColRow . cy , 

m_aSI [i] .m_sEarth . cx, m_aSI [i] . m_sEarth . cy ) ; 
for (i=0; i < ad; i++) 

TRACE ( "%d) \t%d behaviors\n" , i, 
m__aActorDesc [i] . GetNumBehaviors () ) ; 
#endif 

return TRUE; 

} 

CATCH ( CFileException, e ) 
{ 

#ifdef _DEBUG 

afxDump << "File could not be opened " << e->m__cause << 

"\n" ; 

#endif 

delete [] szBuf; 
return FALSE; 

} 

END_CATCH 

} 

int CResMan : :GetSpriteID (const CString& strName) const 

{ 

for (int i=0; i < m_nSprites; 1++) 

{ 

if (Istrcmpi (m_aSI [i] .m_strName, strName) == 0) 
return i ; 

} 

return -1; // Not Found! 

} 

WORD CResMan : :GetSpriteTypeByName (const CStringS: strName) const 

{ 

CString strRes (strName) ; 

MakeResName (strRes ) ; 

int i = GetSpritelD (strRes) ; 

return (i >= 0) ? GetSpri teType ( i ) : 0; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 III 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 

II DIB Management 

CDIB* CResMan: :LoadDIB (LPCSTR szResName) 
{ 

CString strFile (szResName) ; 
ExpandResName (strFile, RES_BMPEXT) ; 
strFile , MakeLower ( ) ; 
CDIB* pDIB; 

POSITION pos = m_olDIB . GetHeadPosition ( ) ; 
while (pos) 

{ 

pDIB = (CDIB* ) m_olDIB . GetNext (pos) ; // Increment position, 
if (pDIB) 



A-411 



ResManO.cpp 



(excluding path) 
} 



ASSERT (pDIB->IsKindOf (RUNTIME_CLASS (CDIB) ) ) ; 
CString* pstr = pDIB- >GetName ( ) ; 

if (*pstr == strFile) // compare with only filename 
return pDlB; 



} 



} 

// File not found in current resource bank. 

// So create a new one and add it to the bank. 

pDIB = new CDIB; 

if ( !pDIB->Load (StrFile) ) 

{ 

TRACE("%s: Resource Load Failurel\n", strFile) ; 
delete pDIB; 
return MULL; 

} 

MapToMasterPalette (pDIB) ; 
m_olDIB . AddTail (pDIB) ; 
return pDIB; 



CDIB* CResMan: iLoadDIB (const WORD wResid) 
{ 

CString strName; 

strName . Format ( "RES : %d" , wResid) ; 
CDIB* pDIB; 

POSITION pos = m_olDIB . GetHeadPosition ( ) ; 

while (pos) 

{ 

pDIB = (CDIB*) m_olDIB.GetNext (pos) ; // Increment position. 

if (pDIB) 

{ 

ASSERT (pDIB->IsKindOf (RUNTIME_CLASS (CDIB) ) ) ; 
CString* pstr = pDIB- >GetName ( ) ; 
if {*pstr == StrName) 
return pDIB; 

} 

} 

// File not found in current resource bank. 
// So create a new one and add it to the bank. 
pDIB = new CDIB; 
if ( IpDIB- >Load (wResid) ) 

{ 

TRACE ("%d: Resource Load Failure !\n", wResid); 
delete pDIB; 
return NULL; 

} 

m_olDIB. AddTail (pDIB) ; 
return pDIB; 

) 

// Load the specified resource into CPhasedSprite 

// and sets initial conditions such as # of cells. 

// The caller is responsible for deleting this sprite. 

CPhasedSprite* CResMan : : LoadPhasedSprite (LPCSTR szResName, const BOOL 
bDIBReuse) 
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CPhasedSprite* pPS; 

if (bDIBReuse) // Reuse Mechanism 

{ 

CDIB* pDIB = LoadDIB (szResName) ; 
if (IpDIB) 

return NULL; 
pPS = new CPhasedSprite; 

pPS->SetDIB (pDIB) ; // link DIB resource to this sprit 

} 

else //Do not Reuse 

{ 

CString st rFi le ( szResName ) ; 
ExpandResName (strFile, RES_BMPEXT) ; 
pPS - new CPhasedSprite; 
if ( !pPS->Load (strFile) ) 
{ 

delete pPS; 

TRACE("%s: Resource Load Failure!\n", strFile); 
return MULL; 

} 

ASSERT {pPS->GetDIB() ) ; 
MapToMasterPalette (pPS->GetDIB ( ) ) ; 
#ifdef MAPEDITOR 

if (GetSpriteType (GetSpritelD (szResName) ) == SPRITE__ACTOR) 
{ // Show Outline 

static int nColorSet = 1; 

RotateActorColorSet (pPS->GetDIB { ) , nColorSet ) ; 

nColorSet++ ; 

if (nColorSet > 4) 

nColorSet = 1; 

} 

#endif 

} 

int i = GetSpritelD ( szResName) ; 
ASSERT (i >= 0) ; 

pPS->SetType (GetSpriteType (i) ) ; 
pPS->SetNumCells (GetSpriteColRow ( i ) ) ; 
pPS->SetEarth (GetSpriteEarth (i) ) ; 
return pPS ; 



CActor* CResMan :: LoadActor (const int nID) 

{ 

CActorDesc* pAD = GetActorDesc (nID) ; 

if (pAD) 

{ 

CString strMsg; 

strMsg . Format ( "Actor Description: %d not found!", nID) ; 
Af xMessageBox { StrMsg) ; 
return NULL; 

} 

CPhasedSprite* pPS = LoadPhasedSprite ( *pAD- >GetResName () , FALSE) 
if (!pPS) 

return NULL; // 
CActor* pA = new CActor; 



A-413 



ResManO.cpp 



CPhasedSprite* pPSDest = {CPhasedSpri te* ) pA; 
*pPSDest = *pPS; 
delete pPS; 
pA->SetID (nID) ; 
return pA; 

} 

CBehavior* CResMan :: GetActorBehavior (const int ad, const int bi) 

{ 

CActorDesc* pAD = GetActorDesc (ad) ; 
ASSERT (pAD) ; 

CBehavior* pBeh = pAD- >GetBehavior (bi ) ; 

if ( IpBeh) // If not found in this ActorDesc, use that of the standard 
instead 

{ 

pAD = GetActorDesc { 0 ) ; // Standard ActorDesc 
ASSERT (pAD) ; 

return pAD- >GetBehavior (bi ) ; 

} 

return pBeh; 

} 

void CResMan: :DeleteDIB (CDIB* pDIB) 

{■ 

POSITION pos = m_olDIB . Find (pDIB) ; 
if (pos) // Hunt for pDIB 

{ 

m_olDIB . RemoveAt (pos) ; 
delete pDIB; 

} 

} 

// Be sure not to do use DIBs allocated here elsewhere! ! ! 
void CResMan :: RemoveAllDIBs ( ) 

{ 

// Walk down the list deleting objects as we go. 

//We need to do this here because the base class simply deletes the 
pointers . 

POSITION pos = m_olDIB , GetHeadPosition 0 ; 
CDIB* pDIB; 
while (pos) 

{ 

pDIB = (CDIB*) m_olDIB.GetNext (pos) ; // Increment position. 

if (pDIB) 

{ 

ASSERT (pDIB->IsKindOf (RUNTIME_CLASS (CDIB) ) ) ; 
delete pDIB; 

} 

} 

// Now call the base class to remove the pointers. 
m_olDIB . Remove Al 1 ( ) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 / 1 1 1 1 1 1 H I Naming Handling Methods 
// Extract filename only 

void CResMan :: MakeResName {CString& strName) const 
( 
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int i = strName . ReverseFind ( ' \\ ' ) ; 

if (i >= 0) 

{ 

char* p = strName -GetBuf f er (256) ; 
int j = StrName . ReverseFind ('-') ; 
if (j > 0) 

p[j] = NULL; // Exclude file extension 

p += (i + 1) ; 

CString strTemp ( (char*)p) ; 
StrName . ReleaseBuffer ( ) ; 
StrName = strTemp ; 

} 

} 

void CResMan : : ExcludePath (CString& strName) const 

{ 

int i = StrName . ReverseFind (' \\ ') ; 

if (i >= 0) 

{ 

char* p = StrName .GetBuf fer (256) ; 
p += (i + 1) ; 

CString strTemp { (char*)p) ; 
StrName . ReleaseBuffer ( ) ; 
StrName = strTemp; 

} 

} 

void CResMan :: IncludePath (CStringfic strName) const 
{ 

if (strName . Find (• \\ ' ) >= 0) 
return; 

CString strFN (m_st rResPath) ; 
strFN += StrName; 
StrName = strFN; 

} 

// tileOOOO : tcityOOO = = > C : \UC2 \Data\ tileOOOO : tci tyOOO . bmp 

void CResMan :: ExpandResName (CString& strName, LPCSTR szExt) const 

{ 

CString strFN (m^strResPath) ; 

if ( (strName. Find (• \\ ' ) >= 0) || ( strName . Find ('.' ) >= 0)) 

MakeResName (strName) ; 
StrFN += StrName; 
if (szExt) 

StrFN +=szExt; 
StrName = strFN; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 Palette Control 

// Be sure to call these methods before calling MapColorsToPalette 

UINT CResMan: :MapToMasterPalette (CDIB* pDIB) const 

{ 

return pDIB- >SetPalet teEntries ( 0 , 256, (const 
LPPALETTEENTRY) apeMASTER) ; 
} 
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void CResMan : : ShowOutline (CDIB* pDIB) const 

{ 

// Write Outline Color to Outline (Off) Index 

pDIB- >SetPaletteEntries (237 , 1, (const 
LPPALETTEENTRY)&(apeMASTER[24 0] ) ) ; 
} 

// nColorSet 1,2,3,4, 

void CResMan :: RotateActorColorSet (CDIB* pDIB, const int nColorSet) const 

{ 

int a = nColorSet; 
int b = nColorSet; 
if (nColorSet > 4) 

{ 

a = nColorSet / 4 ; 
b = nColorSet % 4; 

} 

pDIB->RotatePaletteIndex(200, 4*4, a*4) ; 
pDIB- >RotatePaletteIndex (220 , 4*4, b*4) ; 

} 
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//{ {no_dependencies} } 

// Microsoft Developer Studio generated include file 

// Used by UC2 . rc 

// 

#define IDD_ABOUTBOX 100 

#define CG_IDD_CONTROLPANEL 102 

#define CG__ID_VIEW_CONTROLPANEL 103 

#define IDP_SOCKETS_INIT_FAILED 104 

#define IDS_CLOSE_TEXT 105 

#define IDS_JOIN_CHANNEL_TITLE 106 

#define IDS_TIME_REPORT 107 

#define IDD_PP_MYINFO 107 

#define IDS_ABOUT_TEXT 10 8 

#define IDS_ERROR_TIMER 109 

#define IDS_ERROR_BROWSER 110 

#define IDS_UNICHAT_HOMEURL 111 

#define CG_IDD_HISTORYPANEL 112 

#define IDS_HISTORY_PANEL 113 

#define CG_ID_VIEW_HISTORYPANEL 114 

#define IDS_PROPSHT_CAPTION 115 

#define IDD_PP_CREATE_CHANNEL 116 

#de f ine IDS_DATA_TRANSMISS ION_DONE 116 

#define IDD_PP_CHANNEL 117 

#define IDS_TRANSFER_MEMBER_CHANNEL 117 

#define IDD_PP_ACTOR 118 

#define IDS_TRANSFER_MEiy[BER_ALL_CHANNEL 118 

#define IDD_PP_MEMBER1 119 

#define IDD_PP_MEMBER2 12 0 

#define DIB_ROOMKEY 122 

#define ID_INDICATOR_DATE 123 

#define ID_INDICATOR__TIME 12 4 

#define IDR__MAINFRAME 12 8 

#define IDR_UC2TYPE 12 9 

#define IDS_QUERY_LINE_BUSY 129 

#define IDD_DIALOG_LOGIN 130 

#define IDS_INVITE_SELECT_MEMBER 130 

#define IDD_CLOSE 131 

#define IDS_INVITE_OPEN_CHANNEL 131 

#define IDR_MENU__ACTOR 13 2 

#define IDS_INVITE_ERROR_MYSELF 132 

#define IDB_IL_CHANNEL 133 

#define IDC__ARROW_LT 134 

#define IDS_INVITE_OK 134 

#define IDC_ARROW_LB 135 

#define IDS_INVITE_FAIL 135 

#define IDC__ARROW_RT 13 6 

#define IDS_JOINED__CHANNEL 13 6 

#define IDC_ARROW_RB 137 

#define IDS_KICKOFF_REASON 137 

#define IDC_HGREP_DOWN 13 8 

#define IDS_MEMBER_ENTRY 13 8 

#define IDC_HGREP_UP 13 9 

#define IDS_MEMBER_EXIT 139 

#define IDD_DLG_MEMBER 14 0 

#define IDS_INVITATION 140 

#define IDS_PRIVATE_MESSAGE 141 

#define IDD INPUT INT 141 
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#define IDC_EDIT_HISTORy 102 0 

#define IDC_SB_ACTOR 1020 

#define IDS_LOGGING_ON_SERVER 1021 

#define IDC_ST_SECONDS 1021 

#define IDS_TRYING_BACKUP_ID 1022 

#define IDC_ST_VERSION 102 2 

#define IDC_STATIC_NICK 1023 

#define IDS_CONNECTION_FAILED 1023 

#define IDC_BTN_MUD 102 3 

#define IDS_ERROR_TIMEOUT 1024 

#define IDC_ST_STAGEID 1024 

#define IDS_ERROR_NOT_WIN95 1025 

#define IDC_LIST_MEMBER 1026 

#define IDS_ERROR_WRITE_REGISTRY 102 6 

#define IDC_EDIT_INT 1026 

#define IDC_STATXC_MESSAGE 1027 

#define IDS_ENTER_PASSWORD 102 7 

#define IDC_BTN_DEFAULT 102 7 

#define IDC_BTN_RENEW 102 8 

#define IDS_DE]y[0_l 102 8 

#define IDC_EDIT_EMAIL 102 8 

#define IDC_STATIC_CHANNEL_COUNT 102 9 

#define IDS_DEMO_2 102 9 

#define IDC_STATIC_MEMBER_COUNT 1030 

#define IDS_DEM0_3 103 0 

#define IDC_COMBO__SEX 1031 

#define IDC_BTN_INVITE 1031 

#define IDS_DEM0_4 1031 

#define IDS_DEMO_5 1032 

#define IDS_DEM0_6 1033 

#define IDC_STATIC_REALNAME 1034 

#define IDS_DEMO__7 1034 

#define IDS_DEM0_8 1035 

tdefine IDS_DEMO_9 103 6 

#define IDC_PUBLISH_EMAXL 103 6 

#define IDS_DEMO_10 1037 

#define IDC_COMBO_ETHNIC 103 7 

#define IDC_ST_ALIAS 1037 

#define IDS__DEM0_11 1038 

#define IDC_COMBO_WORK 1038 

#define IDS_DEM0_12 103 9 

#define IDC_ST_UNICHATID 103 9 

#define IDS_DEM0_13 1040 

#define IDC_EDIT_FNAME 104 0 

#define IDC_EDIT_CHANNEL_NAME 1041 

#define IDS_DEMO_14 1041 

#define IDC_ST_EMAIL 1041 

#define IDS_ACTOR_PROPSHT_CAPTIOM 104 2 

#define IDC__RADIO_PUBLIC 104 3 

#define IDS_SELECT_STAGE 1043 

#define IDC_ST_FNAME 1043 

#define IDC_RADIO_PRIVATE 1044 

#define IDS__MUD_MODE 1045 

#define IDS_EPILOGUE00 1046 

#define IDC_CHANNEL_TREE 104 6 

#define IDS_EPILOGUE01 1047 

#define IDC ST LNAME 1047 
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h. P 1 LjULjU (J Z 


I U 4 o 


ftder ine 


IDC 


CHANNELi CAT STATIC 


104 8 


XL ^ j: ' ^ 

#aer ine 


IDC 


LB BACKGROUND 


104 9 


#def ine 


IDS 


EPILOGUE03 


104 9 


#def ine 


IDC 


STATIC LANGUAGE 


1049 


#def ine 


IDS 


EPILOGUE 04 


1050 


#def ine 


IDC 


STATIC VERSION 


10 51 


#def ine 


IDS 


PROGRESS INIT BIND 


1051 


#def ine 


IDC 


_S T_HOME PAGE 


1051 


#def ine 


IDC_ 


_STATIC_UNITEL_ID 


1052 


#def ine 


IDS 


PROGRESS PREPARE 


1052 


#def ine 


IDC_ 


_S TAT I C_S EXAGE 


1053 


#def ine 


IDS_ 


PROGRESS DOWNLOAD FAIL 


1053 


#def ine 


IDS 


PROGRESS DOWNLOADED 


1054 


#def ine 


IDC 


ST SEX 


1054 


#def ine 


IDC 


EDIT TEXT 


1055 


#def ine 


IDS 


^PROGRESS ALL FILES DONE 


1055 


#def ine 


IDC_ 


_STATIC_TO 


1056 


#def ine 


IDS_ 


_CLO S E_ON_NE W_R I T 


1056 


#def ine 


IDC_ 


_CREATCHANNEL_TREE 


1056 


#def ine 


IDS 


CHANNEL OUT 


1057 


#def ine 


IDC_ 


RAD_CRCNL_ENG 


1057 


#def ine 


IDS 


RIT NO BEHAVIORS 


1058 


#def ine 


IDC_ 


_RAD_CRCNL_S PA 


1058 


#def ine 


IDS_ 


_R I T_NO_S PR I TE S 


1059 


#def ine 


IDC_ 


_ST_AGE 


1059 


#def ine 


IDC_ 


_RAD_CRCNL_KOR 


1059 


#def ine 


IDS 


_R I T_NO WAVE S 


1060 


#def ine 


IDC 


RAD CRCNL CHI 


1060 


#def ine 


IDS 


RIT NO MIDIS 


1061 


#def ine 


IDC 


RAD CRCNL JAP 


1061 


#def ine 


IDS 


RIT NO STAGES 


1062 


#def ine 


IDC 


RAD CRCNL OTH 


1062 


#def ine 


IDS 


RIT NO SERVERIPS 


1063 


#def ine 


IDC_ 


_ST_ETHNIC 


1063 


ftder me 


IDC_ 


_S TAT I C_P AS SWORD 


1063 


#def ine 


IDS 


ENTER BUBBLE TEXT LIMIT 


1064 


#def ine 


IDS 


ENTER BUBBLE TIME 


1065 


#def ine 


IDC 


ST WORK 


1065 


ft aer me 


IDS 


BTN MUD 


1066 


#def ine 


IDS 


BTN UoER 


10 67 


ftdet me 


IDS 


HELP SIMPLE 


1068 


#def ine 


IDC 


b i LANCjUACjIIj 


10 7 0 


#def ine 


IDC 




10 73 


^^de f ine 


XJJL. 




LU / Z> 


ttde f ine 


IDC 


iliDXi iEL rAA 


J. U / / 


ftdet me 


IDC 


EDIT TEL HOME 


10 81 


ftdef ine 


IDC- 


EDir ADDR Clli 


110/ 


#def ine 


IDC 


CB COUNTRY 


1115 


#def ine 


IDC] 


ED I T_TEL_WORK 


1125 


#def ine 


IDC_ 


_ED I T_TEL_OTHER 


1129 


#def ine 


IDC_ 


_EDIT_ADDR_ZIP 


1143 


#def ine 


IDC] 


ED IT_ADDR_STATE 


1144 


#def ine 


IDC] 


_RADIO_ENG 


1146 


#def ine 


IDC_ 


_RADIO_KOR 


1147 


#def ine 


IDC_ 


_RADIO_CHI 


1148 


#def ine 


IDC 


RADIO JAP 


1149 
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ff der me 




115 0 


#def ine 


IDC RADIO OTH 


1151 


#aer me 


ID VIEW ADJUST WINDOW 


32771 


ftde t me 


ID VIEW PAUSE 


32772 


ftaet me 


ID ACTOR VOICE 


32773 


ftaet me 


ID_ACTOR_MOVE_F 


32774 


#def ine 


ID ACTOR MOVE B 


32775 


#def ine 


ID ACTOR TURN L 


32776 


ffdef me 


ID ACTOR TURN R 


32777 


#der me 


ID ACTOR STATE 0 


32778 


#def ine 


ID ACTOR STATE I 


32779 


#def ine 


ID ACTOR_STATE 2 


32780 


#def ine 


ID ACTOR PROP 


32781 


#def ine 


IDS TURNING OFF DEMO 


32782 


#def ine 


ID EDIT NOTEPAD 


32784 


#def ine 


ID HELP HOMEPAGE 


32785 


#def ine 


ID VIEW DEMO 


32786 


#def ine 


ID_ACTOR_HYPERLINK 


32787 


#def ine 


ID CONNECT SYNC 


32788 


#def ine 


ID VIEW TEXT LIMIT 


32789 


#def ine 


ID VIEW BUBBLE TIME 


32790 


#def ine 


ID_VIEW_BUBBLE TEXTLIMIT 


32791 


#def ine 


ID_ABOUT_DEVELOPERS 


32792 


#def ine 


ID_HELP__DEVELOPERS 


32793 


#def ine 


ID_ACTOR ACTION 0 


32805 


#def ine 


ID__ACTOR ACTION 1 


32806 


#def ine 


ID ACTOR ACTION 2 


32807 


#def ine 


ID ACTOR ACTION 3 


32808 


#def ine 


ID ACTOR ACTION 4 


32809 


#def ine 


ID ACTOR ACTION 5 


32810 


#def ine 


ID ACTOR ACTION 6 


32811 


#def ine 


ID ACTOR ACTION 7 


32812 


#def ine 


ID ACTOR ACTION 8 


32813 


#def ine 


ID__ACTOR ACTION 9 


32814 


#def ine 


ID MAKEHOST 


32 82 3 


#def ine 


ID_WHISPER 


32830 


#def ine 


ID_IGNORE 


32831 


#def ine 


ID_KICKOUT 


32832 


#def ine 


ID_UCICON 


32835 


#def ine 


WM_UC I CON_NOT I FY 


32836 


#def ine 


UCMN__MINIMISE 


32837 


#def ine 


UCMN_MAXIMISE 


32838 


#def ine 


UCMN_UNICHAT 


32839 


#def ine 


UCMN EXIT 


32840 



// Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED 

#ifndef APSTUDIO_READONLY_SYMBOLS 

#define _APS_ 3 DECONTROLS 

#define _APS_NEXT_RESOURCE_VALUE 

#define _APS_NEXT_COMMAND_VALUE 

#define _APS_NEXT_CONTROL_VALUE 

#define _APS_NEXT_SYMED_VALUE 

#endif 

#endif 



148 
32794 
1070 
125 
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= = = . = = = = = = = = = = = . = . = . = = = = = = = = = ^=.= 3=..= = =^. = = . = = = = = == = = = = = 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNI CHAT 

//===============.=======..==========.=======..^. ============ 

// CG: This file was added by the Splash Screen component. 

// Splash. cpp : implementation file 

// 

#include "stdafx.h" // e. g. stdafx.h 
#include "resource. h" // e.g. resource. h 

#include "Splash. h'* // e.g. splash. h 
#include "ResMan.h" 

#include "UC2Ani/DIBPal .h" 

#ifdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

extern CResMan gResMan; 
#ifdef _MALL 

LPCTSTR BMP_SPLASH = "MSplash.bmp"; 
#else 

LPCTSTR BMP_SPLASH - "U2 Pane 1 | U2Splash . bmp " / 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// Splash Screen class 

BOOL CSplashWnd: : c_bShowSplashWnd ; 
CSplashWnd* CSplashWnd: : c_pSplashWnd; 
CSplashWnd: : CSplashWnd ( ) 
{ 

TRACEO ( "CSplashWnd: : CSplashWnd () \n" ) ; 
m_pPal = NULL; 
m_pDIB = NULL; 

} 

CSplashWnd: : -CSplashWnd { ) 
{ 

TRACEO {"CSplashWnd: : -CSplashWnd 0 \n") ; 
if (m_pDlB) 

delete m_j)DIB; 
if (m_pPal) 

delete m_pPal ; 
// Clear the static window pointer. 
ASSERT (c__pSplashWnd == this); 
c_pSplashWnd = NULL; 

} 

BEGIN_MESSAGE_MAP (CSplashWnd, CWnd) 
//{ {afx_MSG_MAP (CSplashWnd) 
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ON_WM_CREATE ( ) 
ON__WM_PAINT { ) 
ON_WM_TIMER ( ) 
ON_WM_QUERYNEWPALETTE ( ) 
ON_WM__PALETTECHANGED ( ) 
/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

void CSplashWnd : : EnableSplashScreen (BOOL bEnable /*= TRUE*/) 

{ 

c_bShowSplashWnd = bEnable; 

} 

void CSplashWnd :: ShowSplashScreen (CWnd* pParentWnd /*= NULL*/) 

{ 

if { 1 c_bShowSplashWnd || c__pSplashWnd != NULL) 
return; 

// Allocate a new splash screen, and create the window, 

c_pSplashWnd = new CSplashWnd; 

if ( ! c_pSplashWnd- >Create (pParentWnd) ) 

{ 

delete c_pSplashWnd; 
c_pSplashWnd = NULL; 

} 

else 

{ 

c__pSplashWnd- >UpdateWindow ( ) ; 

} 



BOOL CSplashWnd :: PreTranslateAppMessage (MSG* pMsg) 
{ 

if {c_pSplashWnd == NULL) 
return FALSE; 



// If we get a keyboard or mouse message, hide the splash screen, 
if (pMsg- >message 
pMsg- >message 
pMsg- >message 
pMsg- >message 
pMsg- >message 
pMsg- >message 
pMsg- >message 
pMsg- >message 



WM_KEYDOWN | | 
WM_SYSKEYDOWN | | 
WM_LBUTTONDOWN | | 
WM_RBUTTONDOWN | | 
WM_MBUTTONDOWN | j 
WM_NCLBUTTONDOWN 
WM_NCRBUTTONDOWN 
WM NCMBUTTONDOWN) 



c_pSplashWnd- >HideSplashScreen ( ) ; 

return TRUE; // message handled here 



return FALSE; // message not handled 

} 

BOOL CSplashWnd: : Create (CWnd* pParentWnd /*= NULL*/) 
{ 

TRACE ("CSplashWnd: :Create (%lx) \n" , pParentWnd) ; 
CString strFile ( *gResMan . GetResPath ( ) ) ; 
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// CString strPal ( strFile ) ; 

strFile += BMP_SPLASH/ 
// strPal += "U2Login.pal" ; 

// CFileStatus status ; 

// BOOL bFound = CFile : : Ge tStatus ( s t rFi le , status); 
// if (IbFound) 

// return FALSE; // To avoid file not found message dialog box 

m_pDIB = new CDIB; 

if { !m_j)DIB->Load (strFile) ) / / , strPal) ) 

{ 

delete m_pDIB; 
m_pDIB = NULL; 
return FALSE; 

} 

#ifndef _MALL 

gResMan . LoadMas terPalette {m_pDIB) ; 

#endif 

// Create the palette from the DIB. 

m__pPal = new CDIBPal; 

ASSERT (mjiPal) ; 

if ( !mj>Pal->Create (mj)DIB) ) 

{ 

AfxMessageBox ( "Failed to create palette from DIB file"); 
delete m_pPal; 
m_j3Pal = NULL; 

} 

return CreateEx ( 0 , 

Af xRegisterWndClass ( 0 , Af xGetApp ( ) - 
>LoadStandardCursor (IDC_ARROW) ) , 

NULL, WS_POPUP I WS_VISIBLE, 0, 0, m_pDIB- >GetWidth () , m_pDIB- 
>GetHeight {) , 

pParentWnd->GetSaf eHwnd () , NULL) ; 

} 

void CSplashWnd: : HideSplashScreen { ) 
{ 

TRACEO ("CSplashWnd: : HideSplashScreen ( ) \n") ; 

// Destroy the window, and update the mainframe. 

if (c_pSplashWnd) 

{ 

c_pSplashWnd- >DestroyWindow 0 ; 
Af xGetMainWnd ( ) - >UpdateWindow ( ) ; 

} 

} 

void CSplashWnd :: PostNcDestroy 0 

{ 

// Free the C++ class, 
delete this; 

} 

int CSplashWnd: :OnCreate (LPCREATESTRUCT IpCreateStruct ) 
{ 

if (CWnd : lOnCreate (IpCreateStruct) == -1) 
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return -1; 

// Center the window. 
CenterWindow { ) ; 

// Set a timer to destroy the splash screen, 
// SetTimerd, 750, NULL) ; 

return 0 ; 

} 

void CSplashWnd: :OnPaint () 
{ 

CPaintDC dc (this) ; 

// Make sure we have what we need to do a paint. 

if (!m_pDIB) 

{ 

TRACE {"No DIB or color table to paint from.\n"); 
return; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
if (m_jpPal) 
{ 

pPalOld ^ dc.SelectPalette {m_j)Pal, FALSE); // 
bForceBackground = FALSE 

// dc . RealizePalette ( ) ; // we realize in response to 

WM_QUERYNEWPALETTE 

} 

m_pDIB->Draw (&dc, 0, 0); 

// Select old palette if we altered it. 
if (pPalOld) 

dc . SelectPalette (pPalOld, FALSE) ; 

} 

void CSplashWnd : rOnTimer (UINT nIDEvent) 

{ 

// Destroy the splash screen window. 
HideSplashScreen 0 ; 

} 

void CSplashWnd : lOnPaletteChanged (CWnd* pFocusWnd) 

{ 

// CDialog: : OnPaletteChanged (pFocusWnd) ; 
if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

BOOL CSplashWnd: : OnQueryNewPalette ( ) 

{ 

if {m__pPal) 
{ 

CDC* pdc = GetDC 0 ; 

CPalette* pPalOld = pdc - >SelectPalette (m_pPal , FALSE) 

foreground 
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UINT u = pdc- >RealizePalette { ) ; 
if (pPalOld) 

pdc->SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) ; 
if (u) 

{ // Some colors changed so we need to do a repaint. 

Invalidate () ; // Repaint the lot. 
return TRUE; // Say we did something. 

} 

} 

return FALSE; // Say we did nothing, 
// return CDialog : : OnQueryNewPalette ( ) ; 

} 
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7/=.== = = ^ = = = = . = . = = = ^ = . = = = = = = . .. = = = . = = = = ^ = = = = = = = = = = . = = 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT 

//============================.============================= 

// CG : This file was added by the Splash Screen component. 

tifndef _SPLASH_SCRN_ 
#define _SPLASH_SCRN_ 

// Splash. h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// Splash Screen class 
class CDIB; 
class CDIBPal; 

class CSplashWnd : public CWnd 

{ 

// Construction 
protected : 

CSplashWnd ( ) ; 

// Attributes : 
public : 

// Operations 
public : 

static void EnableSplashScreen (BOOL bEnable = TRUE) ; 
static void ShowSplashScreen (CWnd* pParentWnd = NULL) ; 
static void HideSplashScreen ( ) ; 

static BOOL PreTranslateAppMessage (MSG* pMsg) ; 
// Overrides 

// ClassWizard generated virtual function overrides 
//{ {aFX_VIRTUAL (CSplashWnd) 
// } }AFX_ VIRTUAL 

// Implementation 
public : 

-CSplashWnd 0 ; 

virtual void Pos tNcDestroy ( ) ; 

protected : 

BOOL Create (CWnd* pParentWnd = NULL) ; 
static BOOL c_bShowSplashWnd; 
static CSplashWnd* cjSplashWnd ; 

CDIB* m_pDIB; 
CDIBPal* m_pPal; 

// Generated message map functions 
protected : 

// { { AFX_MSG (CSplashWnd) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateSt ruct ) ; 
afx_msg void OnPaint () ; 
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}; 



afx_msg void OnTimer (UINT nIDEvent) ; 

afx_msg BOOL OnQueryNewPalette ( ) ; 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) 

// } }AFX_MSG 

DECLARE MESSAGE MAP ( ) 



#endif 
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// stage.cpp: implementation of the CStage class. 
// 

//=^^^^^==^=^^^=====^=.^=^=^===========^=^^==^^^^^^======^=== 

I / (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 

// UNICHAT 

/* = = = = = . = = = = = = = = = = = = ^ = = ^^^ = = .===. = = = .^ = .=. = ^=:.... = ^.:=:^.:= = = 

; Stage stageOOO.sit 
#VERSION=0 .90; 
#DEPENDENCY= 
{ 

resrcOOO . rit ; 

} 

#STAGE= [u2] °A°I 'efc-^s A I , n, master . pal , mapOOO . mit ; 
{ 

// resurce name=cell id, Lef tTop (x , y) , Image Operation, Elevation, Sprite 
Type, nMSPT; 

ccity014 = 0 , (333, -10) ,4096,8,http: / /www . microsoft . com,- 
aman_0 07=2 6, (3 25, 67) , 4 096 , 0 , 272 , 150 ; 

, ... 

} // 0 sprites. 

#include " stdaf x . h" 
#include "Stage. h" 

#include "TileMap .h" 

#include "UC2Ani /DIB . h" 

#include "UC2Ani /PhSprite . h" 

# i nc lude " UC2 An i / Bubb I e . h " 

#include "UC2Ani/0SBView.h" 

#include "UC2Ani/MCIObj .h" 

#include "Actor . h" 

#include "ResMan.h" 

#include "Parser. h" 

#include "Behavior. h" 



#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FXLE[]= FILE ; 

#define new DEBUG_NEW 
#endif 

extern CResMan gResMan; // global Resource Manager 

extern CParser gParser; 

double GetMapEditorVersion 0 ; 

const char* STAGEFILE_FILTER = "Stage Information Tables (*. SIT) | *. SIT | " 

"All files (* . *) i * - * I I " ; 
const char* STAGEFILE_EXT = ".sit"; // should be lower case 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 



A-429 



Stage. cpp 




1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 // 1 1 / 1 1 / 1 1 1 / n / 1 1 1 1 / 1 



#define DYNAMIC BANNER 9999 



CStage : : CStage ( ) 
{ 

TRACED ( "CStage 
m_jpOSBView 
m_j?Tiles 
m_pThisActor 
m_wRM 
m_aBGM 
m_nBGMs 
m_pBGM 



CStage () \n") ; 
= NULL; 
= NULL; 
= NULL; 
= RM_NORMAL; 

= NULL; 
m_iBGM = 0; 

= NULL; 



m_strStageFile - Empty ( ) ; 
m_strPalFile . Empty ( ) ; 
m_bExitOpen = FALSE; 

m_bMusicPlayOK = FALSE; 



CStage : : -CStage { ) 
{ 



TRACED { "CStage : : -CStage ( ) \n" ) ; 
DeleteStage ( ) ; 



////////////////////////////////////////////////////////////////////////// 
// Be sure to call this function before calling any other member functions 
// pass COSBView- inherited View 
BOOL CStage :: Initialize {COSBView* pView) 

{ 

m_pOSBView = pView; 
m__SpriteList . m_Notif yObj . SetView (pView) ; 
// m_AniList . m_Not if yObj - SetView (pView) ; // Each sprite need not 

notify 

m_BubbleList . m_Not if yObj - SetView (pView) ; 
return TRUE ; 

} 

void CStage : :DeleteStage ( ) 
{ 

TRACED ( "CStage : :DeleteStage () \n") ; 
m_jpThisActor ^ NULL; 

m_SpriteList . RemoveAll ( ) ; // This should go before deleting Tiles 
m_BubbleList . Remove All () ; 

m_AniList . RemoveAll (FALSE) ; // do not delete 

if (m_pTiles) 

delete m_pTiles; 
m_pTiles = NULL; 

if (m_aBGM) 

delete [] m_aBGM; 
m_aBGM = NULL; 
if (mjiBGM) 
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delete m__pBGM; 
m__pBGM = NULL; 

m__strTitle . Empty ( ) ; 
m_strMusicSeq . Empty ( ) ; 
m_bExitOpen = FALSE; 

} 

BOOL CStage : : InitMap () 

{ 

if (m_pTiles) 

delete m pTiles ; 
m_pTiles = new CTileMap; 

m_pTiles->SetPalette ( (CPalette* ) m__pOSBView- >GetOSBPalette () ) ; 
m_jpTiles- >SetSpriteList ( &m_ SpriteList ) ; 
m_pTiles- >SetAniList (&m_AniList ) ; 
ASSERT {m_pOSBView) ; 

return TRUE; 

} 

BOOL CStage :: CreateStage (CSize& szT, CSize& szScr) 
{ 

TRACE { "CStage : : CreateStage { ) \n") ; 

// CreateStage ( ) function will call gResMan . Load ( ) every time 
// to update (maybe) changed items in RIT file, 
if ( ! gResMan . Load ( ) ) 
return FALSE; 

CreateOSB (szScr) ; 
ASSERT (m_pOSBView) ; 

InitMapO; // New m_jpTiles 
m_pTiles- >SetTileSize (szT) ; 
m_pTiles- >Create (szScr) ; 
#ifdef MAPEDITOR 

m_pTiles ~ >LoadGrid ( ) ; 

#endif 

return TRUE; 

} 

// Create OSB from the Map file (tiles) 
BOOL CStage :: CreateOSB (const CSize sScreen) 

{ 

// Delete any existing sprites 

m^SpriteList . RemoveAll ( ) ; // Since the palette will be changed 

// Create OSB 

CDIB* pDIB = new CDIB; 

// Load master palette - This will be an OSB palette 
// CString strPal (m_strPalFile) ; 
// gResMan . IncludePath (strPal) ; 

pDIB- >Create ( sScreen . cx, sScreen.cy); II, strPal); 

gResMan . LoadMasterPalette (pDIB) ; 

m_pOSBView- >CreateOSB (pDIB) ; // virtual function 
delete pDIB; 
return TRUE; 
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} 

// Load SIT (Stage Information Table) file 

// This method can be called multiple times in the App . • s Document class. 

BOOL CStage :: Load (const char* szStage) 

{ 

TRACE ("CStage : : Load (%s) \n" , szStage) ; 
if ( ! m__strStageFile . IsEmpty () ) 
{ // Save Previous Stage ID 

m_strPrevID = m_strStageFile ; 

gResMan .MakeResName (m_strPrevID) ; 

} 

if ({szStage == NULL) || (Istrlen (szStage) == 0)) 
{ 

: : SetCurrentDirectory {*gResMan . GetResPath 0 ) ; 

// Show an Open File dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 
m_strStageFile, // Initial file name 
OFN_FILEMUSTEXIST | OFN_HIDEREADONLY, 
STAGEFILE_FILTER) ; 

if (dlg.DoModal () =- IDOK) 

m_strStageFile = dig . GetPathName ( ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path . 
m_strStageFile = szStage; 

gResMan . ExpandResName (m strStageFile , STAGEFILE EXT); 

} 

#ifdef MAPEDITOR 

// CreateStage ( ) function will call gResMan . Load () every time 
// to update (maybe) changed items in RIT file. 
gResMan . Load () ; // "resrcOOO . rit " ) ; 

#endif 

CTextFileBuf f er tf b (gParser . GetMaxBuf f er ( ) ) ; 

if ( ! tf b . Load (m_strStageFile) ) 

{ 

return FALSE; 

} 

gResMan . ExcludePath (m_strStageFile ) ; 

// int ny=0; // Current Row of the tiles 
double f Vers ion; 

while ( tf b . ReadString 0 ) 

{ 

gParser . CopyBuf f er ( tf b . GetStr ing ( ) ) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if ( ! gParser. SetLeftToken( '#' ) ) 

continue ; 
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CString strBuf; 

if ( !gParser-GetValueRightToken(strBuf , ' = ' ) ) 
continue ; 

! 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 / 1 / 11 1 / 1 1 1 / 1/ 1 1 1 1 1/ 1 1 1 // 1 1 1 11 1 1 / 1 1 / 1 

if (Istrcmpi (strBuf , "VERSION*') == 0) 
{ 

gParser . SetLef tToken ('=•); 

gParser . GetValueRightToken {f Version, ' , ' ) ; 
if (fVersion <= 0.90) 

{ 

CString strMsg; 

strMsg. Format ("SIT: Old Version %.2f", fVersion); 
AfxMessageBox ( StrMsg) ; 

} 

} 

1 1 1 1 1 11 1 1 1 1 1 1 1 / 1 1 1 1 11 1 1 1 STAGE 

else if (Istrcmpi (strBuf , "STAGE") == 0) 

{ 

DeleteStage ( ) ; // Delete current 

InitMapO ; 

gParser . SetLef tToken (•='); 

gParser . GetValueRightToken (in_strTitle , ' , ' , ' ; ' ) ; 

if (fVersion <= 0.99) // Separate MIT file 
{ 

TRACEOC'This SIT an obsolete version with separate 

MIT file • \n") ; 

gParser . GetValueRightToken (m_strPalFile , ' , ' , ' ; ' ) ; 
CString strMap; 

gParser .GetValueRightToken (strMap, ' , ' , ' ; ' ) ; 
if ( !m_pTiles->Load (strMap) ) 

{ 

delete m_j)Tiles; 
m_pTiles = NULL; 
strMap += " not found!"; 
AfxMessageBox (strMap) ; 
return FALSE; 

} 

} 

else // Version 1.0 or above 

{ 

gParser . GetValueRightToken (m_strMusicSeq, ' , ' ; ' ) ; 
ParseBGMsO; // will deal with empty string case 

} 

while ( tf b . ReadString 0 ) 
{ 

gParser. CopyBuffer (tfb. Get St ring () ) ; 
if (gParser . IsCommentLine () ) 

continue ; 
if (gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

break ; 
continue ; 
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} 

if (gParser .SetLef tToken ('}')) 
break; 

CString strResName; 

/* 

if (fVersion <= 0.90) // Resource ID as a filename 

{ 

gParser . GetValueRightToken ( s trResName , ' = ' ) ; 
gResMan . Pref ixUDSOO (strResName) ; 

} 

else // New Version 
{ 

*/ 

int nResID; 

gParser . GetValueRightToken (nRes ID, '^') ; 



//CString* pstr , BannerName ; 

// code for the Dyanmic Banner . . . 

// How we will find it is aDyanmic banner 

// Follwoing code is commented for Testing 



if (gResMan . IsDynamicBanner (nResID) ) 

{ 

CString BannerName; 

/ /CHANGES_MADE_FOR_UNICHAT__2 

if (gResMan . GetLatestDynamicBanner {BannerName ) ) 

{ 

StrResName = BannerName; 

} 

else 

{ 

CString *pStr = 

gResMan . GetSpriteName (nResID) ; 

if {!pStr) 
{ 

StrResName . Format ( " Invalid 

ResID=%d in Stage file!", nResID); 

AfxMessageBox (strResName) ; 
continue ; 

} 

StrResName = *pStr; 

} 

} 

else 

{ 

CString *pStr = 

gResMan . GetSpriteName (nResID) ; 
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in Stage file!", nResID) ; 



if (IpStr) 
{ 

strResName . Format ( "Invalid ResID=r% 

Af xMessageBox (strResName) ; 
continue ; 

} 

StrResName = *pStr; 



} 

// See comments above 



// 



) ) 



; ') ) 



int nCelllD; 

CPoint ptLT; 

WORD wImOp = DEFAULT_IO; 

int nElev = 0; 

WORD wType = SPRITE_STATIC ; 

int nMSPT - 0; 

CString strHyperlink ; 

gParser -GetValueRightToken (nCelllD, ' , ') ; 
gParser .GetValueRightToken (ptLT, ' , ' , ' ; ' ) ; 
if ( igParser .GetValueRightToken (wlmOp, ';')) 
wImOp = DEFAULT_IO; 

else 



{ 



if ( IgParser . GetValueRightToken (nElev, 
nElev = 0 ; 



else 

{ 



if ( ! gParser . GetValueRightToken (wType , 
wType = SPRITE_STATIC; 



else 

{ 



if 



( IgParser .GetValueRightToken (nMSPT, ' , ' , ' ; ' ) ) 



nMSPT = 0; 



// 
// 
// 

( ! gParser . GetValueRightToken (strHyperlink, 
// 
// 



else 
{ 



if 

• ; • ) ) 



} 



StrHyperlink . Empty ( ) ; 



} 



} 



// Resource Allocation via Resource Manager 
BOOL bReuse = (wType & SPRITE_ACTOR != SPRITE_ACTOR) 
CPhasedSprite* pPS = 
gResMan.LoadPhasedSprite (strResName, bReuse , nRes ID) ; 

if (!pPS) 



{ 



StrResName += " not found!"; 
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Af xMessageBox ( strResName) ; 
continue ; 

} 

pPS->SetCell (nCelllD) ; 

if (nElev) 

{ 

pPS->SetElevation (nElev) ; 
ptLT.y -= nElev; 

} 

pPS->SetLT (ptLT) ; 

pPS->SetType (wType) ; // This should come before Z 

ordering for SPRITE_TILE! 
#ifndef MAPEDITOR 

if (pPS->GetSrcType ( ) == SPRITE_ACTOR) 
pPS->SetSrcType (SPRITE_PHASED) ; 

#endif 

if (fVersion < 1.01) 
{ 

wImOp &= -NO_COLORKEY ; 
if (nMSPT !pPS->GetAniType {) ) 

nMSPT = 0; 

} 

pPS->SetImOp(wImOp) ; 

pPS->SetZByEarth 0 ; 

if (nMSPT > 0) 

pPS->SetMSPT (nMSPT) ; 
// if ( ! strHyperlink. IsEmpty () ) 

// pPS->SetHyperlink (strHyperlink) ; 

InsertSprite (pPS) ; // Insert into Sprite List 

} 

} 

//////////////////////// TILE: After verion 1.0, MIT is integrated into SIT 
else if (Istrcmpi (strBuf , "TILESIZE") 0) 
{ 

ASSERT (fVersion >= 1.00); 
gParser . SetLef tToken ('=='); 
CSize sT; 

gParser . GetValueRightToken (sT, ' ; ') ; 
m__pTiles- >SetTileSi2e (sT) ; 

} 

else if (Istrcmpi (strBuf, " SCREENSIZE " ) == 0) // matching! 

ASSERT (fVersion >= 1.00); 
gParser . SetLef tToken ('=•); 
CSize sScr; 

gParser . GetValueRightToken ( sScr , ' ; ' ) ; 
m_pTiles - >Create (sScr) ; // Create Tiles 

} 

else if (Istrcmpi {strBuf, "ROW") == 0) 
{ 

ASSERT (fVersion >= 1.00); 
gParser . SetLef tToken ( • ( • ) ; 
i n t ny ; 

gParser . GetValueRightToken (ny, •) '); 
if ( ! m_jpTiles->LoadRow (tfb, ny, fVersion)) 
continue ; 
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} 

else 
{ 

TRACEl ( "Unknown Data type in Stage f ile ( %s ) ! \n" , strBuf) 

} 

} 

#ifdef MAPEDITOR 

if (fVersion >= 1.00) 

m_pTiles->LoadGrid ( ) ; 

#endif 

// Insert Animated Tiles to m_AniList 
return TRUE; 

} 

// syntax: 0>1>2 >3 > . . . n> ; 
void CStage : : ParseBGMs ( ) 

{ 

m_bMusicPlayOK = FALSE; // Prevent access to musice seq array 
if {!m_pBGM) 

m_pBGM = new CMCIObject; // Create once 

if (m_aBGM) 

delete [] m_aBGM; 
gParser . CopyBuf f er (m_strMusicSeq) ; 

m_nBGMs = gParser . CountOccurrencesUpto { ' > ' ^ ' ; ' ) ; 
if (m_nBGMs <= 0) 

{ 

TRACE ("No BGMs found in this stage\n"); 
m_nBGMs =3; // set default; 

m__aBGM = new int [m_nBGMs] ; 
for (int i = 0; i < Tn_nBGMs ; i + + ) 
m_aBGM [ i ] = i ; 

} 

else 

{ 

m_aBGM = new int [m_nBGMs] ; 
int nID; 
int i=0; 

while (gParser . GetValueRightToken (nID, '>', ';')) 
{ 

ASSERT (i < m_nBGMs) ; 
m_aBGM[i++] = nID; 

} 

} 

m_iBGM = 0 ; 

m_bMusicPlayOK = TRUE; 

} 

// Paly BGMs sequentially 

// Application's View window will drive this method 

BOOL CStage : : PlayBGM ( ) 

{ 

if ( !m_bMusicPlayOK) 

return FALSE; 
if (!mj>BGM) 
{ 

TRACE ("Error: BGM not created ! \n ") ; 
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} 



return FALSE; 

} 

m_pBGM- >Close ( ) ; 

CString strFile ( *gResMan . GetResPath ( ) ) ; 
if (m_iBGM >= m_nBGMs) 
m_iBGM = 0 ; 

CString* pS = gResMan . GetMIDIName (m_aBGM [m_iBGM] ) ; 

if (!pS) 

{ 

TRACE ( "Resource (MIDI : %d) not found !\n", m_aBGM [m_iBGM] ) 
return FALSE; 

} 

m_iBGM++ ; 
strFile += *pS ; 
strFile += ".mid"; 

if ( Imj)BGM->Load (strFile) ) 

return FALSE; 
return m_pBGM- >Play { ) ; 



void CStage : : StopBGM ( ) 

{ 

if {m_pBGM) 

m_pBGM->Close ( ) ; 

} 

// Save SIT (Stage Information Table) file 
BOOL CStage :: Save (const char* szStage) 

{ 

// Save Map File first 

if ( (szStage NULL) || ( Istrlen ( szStage ) === 0)) 
{ 

: : SetCurrentDirectory (*gResMan . GetResPath 0 ) ; 

// Show a File Save dialog to get the name. 

CFileDialog dig (FALSE, // Save 

NULL, // No default extension 

m_strStageFile , // No initial file 

name 

OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY , 
STAGEFILE_FILTER) ; 
if (dlg.DoModal {) == IDOK) 

m_strStageFile = dig . GetPathName ( ) ; 

else 

return FALSE ; 

} 

else 

{ 

// Copy the supplied file path. 
m_strStageFile ~ szStage; 

gResMan.ExpandResName (m__strStageFile, STAGEFILE_EXT) ; 



TRY 
{ 

: :CopyFile (m_strStageFile, "SIT.BAK", FALSE); 
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CStdioFile f (m_strStageFile , CFile : : modeCreate | CFile : : modeWi 
I CFile: itypeText) ; 

gResMan . ExcludePath (m_strStageFile ) ; 

CString str; 

str . Format (" ; Stage %s\n", m_strStageFile) ; 
f . WriteString (str) ; 

str - Format ( "#VERSION=% . 2f ; \n" , GetMapEdi torVersion { ) ) ; 
f . WriteString { str) ; 

// str . Format ( ■'#DEPENDENCY=\n{ \n%s ; \n}\n\n" , 

*gResMan . GetFileName { ) ) ; 

// f .WriteString (str) ; 

if Cm_strTitle . IsEmpty ( ) ) 

m_strTitle = " [u2] " ; 
str . Format ( "#STAGE=%s , %s ; \n" , m_strTitle, m_strMusicSeq) ; 
f . WriteString { str) ; 
f .WriteString {"{ \n" ) ; 

POSITION pos = m_SpriteList .GetTailPositionO ; 
CPhasedSprite* pPS; 

while (pos) 

{ 

pPS = (CPhasedSprite*) m_SpriteList . GetPrev (pos) ; 
if (pPS->GetSrcType () == SPRITE_TILE) 

continue; // skip for tile 
m_SpriteList . RemoveRedundant Sprite (pPS) ; 

} 

pos = m_SpriteList . GetTailPosition 0 ; 
int n=0; 
while (pos) 
{ 

pPS = (CPhasedSprite*) m_SpriteList .GetPrev (pos) ; 
if (pPS->GetSrcType 0 == SPRITE_TILE) 
continue; // skip for tile 

CString strResName ( *pPS - >GetDIB () - >GetName () ) ; 
gResMan . MakeResName (strResName) ; 
// str. Format ( "%s=%d, (%d, %d) , %d, %d, %d, %d; \n" , strResName, 

// #VERSION=0. 90 

int nResID = gResMan . GetSpritelD ( strResName) ; 
if (nResID < 0) 

{ 

StrResName += " not found" ; 
AfxMessageBox (strResName) ; 

} 

if ( (pPS->GetImOp 0 == DEFAULT_IO) 
(pPS->GetElevation ( ) ==0) Sc^ 
(pPS->GetType () == SPRITE_STATIC) ) 
// ( !pPS->HasHyperlink () ) ) 

{ // Typical case 

str. Format ("%d=%d, (%d,%d)", nResID, 

pPS->GetCellID () , pPS->GetX() , 
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pPS->GetY() + pPS->GetElevation{) ) ; 

} 

else 
{ 

str . Format ("%d=%d, (%d, %d) , %d, %d, %d, %d" , nResID, 
pPS->GetCellID 0 , pPS->GetX() , 
pPS->GetY() + pPS->GetElevation() 
pPS->GetImOp ( ) , pPS- 

>GetElevation { ) , 

pPS->GetType {) , pPS- >GetMSPT ( ) ) ; 
// if (pPS->HasHyperlink 0 ) 

// { 

// str ' , • ; 

// str *pPS->GetHyperlink ( ) ; 

// } 
} 

str += ";\n"; 

f . WriteString { str) ; 

n++ ; 

} 

str . Format (" }\t// %d sprites. \n", n) ; 
f . WriteString (str) ; 

str . Format (" %s : %d sprites written.", m_strStageFile , n) ; 

if (m_pTiles) 

{ 

if ( ! m_pTiles->GetFileName () ->IsEmpty () ) 

str += "\n\nMIT file has been integrated into SIT 



file . " 



m_pTiles ~ >Save ( f ) 

} 



f .Close {) ; 

Af xMessageBox (str) ; 

} 

CATCH ( CFileException, e ) 
{ 

#ifdef _DEBUG 

afxDump << "File could not be opened " << e->m_cause << 

"\n" ; 

#endif 

return FALSE; 

} 

END_CATCH 
return TRUE; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 
II Sprite Manipulations 

// Render the scene to the off -screen buffer pClipRect defaults to NULL 
void CStage : rRender (CRect* pClipRect) 

{ 

CRect rcDraw; 
ASSERT (m_pOSBView) ; 

CDIB* pOSB = m_j)OSBView->GetOSB 0 ; 
ASSERT (pOSB) ; 
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pOSB- >GetRect (rcDraw) ; 
if (pClipRect) 

rcDraw . IntersectRect (pClipRect , &rcDraw) ; 
// if (m__pTiles) 

// m_pTiles - >Render (pOSB , &rcDraw) ; // Tiles are rendered with 

sprites 

pOSB- >ClearRect ( rcDraw) ; // No background image 

// Render the sprite list from the bottom of the list to the top 
POSITION pos = m_SpriteList .GetTailPosition 0 ; 
CSprite* pSprite ; 
while (pos) 

{ 

pSprite = m_Spri teList . GetPrev (pos ) ; 
// while sprites off and for normal sprites, skip! 
#ifdef MAPEDITOR 

if ( {m_wRM 8l Riyi_NORMAL,) == RM_NORMAL) 
{ 

#endif // MAPEDITOR 

pSprite- >Render (pOSB , &:rcDraw) ; 

#ifdef MAPEDITOR 
} 

else 

{ 

if ( (m_wRM & RM_SPRITE) != RM_SPRITE) // Exclude Sprit 

if (pSprite- >GetSrcType () != SPRITE_TILE) 
continue ; 

else if ( (m_wRM & RM_TILE) 1= RM__TILE) // Exclude Tile 

if (pSprite- >GetSrcType () == SPRITE_TILE) 
continue ; 



if ( (m_wRM & RM_ELEV) != RM__ELEV) // No Elevation 

int nE = pSprite - >GetElevation () ; 
if (nE) 

pSprite- >Unelevate () ; // Temporarily do not 

elevate 

pSprite- >Render (pOSB, ircDraw) ; 
if (nE) 

pSprite- >Elevate 0 ; 

} 

} 

#endif // MAPEDITOR 

} 

// Render the bubble list 

pos = m_BubbleList . GetTailPosition {) ; 

CBubble* pBubble; 

while (pos) 

{ 

pBubble = m_BubbleList . GetPrev (pos ) ; 

// render only if this sprite hits the region 

pBubble- >Render (m jiOSBView- >GetHBi tmap ( ) , 
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(CPalette*)m_pOSBView->GetOSBPalette () , 

&rcDraw) ; 
} 

#ifdef MAPEDITOR 

if (m_pTiles && ( (m_wRM & RM_GRID) RM_GRID) ) 

m_pTiles ->RenderGrid (pOSB , &rcDraw) ; 

#endif 

#ifdef __DEBUG_RENDER 

static DWORD dwRender; 
dwRender++ ; 

if {dwRender%100 0) 

TRACE ( "CStage :: Render %ld times... \n", dwRender) ; 
#endif // _DEBUG 

} 

/* 

void CStage :: RenderZOrder {CSprite* pSprite) 

{ 

CDC dcMem; 

dcMem . Great eCompatibleDC (NULL) ; // create a memory dc that is 

compatible with current screen 

CBitmap* pbmOld = dcMem . SelectObj act (CBi tmap : : FromHandle (m__pOSBView- 
>GetHBitmap () ) ) ; 

CPen pen {PS_SOLID, 1, PALETTERGB (255 , 0 , 0 ) ) ; 
CPen* penOld = {CPen* ) dcMem. SelectObj ect ( Scpen) ; 

CPoint ptCtr (pSprite->GetCenter ( ) ) ; 
CSize sScr (GetScreenSize ( ) ) ; 
ptCtr-y = sScr.cy - pSpr i te - >GetZ { ) ; 

const int d = 3; // Draw a cross 

CRect rcZO (ptCtr -x-d, ptCtr.y-d, ptCtr.x+d, ptCtr.y+d); 
dcMem. MoveTo (rcZO . TopLef t 0 ) ; 
dcMem . LineTo ( rcZO . BottomRight ( ) ) ; 
dcMem - MoveTo ( rcZO . right , rcZO . top ) ; 
dcMem . LineTo (rcZO . left , rcZO. bottom) ; 

m_j)OSBView- >AddDirtyRegion (ScrcZO) ; 

dcMem. SelectObj ect (penOld) ; 
dcMem . SelectObj ect (pbmOld) ; 

} 

*/ 

// Multiple calls possible 

void CStage :: InsertSprite (CPhasedSprite* pPS) 

{ 

// At first remove if exist. . . 
m_Ani Lis t . Remove (pPS) ; 
m_SpriteList . Remove (pPS ) ; 
m_SpriteList . Insert (pPS) ; 
if (pPS->GetAniType ( ) ) 

m_AniList . Insert (pPS) ; // add to the check list in 
CStage: :TickAll 
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// map the colors in the sprite DIB to the 
// palette in the off-screen buffered view 
if (m_pOSBView- >GetOSBPalette ( ) ) 

pPS~>MapColorsToPalette ( (CPalette* ) m_pOSBView- >GetOSBPalette () ) 

m__pOSBView- >AddDirtyRegion (pPS) ; 

} 

void CStage : : DeleteSprite (CPhasedSprite* pPS) 

{ 

m_AniList - Remove (pPS ) ; 

CPhasedSprite* pS = (CPhasedSprite* ) m_SpriteList . Remove (pPS) ; 

if (pS) 

{ 

m_pOSBView- >AddDirtyRegion (pS) ; 
delete pS; 

} 

} 

// Multiple calls possible 

void CStage :: InsertBubble (CBubble* pBB) 

{ 

// At first remove if exist... 
m_BubbleList . Remove (pBB) ; 
m__BubbleList . Insert (pBB) ; 
m_pOSBView- >AddDirtyRegion (pBB) ; 

} 

CBubble* CStage :: RemoveBubble ( CBubble* pBB) 

{ 

if (m__BubbleList .Remove (pBB) ) 

{ 

m_j)OSBView- >AddDirtyRegion (pBB) ; 
return pBB; 

} 

return NULL; 

} 

// Insert Sprite into the animation sprites list 
void CStage :: InsertAniSprite (CPhasedSprite* pPS) 

{ 

// At first remove if exist... 

m_AniList . Remove (pPS ) ; 

if (pPS- >GetAniType ( ) ) 

m_AniList . Insert (pPS) ; // add to the check list in 
CStage : iTickAll 
} 

// Create CActor and insert into the sprite list 

CActor* CStage : rCreateActor (const int nCharlD, const CPoint& point, 

const BOOL bTilelD, const WORD 

wState, const BOOL bThis) 

{ 

int nGCS=0; // Greatest ColorSet in this list 

for (POSITION pos = m_AniList . GetHeadPosit ion ( ) ; pos ; ) 

{ 

CPhasedSprite* pPS = (CPhasedSprite* ) m_AniList . GetNext (pos) ; 
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if (pPS->GetSrcType ( ) SPRITE_ACTOR) 
{ 

CActor* pA = (CActor*)pPS; 

if (pA->GetCharID() == nCharlD) 

{ 

nGCS max(nGCS, pA- >GetColorSet ( ) ) + 1; 

} 

} 

} 

CActorDesc* pAD = gResMan . GetActorDesc (nChar ID) ; 

if (IpAD) 

{ 

CString strMsg; 

strMsg. Format { "%d Actor is not defined in RIT.", nCharlD) ; 
Af xMessageBox (strMsg) ; 
return NULL; 

} 

CActor* pActor = gResMan . LoadActor (nCharlD , nGCS, bThis); 
if ( ! pActor) 

return NULL; 
CPoint ptTID; 

if (bThis) // point is ignored 

{ 

m_pThisActor = pActor; 

ptTID = m_pTiles - >GetEntryID (m_strPrevID) ; // Find Entry 

tile 

} 

else 

{ 

ptTID = bTilelD ? point : m_pTiles - >GetNearestTileIndex (point ) 

} 

if ( !m__pTiles->IsValidTileID (ptTID) ) 
{ 

TRACE ( "Great eAc tor - Invalid Tile ID [%d,%d]\n", ptTID. x, 

ptTID. y) ; 

ptTID - CPoint (5 , 12) ; 

} 

CPoint ptC (m_pTiles->GetCenter (ptTID) ) ; 

int nEA = m_pTiles - >GetEA (ptTID) ; // Elevation for actor 

if (nEA > ELEVATION_LIMIT) 

{ 

TRACE ( "Actor was created in Elevation Limit Area!\n"); 
// pActor->SetOpacity (OPACITY50) ; 

nEA = m_j)Tiles->GetElevation (ptTID) ; 

} 

pActor- >SetTileMap (m_pTiles) ; 
pActor- >SetElevation (nEA) ; 
pActor- >MoveToEarth (ptC) ; 
pActor- >SetZByEarth ( ) ; 
pActor- >SetMSPT (pAD->GetMSPT 0 ) ; 

pActor- >SetOpacity (OPACITY_0) ; // At first, hide this actor 

InsertSprite (pActor) ; // This is the first chance to draw sprite 
InsertBubble (pActor->GetBubble {) ) ; 

// OPACITY_0 will be automatically cleared by the behavior 
descriptions . 
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pActor- >SetState (wState) ; // First behavior 

TRACE ( "Actor {%lx) \n" , pActor) ; 
return pActor; 

} 

CActor* CStage : : CreateActor (CMemberInf oSc mi, const BOOL bThis) 

{ 

CActor* pA = CreateActor (mi .GetCharlD 0 , mi . GetTilelD ( ) , TRUE, 

mi . GetState ( ) , bThis); 

ASSERT (pA) ; 

mi . SetTilelD (pA->m_mi . GetTilelD ( ) ) ; // CreateActor may have changed 
tile ID 

pA- >InitState (mi) ; 
return pA; 

} 

void CStage :: DeleteActor (CActor* pActor) 

{ 

if (pActor m_jpThisActor) 

m_pThisActor = NULL; 
delete RemoveBubble (pActor- >GetBubble ( ) ) ; 
DeleteSprite ( (CPhasedSprite* ) pActor ) ; 

} 

/* 

int CStage :: SetZByYBottom (CPhasedSprite* pPS) 
{ 

// CSize szScr (GetScreenSize 0 ) ; 

CPoint pt (pPS- >GetEarthPoint () ) ; 
if ( !m_pTiles) 

return (-pt.y); 
CPoint ptID (m_pTiles->GetNearestTileIndex (pt) ) ; 
return pPS - >SetZByGroup (pt ID . y ) ; 

} 

*/ 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
mil III 

II PUMP, HEART! 

// CPXClientApp : :OnIdle calls this function during idle states between 
message processing. 

// TickAll activates all the actors and coactors in the stage. 

int CStage :: TickAll () 

{ 

DWORD dwCurTick = : : GetTickCount ( ) ; 
int iCalled=0; 

POSITION pos = m_AniList . GetTailPosition ( ) ; 
while (pos) 

{ 

CPhasedSprite* pPS = (CPhasedSprite* ) m_AniList , GetPrev (pos ) ; 
// Increment position. 
ASSERT (pPS) ; 

if (dwCurTick pPS - >GetAlarmTick () ) 

{ 

if (pPS- >HeartBeat (dwCurTick) ) 

m_pOSBView- >RenderAndDrawDirtyList () ; 
iCalled++; 
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} 

} 

pos - m_BubbleList . GetTailPosi tion { ) ; 
while (pos) 

{ 

CBubble* pBB = m_BubbleL.ist . GetPrev (pos ) ; 
ASSERT (pBB) ; 

if (dwCurTick >= pBB- >GetAlarTnTick ( ) ) 
{ 

if (pBB->IsShown ( ) ) // Check if there is a bubble 

pBB- >Show ( FALSE ) ; // Erase bubble 
iCalled++; 

} 

} 

// if (iCalled) 

// m_j)OSBView->RenderAndDrawDirtyList ( ) ; 

return iCalled; // counter which indicates how are we busy... 

} 

// returns StagelD on Exit tile 

CString* CStage : : ActorMove (CActor* pActor, const BOOL bForward) 
{ 

ASSERT (pActor) ; 

WORD wDA = pActor->GetDA() ; 
if (IbForward) // Backward 

{ // Reverse direction 

if (wDA <= DA_FL) wDA <<= 2; 

else wDA >>= 2; 

} 

// CPoint ptTID {m_pTiles->GetNearestTileIndex (pActor- >GetEarthPoint ( ) ) ) ; 
CPoint ptTID (pActor- >m_mi .GetTilelD ( ) ) ; 

if (m_pTiles->GetActorNextTileID (ptTID, wDA) ) // ptTID will be reset 

{ 

CPoint ptC (m_pTiles->GetCenter (ptTID) ) ; 
int nEA = m_pTi les - >GetEA (ptTID) ; 
pActor- >MoveTo (ptC, nEA, bForward) ; 

CPhasedSprite* pTilePS = m_pTiles - >GetPS (ptTID) ; 
if (m__b Exit Open && 

pTilePS (pTilePS->GetLinkType (} =^ 

CPhasedSprite: : HLINK_U2_EXIT) ) 
{ 

char szName[2 56]; 

Istrcpy (szName, *pTilePS - >GetHyperlink ( ) ) ; 
ASSERT ( (szName [0] 'x') && (szName[l] == 

m_strExitID = &szName [2 ] ; 

TRACE ("Actor landed on Exit tile (%s) !\n", 
return &m_s t rExi t ID ; 

} 

} 

else 

{ 

pActor- >Act (CMDSCRATCH) ; 
TRACE ("Can't go f urther . . . \n" ) ; 

} 

return NULL; 

} 



':■)); 

m_strExitID) ; 
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void CStage :: SetExitOpen (const BOOL bOpen) 

{ 

m_bExitOpen = bOpen; 
#ifndef _MALL, 

// Insert key sprites on the exit tiles 

CDIB* pDIBKey = gResMan . LoadDIB {DIB_ROOMKEY , TRUE) ; 

if (IpDIBKey) 

{ 

TRACED ( "Error : Could not create room key DIB!\n"); 
return ; 

} 

POSITION pos = m_SpriteList . GetTailPosition ( ) ; 

CPhasedSprite* pPS ; 

int n=0; 

while (pos) 

{ 

pPS = (CPhasedSprite*)m_SpriteList ,GetPrev{pos) ; 
if ( (pPS->GetSrcType () SPRITE_TILE) 

(pPS->GetLinkType 0 == CPhasedSpri te : : HLINK_U2_EXIT) ) 

{ 

CPoint ptC{pPS->GetCenter () ) ; 
CPhasedSprite* pPSKey = new CPhasedSprite ; 
pPSKey->SetDIB (pDIBKey) ; 

pPSKey->SetType (SPRITE__STATIC | SPRITE__ANI_FADE) ; 
switch (n++) 

{ 

case 1 : 

pPSKey->SetImOp (IMAGE_FLIP) ; 
pPSKey->SetMSPT (900) ; 
break; 
case 2 : 

pPSKey->SetImOp (IMAGE_VERTICAL) ; 
pPSKey->SetMSPT (700) / 
break; 
case 3 : 

pPSKey->SetImOp (IMAGE_FLIP | IMAGE_VERTICAL) ; 
pPSKey->SetMSPT (500) ; 
break; 
default : 

pPSKey->SetMSPT (1000) ; 
break; 

} 

pPSKey->SetNumCells (1, 1) ; 
pPSKey->SetEarth (CPoint (10, 10)) ; 
pPSKey->MoveToEarth (ptC) ; 
pPSKey->SetZByEarth () ; 
// Set Elevation 

InsertSprite (pPSKey) ; 

} 

} 

#endif 
} 

// ChatSock-related 

CActor* CStage : :GetActor (PICS_MEMBER pMem) 
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{ 

for (POSITION pos = m__AniList . GetHeadPosi t ion { ) ; pos ; ) 

{ 

CPhasedSprite* pPS = {CPhasedSprite* ) m_AniList . GetNext (pos ) ; 
// Increment position. 

if (pPS->GetSrcType 0 == SPRITE_ACTOR) // pPS- 

>IsKindOf (RUNTIME_CLASS (CActor) ) 
{ 

CActor* pA = (CActor* )pPS; 
if (pA- >m_Tni . Re f Member { ) == pMem) 
return pA; 

) 

} 

return NULL; 

} 

CActor* CStage : :GetActor (CStringSc strNick) 

{ 

for (POSITION pos = m_AniList . GetHeadPosi t ion () ; pos ; ) 
{ 

CPhasedSprite* pPS = (CPhasedSprite* ) m_AniList . GetNext (pos) ; 
// Increment position. 

if (pPS->GetSrcType 0 == SPRITE_ACTOR) // pPS- 

>IsKindOf (RUNTIME_CLASS (CActor) ) 
{ 

CActor* pA = (CActor*) pPS; 
if (*pA->GetNick() == strNick) 
return pA; 

} 

} 

return NULL; 

} 




CActor* CStage : :GetFrontActor ( ) 

{ 

if ( ! m_pThisActor) 
return NULL; 



WORD wDA = m_pThisActor- >GetDA { ) ; 

CPoint ptTID (m_pThisActor- >m_mi . GetTilelD ( ) ) ; 

if ( • m__pTiles->GetActorNextTileID (ptTID, wDA) ) // ptTID will be reset 
return NULL; 

for (POSITION pos ^ m_AniList , GetHeadPosi t ion () ; pos; ) 
{ 

CPhasedSprite* pPS = (CPhasedSprite* ) m_AniList . GetNext (pos) ; 
// Increment position. 

if (pPS->GetSrcType ( ) SPRITE__ACTOR) // pPS- 

>IsKindOf (RUNTIME_CLASS (CActor) ) 
{ 

if (( (CActor*) pPS) ->m_mi .GetTilelD 0 == ptTID) 
{ 

return (CActor *) pPS ; 

} 

} 

} 

return NULL; 
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} 

#ifdef MAPEDITOR 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 / 11 1 1 1 1 H III 1 1 1 1 
II Tile Manipulations 

// Sprites in the map are not managed by CSpriteList class 

// CSpriteList :: Insert ( ) method calls CSprite : : SetNotif icationObj ect ( ) . 

// So the sprites handled by CSpriteList are automatically 

// updates their dirty regions that are rendered in 

// COSBView: : RenderAndDrawDirtyList { ) . 

// But for the sprites in the map, we should handle dirty regions, 
void CStage : : InsertTile (CPhasedSprite* pPS) 

{ 

if { ! m_pTiles) 

return; 
m_pTiles - >Insert (pPS) ; 
if (m_jpOSBView->GetOSBPalette ( ) ) 

pPS->MapColorsToPalette { (CPalette* ) m_j)OSBView- >GetOSBPalette () ) 

m__pOSBView- >AddDirtyRegion (pPS ) ; 

} 

void CStage :: DeleteTile (CPhasedSprite* pPS) 

{ 

if ( !m_pTiles) 
return; 

m_jpOSBView- >AddDirtyRegion (pPS ) ; 
m_pTiles->Delete (pPS) ; 

} 

BOOL CStage :: MoveTileSpriteTo (CPhasedSprite* pPS , CPoint& ptTo) 

{ 

if ( ! m_j)Tiles) 

return FALSE; 

m_j)OSBView- >AddDirtyRegion (pPS) ; // Save Current Region 

if ( ! m_pTiles->MoveSpriteTo (pPS , ptTo) ) 
return FALSE; 

m__pOSBView- >AddDirtyRegion (pPS ) ; 
return TRUE; 

} 

#endif 
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// stage.h: interface for the CStage class. 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT.COM 

= = = = = = = = = = = = = = = ^ = = = = ^ 



#if ! defined (AFX_STAGE_H D5010EC4_A1F9_11D1_80E2_080009B9F339 INCLIJDED_) 

#define AFX STAGE H D5010EC4 A1F9 llDl 80E2 080009B9F339 INCLUDED 



#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 100 0 

#include "UC2Ani/SpritLst .h" 

#include "UC2Ani/BubblLst . h " 

#include "TileMap-h" 

#include "Actor. h" 



1 1 11 1 1 1 1 / 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 / 1 / 1 1/ / 11 1 1 1 1 / 1 1 1 1 11 1 11 / 1 / 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 / / 

class COSBView; 
class CSprite; 
class CPhasedSprite ; 
class CMCIObject; 
class CMemberInf o; 



enum RENDER MODE 



RM_ELEV = 0x0001, // Show Elevation 

RM_TILE = 0x0002, // Show Tile 

RM_SPRITE = 0x0004, // Show Sprite 
RM__GRID - 0x000 8, 

RM NORMAL = RM ELEV | RM TILE I RM SPRITE 



class CStage : public CObject 

{ 

public : 

CStage {) ; 

virtual -CStage () ; 



// Attributes 

CSpriteList* GetSpriteList ( ) { return &:m_Spri teList ,- } 

int GetNumSprites ( ) const { return 

m_SpriteList -GetCount { ) ; } 



int 

m_AniList . GetCount ( ) 
CTileMap* 
CString* 
CString* 



NULL ; } 



CString* 
CString* 
CString* 



} 



GetNumAniSprites ( ) const 



{ return 



{ return m_pTiles; } 

{ return &m_strStageFile; } 



GetTileMap { ) 
GetFileName ( ) 
GetMapFileName ( ) 

{ return (m_jDTiles) ? m_pTi les - >GetFileName ( ) 



GetPalFileName () 
GetTitle () 
GetMusicSeq { ) 



{ return &:m__strPalFile ; } 

{ return &m_strTitle ; } 

{ return &m_strMusicSeq; } 
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CSize 

>GetScreenSize ( ) ; } 
WORD 
CActor* 



GetScreenSize ( ) const 

{ ASSERT (m_pTiles) ; 



return m_pTiles- 



} 



CActor* 
BOOL 



GetRenderMode ( ) const { return m_wRM; } 

GetThisActor ( ) { return m_pThisActor ; 

GetFrontActor ( ) ; 

IsExitOpenO const { return m_bExitOpen; } 



CActor* 

// ChatSock related 
CActor* 



GetActor (CStringS: strNick) ; 
GetActor (PICS_MEMBER pMem) ; 



// Operations 

BOOL 

void 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

void 
// void 

CSprite* 

CPhasedSprite* 

NULL) ; } 

CPhasedSprite* 



Initialize (COSBView* pView) ; 
DeleteStage ( ) ; 

CreateStage (CSize& szT, CSize& szScr) ; 
CreateOSB (const CSize sScreen) / 
InitMap () ; 

Load (const char* szStage=NULL) ; 
Save (const char* szStage=NULL) ; 
Render (CRect* pClipRect=NULL) ; 
RenderZOrder (CSprite* pSprite) ; 

SpriteHitTest (const CPointS point) 

{ return m_SpriteList . HitTest (point ) ; } 

TileHitTest (const CPointSc point) 

{ return (m_pTiles ? m_pTiles - >HitTest (point ) 



AnimatedHitTest (const CPoint& point) 
{ return 

(CPhasedSprite* ) m_AniList -HitTest (point ) ; } 



void 

void 

void 

void 

CBubble* 

void 

#ifdef MAPEDITOR 
void 
void 
BOOL 

#endif 

CActor* 



InsertSprite (CPhasedSprite* pPS) ; 
InsertBubble (CBubble* pBB) ; 
InsertAniSprite (CPhasedSprite* pPS) ; 
DeleteSprite (CPhasedSprite* pPS) ; 
RemoveBubble (CBubble* pBB) ; 
RemoveAniSprite (CPhasedSprite* pPS) 

{ m_AniList . Remove ( (CSprite* ) pPS) ; } 

InsertTile (CPhasedSprite* pPS) ; 
DeleteTile (CPhasedSprite* pPS) ; 

MoveTileSpriteTo (CPhasedSprite* pPS, CPoint& ptTo) ; 



CreateActor (const int nCharlD, const CPoint& 



point, const BOOL bTileID=TRUE , 



DA_FR) , const BOOL bThis=FALSE) ; 

CActor* 
bThis=FALSE) ; 

void 



// 



int 
void 



const WORD wState= (AS_STAND | 
CreateActor (CMemberlnfoS: mi, const BOOL 
DeleteActor (CActor* pActor) ; 

SetZByYBottom (CPhasedSprite* pPS) ; 
SetRenderMode (const WORD wRM) { m_wRM = wRM; } 
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void SetPalFileName {const CStringSc strPalFile) { 

m_strPalFile = strPalFile; } 

void 

void 
strTitle; } 

void 
strMS; } 

int 
BOOL 
void 



CString* 
void 



ClearFilename ( ) { m_strStageFile . Empty () ; } 
SetTitle (const CStringSc strTitle) { m_strTitle = 

SetMusicSeq (const CStringS: strMS) { m_strMusicSeq 



TickAll 0 ; 
PlayBGM 0 ; 
StopBGMO ; 

ActorMove (CActor* pActor, const BOOL bForward) ; 
SetExitOpen (const BOOL bOpen=TRUE) ; 



protected : 
void 



ParseBGMs ( ) ; 



COSBView* 

CSpriteList 

CSpriteList 

Actors 

CBubbleList 

CTileMap* 

CActor* 

CString 

CString 

CString 

CString 

int* 

int 

int 

0,1,2,... 

CMCIObject* 

WORD 

BOOL 

BOOL 

CString 

CString 

}; 



m_pOSBView; 
m_SpriteList ; 
m AniList; 



// sprite list 

// Animated (Phased) Sprites, 



// filename. ext only 



m_BubbleList ; 
m_pTiles ; 

m_pThi sActor ; 

m__strStageFile ; 

m_strPalFile ; 

m_strTitle ; 

m_strMusicSeq; 
m_aBGM ; 

m__nBGMs ; // Background Music 

m_iBGM; // Current BGM sequence # 



m_pBGM ; 
m_wRM ; 

m_bExi tOpen ; 
m_bMu s i c P 1 ay O K ; 

m_strExitID ; 

m strPrevID ; 



// MIDI sound 
/ / Render Mode 



#endif // 

! defined (AFX_STAGE_H D5010EC4_A1F9_11D1__80E2_080009B9F339 INCLUDED ) 
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// stdafx.cpp : source file that includes just the standard includes 
// UC2.pch will be the pre-compi led header 

// stdafx.obj will contain the pre-compiled type information 
#include "stdafx.h" 



CI 

yj 
iu 

iij 
ni 

01 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

// 



#if [defined (AFX_STDAFX_H A1313 86B_A610_11D1_8 0E2_0800 0 9B9F3 3 9 INCLUDED^) 

#define AFX STDAFX H A131386B A610 llDl 80E2 080009B9F339 INCLUDED 



#if _MSC_VER >= 1000 

#pragma once 

#endif // MSG VER >= 



1000 



#define VC_EXTRALEAN 
headers 



// Exclude rarely-used stuff from Windows 



#include <afxwin.h> // MFC core and standard components 

#include <afxext.h> // MFC extensions 

#include <afxdisp.h> // MFC OLE automation classes 

#ifndef _AFX_NO_AFXCMN_SUPPORT 

#include <afxcmn.h> // MFC support for Windows Common 

Controls 

#endif // __AFX_NO_AFXCMN_SUPPORT 

#include <afxsock.h> // MFC socket extensions 

#include <afxinet.h> 



#include •'UC2Messages . h" // User-Defined Messages 
// { {afx_insert_location} } 

/ / Microsoft Developer Studio will insert additional declarations immediate 
before the previous line. 

#endif // 

! defined (AFX_STDAFX_H A13 13 8 6B_A610_1 1D1_8 0E2_0 8 0 0 09B9F33 9 INCLUDED_) 
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// Test.cpp : Defines the class behaviors for the application. 
// 

#include "stdafx. h" 
#include "Test.h" 

#include "MainFrm . h" 
#include "TestDoc.h" 
#include "TestView.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CTestApp 

BEGIN_MESSAGE_MAP (CTestApp, CWinApp) 
// { { AFX_MSG_MAP (CTestApp) 
ON_COMMAND ( ID_APP_ABOUT , OnAppAbou t ) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code! 
// } } AFX_MSG_MAP 

// Standard file based document commands 
ON_COMMAND (ID_FILE_NEW, CWinApp: lOnFileNew) 
ON_COMMAND (ID_FILE_OPEN , CWinApp: :OnFileOpen) 
// Standard print setup command 

ON_COMMAND (ID__FILE_PRINT_SETUP, CWinApp : : OnFi lePrint Setup ) 
END__MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CTestApp construction 

CTestApp : : CTestApp { ) 

{ 

// TCDO: add construction code here, 

// Place all significant initialization in Initlnstance 

} 

1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 11 / 1 1 1 1 / 1 1 1 1 1/ 1 / 1 1 1 / 1 / 1 1 / 1 !/ 1 1 11 1 / 1 1 // 1 1 / 1 1 1 1 1 / 1 1 1 n / 1 n I 

II The one and only CTestApp object 
CTestApp theApp; 

////////// /I/I I llllllllllllllllllll III II III III lllllllllllllllll II llllllll^ 
I / CTestApp initialization 

BOOL CTestApp :: Initlnstance () 
{ 

if ( ! AfxSocketlnit 0 ) 
{ 

AfxMessageBox (IDP_SOCKETS_INIT_FAILED) ; 
return FALSE; 

} 
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Af xEnableControlContainer ( ) ; 
// Standard initialization 

// If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

#ifdef _AFXDLL 

Enable3dControls ( ) ; // Call this when using MFC in a 

shared DLL 
#else 

Enable3dControlsStatic 0 ; // Call this when linking to MFC 

statically 
#endif 

// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organization. 
SetRegistryKey (_T ( "Local AppWizard-Generated Applications")) ; 

LoadStdProf ileSettings ()\- // Load standard INI file options (including 

MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 

CSingleDocTemplate* pDocTemplate ; 
pDocTemplate = new CSingleDocTemplate ( 

1DR_MAIMFRAME, 

R™TIME_CLASS (CTestDoc) , 

RUNTIME_CLASS (CMainFrame) , // main SDI frame window 

RUNTIME^CLASS (CTestView) ) ; 
AddDocTemplate (pDocTemplate) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdinfo; 
ParseCommandLine (cmdinfo) ; 

// Dispatch commands specified on the command line 
if ( ! ProcessShellCommand (cmdinfo) ) 
return FALSE; 

// The one and only window has been initialized, so show and update it. 
m_j5MainWnd- >ShowWindow (SW_SHOW) ; 
m_pMainWnd- >UpdateWindow ( ) ; 

return TRUE; 

} 

1 1 II 1 1 U 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 11 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 11 1 11 1 1 1 1 1 1 II 1 1 / 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 

1 1 CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 
{ 

public : 

CAboutDlg () ; 
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// Dialog Data 

//{ {AFX__DATA{CAboutDlg) 
enum { IDD = IDD_ABOUTBOX } ; 
//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

//{ {AFX__MSG (CAboutDlg) 

// No message handlers 

//} }AFX__MSG 

DECLARE_MESSAGE MAP ( ) 



CAboutDlg : : CAboutDlg ( ) : CDialog (CAboutDlg : : IDD) 

/ / { { AFX__DATA_INIT (CAboutDlg) 
// } } AFX_DATA_INIT 



void CAboutDlg :: DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
/ / } } AFX_DATA_MAP 



BEGIN_MESSAGE_^4AP (CAboutDlg, CDialog) 

// { { AFX_MSG_MAP (CAboutDlg) 

// No message handlers 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

/ / App command to run the dialog 
void CTestApp : : OnApp About ( ) 

{ 

CAboutDlg aboutDlg; 
aboutDlg . DoModal ( ) ; 

} 

1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 If 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 

II CTestApp commands 
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// Test.h : main header file for the TEST application 
// 

#if 'defined (AFX_TEST_H OBCFBAA6_B807_11D1_9169_444553540001 INCIiUDED_) 

#de f ine AFX_TEST_H 0 BCFBAA6_B 8 0 7_1 1 D 1_9 1 6 9_4 4455354000 1 INCLUDED^ 

#if _MSC_VER >= 10 0 0 
#pragma once 

#endif // _MSC_VER >= 10 0 0 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include "resource. h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
// CTestApp: 

// See Test.cpp for the implementation of this class 
// 

class CTestApp : public CWinApp 

{ 

public : 

CTestApp ( ) ; 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ { AFX_V I RTUAL (CTestApp) 
public : 

virtual BOOL Init Instance () ; 
// } } AFX_VIRTUAL 

// Implementation 

//{ {AFX_MSG (CTestApp) 
afx_msg void OnApp About () ; 

// NOTE - the ClassWizard will add and remove member functions 

here . 

// DO NOT EDIT what you see in these blocks of generated code 

J 

//} }afx_msg 

DECLARE_MESSAGE_MAP ( ) 

}; 



///////////////////////////////////////////////////////////////////////////// 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before, the previous line. 

#endif // 

!def ined (AFX_TEST_H 0BCFBAA6_B8 07_11D1_916 9 444553540001 INCLUDED ) 
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tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (0) , tlandOOO (!) 
tlandOOO (5) , tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (5) 
tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (0) , tlandOOO (1) 
tlandOOO (5) , tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (5) 
tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO {0) , tlandOOO {!) 
tlandOOO (5) , tlandOOO (0) , tlandOOO (1) , tlandOOO {5) , tlandOOO (5) 
tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (0) , tlandOOO (1) 
tlandOOO (5) , tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (5) 
tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (0) , tlandOOO (1) 
tlandOOO (5) , tlandOOO (0) , tlandOOO (1) , tlandOOO (5) , tlandOOO (5) 
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// TestDoc.cpp : implementation of the CTestDoc class 
// 

#include " stdaf x . h " 
#include "Test .h" 

#include "TestDoc.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

const LPCTSTR UNICHAT_FTP= " f tp : //203 . 241 . 132 . 83/UniChat/ " ; 

///////////////////////////////////////////////////////////////////////////// 
// CTestDoc 

IMPLEMENT_DYNCREATE (CTestDoc , CDocument ) 

BEGIN_MESSAGE_MAP {CTestDoc, CDocument) 
//{ {AFX_MSG_MAP (CTestDoc) 

ON_COMMAND (ID_CHANNELS_C1F0REST, OnChannel sClf orest ) 
ON_COMMAND (ID_CHANNELS_C1GARDEN , OnChannel sClgarden) 
ON__COMMAND (ID__CHANNELS_CASTLE1 , OnChannelsCas t lei ) 
ON_COMMAND (ID_CHANNELS_CEMETARY , OnChannelsCemetary ) 
ON_COMMAIsrD (ID_CHANNELS_HOUSA, OnChannel sHousa ) 
ON_COMMAND (ID_CHANNELS_HOUSB , OnChannel sHousb ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CTestDoc construction/destruction 

CTestDoc : : CTestDoc { ) 

{ 

// TODO: add one-time construction code here 

m_bCurrentMIT - FALSE; 

m__bCurrentSIT = FALSE; 

m_strCurrentMIT - Empty 0 ; 

m_s trCurrent SIT. Empty 0 ; 

m_nMITing = 0 ; 

} 

CTestDoc : : -CTestDoc ( ) 

{ 
} 

BOOL CTestDoc : : OnNewDocument { ) 

{ 

if (1 CDocument : : OnNewDocument ( ) ) 
return FALSE; 

// TODO: add reinitialization code here 

// (SDI documents will reuse this document) 

TRACE ( "CTestDoc : : OnNewDocument \n" ) ; 
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//m_dataPP.Open(_T{"ftp://88 . 1 . 26 . 2 /clf orest . si t " ) ) ; 
return TRUE; 



1 11 1 1 1 1 1 11 1 1 1 / 1 1 1 11 11 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 11 1 1 / 1 1 1 1 n 1 1 1 1 1 n 1 1 1 

I / CTestDoc serialization 

void CTestDoc :: Serialize (CArchive& ar) 

{ 

if (ar . IsStoring { ) ) 

{ 

// TODO : add storing code here 

} 

else 

{ 

// TODO: add loading code here 

} 

} 

1 1 / 1 1 1 1 1 / 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 

I / CTestDoc diagnostics 
#ifdef _DEBUG 

void CTestDoc : :AssertValid ( ) const 
{ 

CDocument : : AssertValid ( ) ; 

} 

void CTestDoc :: Dump (CDumpCont ex tS: dc) const 

{ 

CDocument : : Dump ( dc ) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CTestDoc commands 

void CTestDoc :: OnCloseDocument ( ) 

{ 

// TODO: Add your specialized code here and/or call the base class 
TRACE ( "CTestDoc : : OnCloseDocument \n" ) ; 

m_dataPPMIT. Close 0 ; 

CDocument: : OnCloseDocument () ,- 

} 

void CTestDoc: : OnChannelsClf orest { ) 

{ 

// TODO: Add your command handler code here 
if ( !m_nMITing) 

{ 

m strCurrentMIT = " OOlOcsin . sit " ; 
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} 

else 
{ 

} 



CString URL (UNICHAT_FTP) ; 
URL += m_strCurrentMIT; 
m_bCurrentMIT = FALSE ; 
m_nMITing = 1; 
m_dataPPMIT. Open (URL) ; 



Af xMessageBox ( "Downloadng . . . ") ; 



} 

void CTestDoc: : OnChannelsClgarden ( ) 

{ 

// TODO : Add your command handler code here 
if { !m_nMITing) 

{ 

m_strCurrentMIT = " 0020csin . sit " ; 

CString URL (UNICHAT_FTP) ; 
URL m_strCurrentMIT; 
m_bCurrentMIT = FALSE; 
m_nMITing = 1; 
m_dataPPMIT -Open (URL) ; 

} 

else 

{ 
} 

} 



Af xMessageBox ( "Downloadng . . . ") ; 



void CTestDoc: : OnChannelsCastlel ( ) 

{ 

// TODO: Add your command handler code here 
if ( lm_nMITing) 

{ 

m^strCurrentMIT = " 00 OOcsin . sit '* ; 

CString URL (UISriCHAT_FTP) ; 
URL m_strCurrentMIT; 
m_bCurrentMIT = FALSE; 
m_nMITing = 1; 
m_dataPPMlT. Open (URL) ; 

} 

else 

{ 
} 

} 



Af XMessageBox { "Downloadng . 



void CTestDoc: : OnChannelsCemetary { ) 

{ 

// TODO: Add your command handler code here 
if ( !m_nMITing) 

{ 

m strCurrentMIT = " lOOOcsin . sit " ; 
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} 

else 
{ 



CString URL (UNICHAT_FTP) 
URL m_strCurrent:MIT; 
m_bCurrentMIT = FALSE; 
m_nMITing = 1 ; 
m dataPPMIT.Open{URL) ; 



Af xMessageBox ( "Downloadng. - . " ) ; 



} 

} 

void CTestDoc : : OnChannelsHousa ( ) 

{ 

/ / TODO : Add your command handler code here 
if ( !m_nMITing) 

{ 

m_strCurrentMIT = " 2 OOOcsin . sit " ; 

CString URL (UNICHAT_FTP) ; 
URL += m_strCurrentMIT; 
m_bCurrentMIT = FALSE; 
m_nMITing = 1 ; 
m_dataPPMIT. Open (URL) ; 

} 

else 

{ 



} 



} 



Af XMessageBox { "Downloadng . . . ") ; 



void CTestDoc :: OnChannelsHousb ( ) 

{ 

// TODO: Add your command handler code here 
if ( !m_nMITing) 

{ 

m_strCurrentMIT = " 3 000 Ocsin . si t " ; 

CString URL {UNICHAT_FTP) ; 
URL += m^strCurrentMIT; 
m_bCurrentMIT = FALSE; 
m_nMITing = 1 ; 
m_dataPPMIT. Open (URL) ; 

} 

else 

{ 
} 

} 



Af xMessageBox ( "Downloadng. . . " ) ; 



void CTestDoc :: SetCurrentMIT (BOOL available) 

{ 

m_bCurrentMIT = available; 

} 

void CTestDoc : :SetCurrentSIT (BOOL available) 
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{ 

m_bCurrentSIT = available ; 

} 

void CTestDoc :: OnS top Hindi ng (WPARAM wParam, LPARAM iParam) 
{ 

TRACE ( "CTestDoc : : OnStopBinding\n" ) ; 

m_bCurrentMIT = TRUE; 
m_nMITing = 0 ; 

} 
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// TestDoc.h : interface of the CTestDoc class 
// 

1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 / 1 1 1 1 1 1 11 1 1 1 1 / 1 // 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 / 1 1 1 1 n I / 1 /// 1 1 f f 

#if ! defined ( AFX_TESTDOC_H 0BCFBAAC_B807_11D1_9169_444553540001 INCLUDED^) 

#def ine AFX__TESTDOC_H OBCFBAAC_B 8 0 7_1 1D1_9 1 6 9_4 4455354000 1 INCLUDED_ 

#include " JunAsyncMF . h" // Added by ClassView 
#include " JunDataPathProp . h " // Added by ClassView 
#if __MSC__VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 



class CTestDoc : public CDocument 

{ 

protected: // create from serialization only 
CTestDoc ( ) ; 

DECLARE_DYNCREATE (CTestDoc) 

// Attributes 
public : 

CJunDataPathProp* Get JunDPPMIT ( ) { return &m_dataPPMIT ; } 

BOOL IsCurrentMITOKO { return m_bCurrentMIT; } 

// Operations 
public : 

int m_nMITing; // 1:MIT, 2:SIT, 0:Default 
/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CTestDoc) 
public : 

virtual BOOL OnNewDocument ( ) ; 
virtual void Serialize (CArchive& ar) ; 
virtual void OnCloseDocument () ; 
// } }AFX_VIRTUAL 

// Implementation 
public : 

void OnStopBinding (WPARAM wParam, LPARAM IParam) ; 
void SetCurrentMIT (BOOL available) ; 
void SetCurrentSIT (BOOL available); 
virtual -CTestDoc (); 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDumpContext& dc) const; 

#endif 
protected : 

// Generated message map functions 
protected : 

BOOL m_bCurrentMIT; 

BOOL m_bCurrentSIT; 

CString m_s trCurrentMIT; 
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CString m_strCurrentSIT; 
CJunDataPathProp m__dataPPMIT; 
CJunDataPathProp m_dataPPSIT; 

//{ {AFX_MSG (CTestDoc) 
afx_msg void OnChannelsClf orest ( ) ; 
afx_msg void OnChannelsClgarden ( ) ; 
afx_Tnsg void OnChannelsCastlel ( ) ; 
afx_msg void OnChannelsCemetary ( ) ; 
afx_msg void OnChannelsHousa ( ) ; 
afx_msg void OnChannelsHousb ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_r4AP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

//{ {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_TESTDOC_H 0BCFBAAC_B80 7_11D1_916 9_4 445 53 54 00 01 INCLUDED^) 
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// TestView.cpp : implementation of the CTestView class 
// 

#include "stdafx.h" 
#include "Test .h" 

#include "TestDoc.h" 
#include "TestView . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CTestView 

IMPLEMENT_DYNCREATE (CTestView, CFormView) 

BEGIN_MESSAGE_MAP {CTestView, CFormView) 
// { {AFX_MSG_MAP (CTestView) 

ON_BN_CLICKED ( IDC_GETSTATUS , OnGet status) 
// } }AFX_MSG_MAP 

// Standard printing commands 

ON_COMMAND (ID_FILE_PRINT, CFormView: : OnFilePrint ) 
ON_COMMAND (ID_FILE_PRINT_DIRECT, CFormView : : OnFi lePrint ) 
ON_COMMAND { ID_FILE_PRINT_PREVIEW , CFormView : : OnFi lePrint Preview) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CTestView construction/destruction 

CTestView: : CTestView () 

: CFormView (CTestView: : IDD) 

{ 

// { {AFX_DATA_INIT (CTestView) 

// NOTE: the ClassWizard will add member initialization here 
// } }AFX_DATA_INIT 

// TODO : add construction code here 

} 

CTestView: : -CTestView { ) 

{ 
} 

void CTestView: :DoDataExchange (CDataExchange* pDX) 

{ 

CFormView: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CTestView) 

// NOTE: the ClassWizard will add DDX and DDV calls here 
/ / } } AFX_DATA__MAP 

} 

BOOL CTestView: :PreCreateWindow(CREATESTRUCT& cs) 
{ 
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// TODO : Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 

return CFormView: : PreCreateWindow ( cs ) ; 

} 

1 1 1 1 1 1 1 1 1 11 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 / 1 1 1 1 1 1 / 1 1 1 1 1 1 

II CTestView printing 

BOOL CTestView: rOnPreparePrinting (CPrintlnfo* pinfo) 

{ 

// default preparation 

return DoPreparePrint ing (pinf o) ; 

} 

void CTestView: lOnBeginPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
{ 

// TODO: add extra initialization before printing 

} 

void CTestView: :OnEndPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 

{ 

// TODO: add cleanup after printing 

} 

void CTestView: :OnPrint (CDC* pDC, CPrintlnfo*) 

{ 

// TODO: add code to print the controls 

} 

///////////////////////////////////////////////////////////////////////////// 
// CTestView diagnostics 

#ifdef _DEBUG 

void CTestView : :AssertValid ( ) const 

{ 

CFormView: : As sertVal id () ; 

} 

void CTestView: : Dump (CDumpContextfic dc) const 

{ 

CFormView: :Dump(dc) ; 

} 

CTestDoc* CTestView: :GetDocument ( ) // non-debug version is inline 
{ 

ASSERT (m_j)Document->IsKindOf (RUNTIME_CLiASS ( CTestDoc ) ) ) ; 
return (CTestDoc* ) m__pDocument ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CTestView message handlers 

void CTestView :: OnGetstatus ( ) 

{ 

// TODO: Add your control notification handler code here 
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CTestDoc* pDoc = GetDocument { ) ; 
if ( !pDoc->IsCurrentMITOK() ) 
{ 

Af xMessageBox ( "File Downloading. . - ") ; 
return ; 

} 

CJunDataPathProp* pDPP = GetDocument ()- >GetJ'unDPPMIT ( ) 

DWORD size ^ pDPP- >GetLength ( ) ; 

char* buffer = new char[size]; 
pDPP- >SeekToBegin ( ) ; 
pDPP->Read (buf f er, size) ; 

AfxMessageBox (buf f er) ; 

delete [] buffer; 
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// TestView.h : interface of the CTestView class 
// 

///////////////////////////////////////////////////////////////////////////// 

#if ! defined (AFX_TESTVIEW_H OBCFBAAE_B807_11D1_9169_444553540001 INCLUDED^) 

#def ine AFX_TESTVIEW_H 0BCFBAAE_B8 07_11D1_9169_444 553 54 00 01 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CTestView : public CFormView 

{ 

protected: // create from serialization only 
CTestView 0 / 

DECLARE_DYNCREATE (CTestView) 

public : 

//{ {AFX_DATA( CTestView) 
enum{ IDD = IDD_TEST_FORM } ; 

// NOTE: the ClassWizard will add data members here 
//} }AFX_DATA 

// Attributes 
public : 

CTestDoc* GetDocument () ; 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CTestView) 
public : 

virtual BOOL PreCreateWindow (CREATESTRUCT&: cs); 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

virtual BOOL OnPreparePrinting ( CPrintInf o* pinfo) ; 

virtual void OnBeginPrint ing (CDC* pDC, CPrintInf o* pInfo) ; 

virtual void OnEndPrint ing (CDC* pDC, CPrintInf o* pInfo) ; 

virtual void OnPrint (CDC* pDC, CPrintlnfo*) ; 

// } } AFX_VIRTUAL 

// Implementation 
public : 

virtual --CTestView () ; 
#ifdef _DEBUG 

virtual void AssertVal id ( ) const; 

virtual void Dump (CDumpContext& dc) const; 

#endif 
protected : 

// Generated message map functions 
protected : 

//{ {AFX_MSG (CTestView) 

afx__msg void OnGetstatus ( ) ; 
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//} }afx_msg 
declare__message_map ( ) 

}; 

#ifndef _DEBUG // debug version in TestView.cpp 
inline CTestDoc* CTestView : : GetDocument ( ) 

{ return (CTestDoc* ) m_pDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

I defined {AFX TESTVIEW_H 0BCFBAAE_B8 07_11D1_916 9_444 553 54 0001 INCLUDED_) 
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// TileMap.cpp: implementation of the CTileMap class. 
// 

7/^^=. ===^=^=========.==========================. 

// (C) Programmed by Soomin Kim, Feb 19 98 

// Information Technology Institute 
// UNICHAT 

; mapOOO 
#VERSION=l .00; 

#TILESIZE- (64, 32) ; / / (64, 32) 

#SCREENSIZE= (608, 384) ; 
#ROW- (0) ; 

{ 

// nResID=nCellID, nElev, wImOp, T . nEA, wSpriteType , nMSPT, T . wDA, strHyperlink 
// -1=; // NULL Tile 

// nResID=nCellID; // ,DEFAULT_IO, 0, SPRITE__TILE , DA__OPEN ; 

11=7, 0, 4096, 0,1,0, 15, OOlOcsin; 

}" " 

#ROW- ( 1 ) ; 
{ 



#include " stdaf x . h" 
#include "TileMap . h" 



#include " Parser. h" 

#include "ResMan.h" 

#include "UC2Ani/PhSprite . h" 

#include "UC2Ani/0SBView . h" 

#include "UC2Ani/SpritLst .h" 



#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE 

#define new DEBUG_NEW 
#endif 



extern CParser gParser; 
extern CResMan gResMan; 

double GetMapEditorVersion { ) ; 



const char* MAPFILE_FILTER = "Map Information Tables (*. MIT) | *. MIT | " 

"All files (* . *) I * . * I I " ; 
const char* MAPFILE_EXT = ".mit"; // should be lower case 

1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 If 
I / Construction/Destruction 

1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 // 1 1 1 1 / 1 1 / 1 1 // 11 1 / 1 1 / 11 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1/ 1 1 1 / 11 1 1 1 

CTileMap : : CTileMap ( ) 
{ 

TRACED ( "CTileMap: : CTileMap () \n") ; 

m_sScr = CSize(0, 0); // Screen Width, Height 
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m_sT 
m_sTH 
m_sTiles 
m_apTile 
m_pSpriteList 
m__pAniList 
m__pPalette 



= CSize{0, 0) 
= CSize{0, 0) 
= CSize{0, 0) 
= NULL; 
= NULL; 
- NULL; 
= NULL; 



// Tile width, height 

// Half Tile width, height 



CTileMap: :-CTileMap() 
{ 



TRACEO ( "CTileMap: 
DeleteTiles ( ) ; 



-CTileMap 0 \n") ; 



void CTileMap :: DeleteTiles ( ) 

{ 

if ( !m_apTile) 
return ; 

for (int ny^O; ny < m_sTiles.cy; ny++) 

{ 

for (int nx=0; nx < m sTiles.cx; nx++) 



{ 



// 



#ifdef MAPEDITOR 



#endif 



TILESc T = m_apTile [ny] [nx] 

if (T.pPS) 

{ 

RemoveList (T .pPS) ; 
delete T.pPS; 
T.pPS = NULL; 

} 

if (T-pGridPS) 

delete T.pGridPS; 
T.pGridPS = NULL; 



} 

delete [] m_apTile [ny] ; 
m_apTile[ny] = NULL; 



// Time-consuming 



} 



} 

delete [] m_apTile; 
m_apTile = NULL; 
m__strMapFile . Empty ( ) ; 



(1) 



-1,0,1,2, 



- (2) 



// Feb 5, 1998 

// PROBLEM: Get the nearest diamond (tile) center for a given point 

// Let a = w/2, b = h/2 

// x/a + y/b = 2M, M=0,l,2,, 

// x/a - y/b = 2N, N=...,-2, 

// 2M-1 < x/a + y/b <= 2M+1 

// 2N-1 < x/a - y/b <= 2N+1 

// Let S=x/a + y/b, D=x/a - y/b, 

// (S-l)/2 <= M < (S+l)/2 

// (D-l)/2 <= N < (D+l)/2 

// So the problem reduces to finding such an integer that 

// satisfies above inequalities. 

// If we find such integers M and N, we can solve for the center point 



Here S and D may not be an integer! 
- (3) 
-(4) 
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// By adding and subtracting equations (1) and (2), we get 
II C ^ (a(M+N), b(M-N)) -(5) 

CPoint CTileMap : :GetNearestTileCenter (const CPoint& pt) const 

^ float fx = float (pt.x) /m_sTH.cx; // x/a 

float fy = f loat (pt -y) /m_sTH.cy; // y/b 

double fM = (fx + fy + l.)/2.; // (S-l)/2 M < (S + l)/2 

double fN = (fx - fy + l.)/2.; // (D-l)/2 <= N < (D + l)/2 ca 

negative 

if (fN <= 0.) // Consider a problem to find an integer that 

satisfies 

fN--; // -1.5 N < -0.5, But int(-0.5)=0 

int M = int (fM) ; 
int N = int (fN) ; 

return CPoint (m_sTH . cx* (M + N) , m_sTH.cy*(M - N) ) ; 

} 

CPoint CTileMap: iGetNearestTilelndex (const CPoint& pt) const 

{ . ^^ 

CPoint ptCtr (GetNearestTileCenter (pt) ) ; 
int ny - ptCtr.y / msTH.cy; 
int nx = (ny%2 == 0) 

? ptCtr.x / m_sT-CX 
: (ptCtr.x / m_sTH.CX - 1) / 2; 
// Boundary conditions not to get any invalid indices 
if (nx >= m_sTiles.cx) 

nx = m_sTiles.cx - 1; 
if (nx < 0) 

nx = 0 ; 
if (ny >= m_sTiles . cy) 

ny = m_sTiles.cy - 1; 
if (ny < 0) 

ny = 0; 
return CPoint (nx, ny) ; 

} 

CPoint CTileMap: :GetNearestTileIndex(CPhasedSprite* pPS) const 
{ 

CPoint point (pPS->GetCenter 0 ) ; 

point. y += pPS->GetElevation() ; // Adjust for elevation! 

return GetNearestTilelndex (point ) ; 

} 

// You must call SetTileSize 0 before calling this 
BOOL CTileMap :: Create (const int W, const int H) 

{ 

DeleteTiles ( ) ; 

if ((m_sT.cx < 4) II (m_sT-cy < 2)) 

SetTileSize (CSize (64 , 32) ) ; 
m_sScr = CSize (W, H) ; 

m_sTiles = CSize (Tn_sScr . cx / m_sT.cx + 1, m_sScr . cy / m_sTH.cy 
TRACE("# of tiles (%d,%d) => %d\n% m_sTiles.cx, m_sTi les . cy , 
m_sTiles . cx*m_sTiles . cy) ; 

m_apTile = new LPTILE tm_sTi les . cy] ; 
for (int ny=0; ny < m_sTiles.cy; ny++) 

m_apTile[ny] = new TILE [m_sTiles . cx] ; 
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for (int nx=0; nx < m_sTiles.cx; nx++) 

{ 

TILE& T = m_apTile [ny] [nx] ; 
T.pPS 



#ifdef MAPEDITOR 



#endif 



T.pGridPS 

T.nEA 
T . wDA 



= NULL; 

= NULL; 

= 0; 

= DA CLOSED; 



} 

return TRUE; 



} 



// Synchronize actor elevation with sprite elevation 
void CTileMap: :Synchroni2eEA{ const CPoint& ptID) 

^ int nEA = GetPS (ptID) ? GetPS (pt ID) - >GetElevat ion ( ) 

SetEA(ptID, nEA) ; 

} 

void CTileMap :: IncreaseElevations (const int nPixelBy) 



: 0; 



{ 



for (int ny=0; ny < m_sTiles.cy; ny++) 

{ 

for (int nx=0; nx < m_sTiles.cx; nx++) 

{ 

TILE& T = m_apTile [ny] [nx] ; 
if (T.pPS) 



{ 



T-pPS->IncElevation (nPixelBy) ; 
T . pPS- >MoveBy ( 0 , -nPixelBy); 
T.pPS->SetZByEarth ( ) ; 
T.nEA += nPixelBy; 



} 

// Can the actor go further with his direction attribute? 

BOOL CTileMap : :GetActorNextTileID (CPoint& ptTID, const WORD wDA) const 

( 

const int& x - ptTXD.x; 
const intS: y = ptTID.y; 

// Check if this tile has the same direction attribute with the ac 
if ( (m apTile [y] [x].wDA != DA_CLOSED) // we should escape! 

T{m_apTile [y] [x] .wDA & wDA) != wDA) ) 

return FALSE; 



y+1) 



switch (wDA) 
{ 

case DA_BL: ptTID = 
break; 

case DA_BR: ptTID = 
break; 

case DA_FR: ptTID = 
break ; 



(y % 2) ? CPoint(x, y-1) : CPoint(x-l, y-1) 

(y % 2) ? CPoint(x+l, y-1) : CPoint(x, 

(y % 2) ? CPoint(x, y+1) : CPoint(x-l 
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case DA_FL: ptTID = (y % 2) ? CPoint(x+l, y+1) : CPoint (x, y+1); 

break; 

} 

if ((ptTID.x 0) && (ptTID.y 0) 

(ptTID.x < m_sTiles . cx) (ptTID.y < m_sTiles . cy) ) 

return TRUE; // Valid tile id 

return FALSE; 

} 

// Load tiles info from text file 

// Only for Version with 0.99 or below 

BOOL CTileMap :: Load (const char* path) // obslete for Ver 1.0 or above 

{ 

if {(path =- NULL) || ( Istrlen (path) == 0)) 
{ 

: :SetCurrentDirectory (*gResMan.GetResPath() ) ; 

// Show an Open File dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 
m_strMapFile , // Initial file name 

OFN_FILEMUSTEXIST | OFN_HIDEREADONLY , 
MAPFILE_FILTER) ; 

if (dlg.DoModal ( ) == IDOK) 

m_strMapFile = dig . Get PathName { ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
m_strMapFile = path; 

gResMan . ExpandResName (m_strMapFile , MAPFILE EXT); 

} 

CTextFileBuf f er tfb (gParser .GetMaxBuffer {) ) ; 

if (! tfb. Load (m_strMapFile) ) 

{ 

return FALSE; 

} 

gResMan . ExpandResName (m_strMapFile , MAPFILE EXT); 

double fVersion; // file version 

while ( tf b .ReadString { ) ) 
{ 

gParser .CopyBuf fer ( t f b . GetString () ) ; 
if (gParser . IsCommentLine 0 ) 

continue ; 
if ( IgParser . SetLef tToken ('#')) 

continue ; 
CString strBuf; 

if ( ! gParser . GetValueRightToken{ StrBuf , ' = ' ) ) 
continue ; 

1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 /// 1 / 1 1 / 1 1 1 1 1 1 n I // 1 1 1 

if (Istrcmpi (strBuf , "VERSION") == 0) 
{ 
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gParser . SetLef tToken {'='); 

gParser . GetValueRightToken ( f Version, ' ; ' ) ; 
if (fVersion <= 0.90) 

{ 

CString strMsg; 

strMsg. Format {"MIT: Old Version %.2f", fVersion) 
AfxMessageBox { StrMsg) ; 

} 

} 

else if (Istrcmpi (strBuf , "TILESIZE") == 0) 
{ 

gParser . SetLef tToken ('='); 
CSize sT; 

gParser . GetValueRightToken { sT , ' ; ' ) ; 
SetTileSize (sT) ; 

} 

else if {Istrcmpi (strBuf, " SCREENSIZE " ) 0) // matching! 

{ 

gParser . SetLef tToken (•=•); 
CSize sScr; 

gParser . GetValueRightToken { sScr, ' ; ' ) ; 
Create ( sScr) ; // Create Tiles 

} 

else if (Istrcmpi (strBuf, "ROW") == 0) 
{ 

gParser . SetLef tToken ( ' ( ' ) ; 
int ny; 

gParser . GetValueRightToken {ny, ' ) ' ) ; 

if (ny >= m_sTiles.cy) 

{ 

TRACEC'TILE Invalid row {%d)l\n", ny) ; 
continue ; 

} 

if ( ! LoadRow ( tf b, ny, fVersion)) 
continue / 

} 

else 
{ 

TRACEl ( "Unknown Data type in Map f ile ( %s ) ! \n" , strBuf) 

} 

} 

#ifdef MAPEDITOR 
LoadGrid ( ) ; 

#endif 

return TRUE; 

} 

// Load each tile row from memory buffer 

// nResID=nCellID, nElev, wImOp, T . nEA, wType , nMSPT, T. wDA, strHyperl ink ; 
// -1=; // NULL Tile 

// nResID^nCelllD; // , DEFAULT_IO , 0 , SPRITE_TILE , DA_OPEN ; 

BOOL CTileMap : : LoadRow {CTextFileBuf f er& tfb, const int ny, const double 

fVersion) 

{ 

int nx^O; 

if (ny >= m_sTiles.cy) 

{ 
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TRACEC'TILE Invalid row (%d)!\n'\ ny) ; 
return FALSE; 

} 

while ( tf b . ReadString ( ) ) 

{ 

gParser . CopyBuf f er ( tf b . GetString ( ) ) ; 
if (gParser . IsCommentLine ( ) ) 

continue ,- 
if {gParser . SetLef tToken ('{')) 
{ 

if (gParser . SetLef tToken ('}')) 

break; 
continue ; 

} 

if (gParser - SetLef tToken ('}')) 
break; 



if (nx >= m_sTiles.cx) 
{ 

TRACEC'TILE Invalid column (%d)!\n", nx) ; 
continue; 

} 

CString strResName; 

TILE& T = m_apTile [ny] [nx] ; 

ASSERT ( !T.pPS) ; // already initialized as a NULL 
ASSERT(T.nEA == 0); 
// ASSERT (T.wDA == DA_CLOSED) ; 

int nCelllD; 
int nElev = 0 ; 

WORD wImOp = DEFAULT_IO; 
WORD wType = S PR I TEXTILE; 
int nMSPT = 0; 

CString strHyperlink; 

/* if (fVersion <= 0.90) // Version 0.90 (before Mar 7, '98) 

{ 

gParser . GetValueRightToken (strResName , ' = ' ) ; 
if (StrResName [0] == • 0 ' ) // NULL tile 

{ 

T.wDA = DA_CLOSED; 
nx++ ; 
continue ; 

} 

gResMan . Pref ixUDSOO (strResName) ; 

} 

else // New Version 

{ 

*/ 

int nResID; 

gParser .GetValueRightToken (nResID, ' = ' ) ; 
if (nResID < 0) // -1 for NULL Tile 
{ 

if (fVersion < 1.01) 
{ 

T.wDA = DA_CLOSED; 

} 

else // VI. 01 
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' ; • ) ) 

' , • . • ; ' ) ) 
NULL tile 



nResID) ; 



// } 



; •)) 



; ■) ) 



if ( !gParser.GetValueRightToken(T.nEA, 

T.nEA = nElev; 
else if ( ! gParser . GetValueRightToken (T . wDA, 

T.wDA = DA_CLOSED; // default for 

} 

nx++ ; 
continue ; 

} 

CString* pStr = gResMan . GetSpriteName (nResID) ; 

if (ipStr) 

{ 

strResName . Format ( "ResID=%d in Map not found!'*, 

Af xMessageBox { strResName) ; 
continue ; 

} 

StrResName = *pStr; 



T.nEA = nElev; // default 

T.wDA = DA_OPEN; // default condition 

gParser -GetValueRightToken (nCelllD, ' , ' , ' ; ' ) ; 
if ( IgParser. GetValueRightToken (nElev, *;')) 
nElev = 0; 

else // continue to the next delimeter 
{ 

if ( 'gParser .GetValueRightToken (wImOp, ';')) 
WimOp = DEFAULT_IO; 

else 
{ 

if ( IgParser. GetValueRightToken (T.nEA, ';')) 
T.nEA = nElev ; 

else 

{ 

if ( IgParser . GetValueRightToken (wType , 
wType = SPRITE_TILE; 

else 

{ 

if ( IgParser .GetValueRightToken (nMSPT, 
nMSPT = 0; 

else 



if 

( IgParser .GetValueRightToken (T.wDA, ' , ' , ' ; ' ) ) 



T.wDA = DA OPEN; 



else 
{ 

if 

( IgParser . GetValueRightToken (strHyper link, ' , ' , ' ; ' ) ) 



strHyperl ink . Empty ( ) 
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} 

// Resource Allocation via Resource Manager 
CPhasedSprite* pPS = gResMan . LoadPhasedSprite ( strResName ) 
if (!pPS) 
{ 

StrResName +- " not found!"; 
AfxMessageBox (strResName) ; 
continue ; 

} 



pPS->SetCell (nCelllD) ; 
CPoint ptLT (GetLT (nx, ny) ) ; 
if (nElev) 

{ 

pPS- >SetElevation (nElev) ; 
ptLT.y -= nElev; 

} 

pPS->SetLT(ptLT) ; 
pPS->SetType (wType) ; 
if (fVersion < 1.01) 
{ 

wImOp &= --NO^COLORKEY ; 
if (nMSPT && !pPS->GetAniType 0 ) 
nMSPT = 0; 

} 

pPS->SetImOp (wImOp) ; 
pPS->SetZByEarth () ; 
if (nMSPT > 0) 

pPS->SetMSPT (nMSPT) ; 
if ( ! strHyperlink , IsEmpty ( ) ) 

pPS->SetHyperlink (strHyperlink) ; 
T.pPS = pPS; 



InsertList (pPS) ; 
if (mj^Palette) 

pPS->MapColorsToPalette (m_pPalette) ; 

nx++ ; 

} 

return TRUE; 

} 



BOOL CTileMap : :Save (CStdioFilet f) 
{ 

CString str; 

str. Format ( " \n#TILESIZE= ( %d , %d) ;\n" , m_sT. cx, m_sT. cy) ; // (64 , 32) 

f . WriteString (str) ; 

str . Format ( " #SCREENSIZE= (%d, %d) ; \n" , m_sScr . cx, m_sScr . cy) ; 
f . WriteString (str) ; 



int n=0; 
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for (int ny=0; ny < m_sTiles . cy ; ny++) 
{ 

str .Format ( "#ROW= (%d) ; \n{\n" , ny) ; 
f . WriteString (str) ; 

for (int nx=0; nx < m_sTiles.cx; nx++) 

{ 

TILE& T = m_apTile [ny] [nx] ; 

if (T.pPS) 

{ 

CString strResName { *T - pPS - >GetDIB ( ) - >GetName ( ) ) ; 

gResMan . MakeResName (strResName) ; 
// str. Format ( " %s=%d , %d , %d , %d , %d , %d; \n" , 

StrResName, // #VERSION=0 . 90 

int nResID = gResMan . GetSpritelD ( StrResName ) ; 

if (nResID < 0) 

{ 

StrResName += " not found"; 
Af xMe s s ageBox ( s t rRe sName ) ; 

} 

if ( (T.pPS ->GetElevation() == 0) && 

(T.pPS->GetImOp () == DEFAULT_IO) && 
(T.nEA == 0) && 

(T.pPS->GetType 0 == SPRITE_TILE) 
(T.wDA == DA_OPEN) && 
( 1 T.pPS ->HasHyperl ink () ) ) 
{ // typical case 

str . Format ( "%d=%d" , nResID, T.pPS- 

>GetCellID ( ) ) ; 

} 

else 

{ 

str. Format { "%d=%d, %d , %d , %d , %d , %d , %d" , nResID, 
T.pPS->GetCellID () , 
T . pPS- >GetElevation 0 , 
T . pPS - >GetImOp ( ) , T . nEA, 
T.pPS ->GetType () , T . pPS - >GetMSPT () , 
T.wDA) ; 

if (T.pPS->HasHyperlink() ) 

{ 

str ' , ' ; 

str += *T.pPS->GetHyperlink ( ) ; 

} 

} 

str += ";\n"; 

} 

else // NULL Tile, VI . 01 
{ 

str . Format (" -l=%d, %d;\n" , T.nEA, T.wDA); 

} 

f . WriteString (str ) ; 
n++; 

} 

f . WriteString ( " } \n" ) ; 

} 

str . Format (" ; %d tiles. \n", n) ; 
f - WriteString (str) ; 
// str . Format ( "%s : %d sprites written.", m_strMapFile , n) ; 
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// Af xMessageBox ( str ) ; 
return TRUE ; 

} 

void CTileMap :: DrawHyper link (CDC* pDC, const CPointS: ptC, const int nType) 
{ 

CPen penRed (PS_SOLID, 1, (nType == CPhasedSprite : : HLINK_U2_EXIT) ? 

PALETTERGB (255, 0,0) : 
PALETTERGB (0, 255, 0 ) ) ; 

CBrush brush ((nType ^= CPhasedSprite :: HLINK_U2_EXIT) ? 

PALETTERGB (255, 0,0) : 

PALETTERGB (255 , 255 , 0) ) ; // Yellow HS__CROSS 
CPen* penOld = pDC- >SelectObj ect ( ScpenRed) / 
CBrush* brOld = pDC- >SelectObj ect ( &:brush) ; 
pDC->SetBkMode (TRANSPARENT) ; 

CRect rc(ptC.x-5, ptC.y-5, ptC.x+5, ptC.y+5); 
pDC->Ellipse (re) ; 

pDC- >SelectObj ect (brOld) ; 
pDC- >SelectObj ect (penOld) ; 

} 

// ptCO / ptCl ^ ptC3 (draw next time) 
// ptC2 / 

void CTileMap :: DrawElevationGraph (CDC* pDC) 

{ 

CRect rcDraw; 

// OnPrepareDC (pDC) ; // CScroll changes the viewport origin and mapping 
mode . 

pDC- >GetClipBox (rcDraw) ; 

CPen penRed (PS_SOLID, 1, PALETTERGB (2 55 , 0 , 0 )) ; 
CPen penRedDot (PS_DOT, 1, PALETTERGB ( 2 55 , 0 , 0 )) ; 
CPen penGreen (PS_SOLID, 1, PALETTERGB ( 0 , 2 55 , 0 )) ; 
CPen penGreenDot (PS_DOT, 1, PALETTERGB ( 0 , 2 55 , 0 )) ; 
// CBrush brush {HS_CROSS, PALETTERGB ( 2 55 , 2 55 , 0 )) ; // Yellow 

CPen* penOld = pDC- >SelectOb j ect ( &:penRed) ; 
pDC->SetBkMode (TRANSPARENT) / 
// CBrush* brOld = pDC->SelectObj ect ( &brush) ; 

// pDC- >Rectangle ( &rcDraw) ; 

for (int ny=0; ny < m_sTiles.cy; ny += 2) 

{ 

int nx2 = m_sTiles.cx - 1; 
for (int nx=0; nx < nx2 ; nx++) 

{ 

TILE ScTO = m_apTile [ny] [nx] ; 

CPoint ptCO (GetCenter (nx, ny) ) ; 

if (TO.pPS ScU TO .pPS->GetElevation 0 ) 

{ 

CPoint ptCOO(ptCO); // Save before elevation 

ptCO.y -= TO .pPS- >GetElevation ( ) ; 
pDC->MoveTo (ptCOO ) ; 

pDC->SelectObject ( (TO .pPS->GetElevation ( ) < 0) ? 

&penRed : &penRedDot) ; 
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pDC- >LineTo (ptCO) ; 

} 

if (TO.pPS Sc8c TO.pPS->HasHyperlink() ) 

DrawHyperlink(pDC, ptCO, TO . pPS - >GetLinkType () ) ; 

TILE &T3 = m_apTile[ny] [nx+1] ; 
CPoint ptC3 (GetCenter (nx+1, ny) ) ; 
if (T3.pPS && T3 .pPS->GetElevation 0 ) 
{ 

ptC3.y -= T3 .pPS->GetElevation ( ) ; 

} 

if (ny >- 1) 
{ 

TILE &T1 = m_apTile [ny-1] [nx] ; // upper line 

CPoint ptCl (GetCenter {nx, ny-1)); 

if (Tl.pPS Sc8c Tl .pPS->GetElevation {) ) 

{ 

CPoint ptClO(ptCl); // Save before 

elevation 

ptCl.y -= Tl .pPS->GetElevation ( ) ; 
pDC->MoveTo (ptClO) ; 

pDC->SelectObject ( (Tl . pPS - >GetElevat ion () < 0) 

? &penRed : &penRedDot) ; 

pDC->LineTo (ptCl) ; 

} 

if (Tl.pPS ScSc Tl .pPS->HasHyperlink 0 ) 
DrawHyperlink (pDC, ptCl, Tl.pPS- 

>GetLinkType ( ) ) ; 

pDC- >MoveTo (ptCO) ; 

pDC->SelectObject (Tl .pPS ? &penGreen : &penGreenDot ) 
pDC->LineTo (ptCl) ; 

pDC->SelectObject (T3 -pPS ? &penGreen : &penGreenDot ) 
pDC->LineTo(ptC3) ; 

} 

if (ny < (m_sTiles . cy- 1 ) ) 
{ 

TILE 5cT2 = m_apTile [ny+1] [nx] ; // lower line 

CPoint ptC2 (GetCenter (nx, ny+1) ) ; 

if (T2.pPS && T2 .pPS->GetElevation 0 ) 

{ 

CPoint ptC20(ptC2); // Save before 

elevation 

ptC2,y -= T2 .pPS->GetElevation () ; 
pDC->MoveTo (ptC2 0) ; 

pDC->SelectObject ( (T2 . pPS - >GetElevation ( ) < 0) 

? ficpenRed : &penRedDot) ; 

pDC->LineTo (ptC2) ; 

} 

if (T2.pPS && T2 .pPS->HasHyperlink 0 ) 
DrawHyperlink (pDC, ptC2 , T2.pPS- 

>GetLinkType ( ) ) ; 

pDC- >MoveTo (ptCO) ; 

pDC->SelectObject (T2 .pPS ? &penGreen : &penGreenDot ) 
pDC->LineTo (ptC2 ) ; 

pDC->SelectObject (T3 -pPS ? &penGreen : &penGreenDot ) 
pDC->LineTo (ptC3 ) ; 
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} 

/* 

CPoint ptC (GetCenter (nx, ny) ) ; 

pDC->LineTo (ptC.x + m_sTH.cx, ptC.y + m_sTH.cy); 
pDC- >LineTo (ptC . X + m_sT.cx, ptC.y); 
pDC- >MoveTo (ptC -X, ptC.y); 

pDC->IjineTo (ptC-x + nn_sTH.cx, ptC.y - m_sTH.cy); 
pDC->LineTo (ptC .X + m_sT.cx, ptC.y); 

} 

} 

pDC->SelectObject (penOld) ; 
// pDC->SelectObject (brOld) ; 
} 

void CTileMap : : DrawActorElevationGraph (CDC* pDC) 

{ 

CRect rcDraw; 

// OnPrepareDC (pDC) ; // CScroll changes the viewport origin and mappi 
mode . 

pDC->GetClipBox (rcDraw) ; 

CPen penRed (PS_SOLID, 1, PALETTERGB { 255 , 0 , 0 ) ) ; 
CPen penRedDot ( PS_DOT , 1 , PALETTERGB (255,0,0)); 
CPen penBlue (PS_SOLID, 1, PALETTERGB ( 0 , 0 , 255 )) ; 
CPen penBlueDot (PS__DOT, 1, PALETTERGB ( 0 , 0 , 2 55 )) ; 
// CBrush brush (HS_CROSS, PALETTERGB ( 2 55 , 2 55 , 0 )) ; // Yellow 

CPen* penOld = pDC- >SelectOb j ect ( ScpenRed) ; 
pDC->SetBkMode (TRANSPARENT) ; 
// CBrush* brOld = pDC- >SelectObj ect ( tbrush) ; 

// pDC- >Rectangle ( &rcDraw) ; 

for (int ny=0; ny < m_sTiles . cy ; ny += 2) 

{ 

int nx2 = m_sTiles.cx - 1; 
for (int nx=0; nx < nx2 ; nx++) 

{ 

TILE ScTO = m_apTile [ny] [nx] ; 
CPoint ptCO (GetCenter (nx, ny) ) ; 
if (TO.nEA) 

{ 

CPoint ptCOO(ptCO); // Save before elevation 

ptCO.y -= TO.nEA; 
pDC->MoveTo (ptCOO) ; 

pDC->SelectObject ( (TO . nEA < 0) ? &penRed : 



&:penRedDot) ; 



pDC->LineTo (ptCO) ; 



TILE ficTS = m_apTile[ny] [nx+l] ; 
CPoint ptC3 (GetCenter (nx+l, ny) ) ; 
if {T3,nEA) 
{ 

ptC3 .y -= T3 .nEA; 

} 
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if {ny 1) 
{ 



elevation 



ScpenRedDot) ; 



elevation 



ScpenRedDot ) 



TILE &T1 = m_apTile [ny-1] [nx] ; 
CPoint ptCl CGetCenter (nx, ny-1)); 
if (Tl.nEA) 

{ 

CPoint ptClO(ptCl); // Save before 

ptCl.y -= Tl.nEA; 
pDC->MoveTo (ptClO) ; 

pDC->SelectObject ( (Tl .nEA < 0) ? tpenRed : 
pDC->LineTo (ptCl) ; 

} 

pDC->MoveTo (ptCO) ; 

pDC->SelectObject (Tl .pPS ? &:penBlue 
pDC->LineTo (ptCl) ; 

pDC->SelectObject (T3.pPS ? &:penBlue 
pDC->LineTo (ptC3) ; 



ScpenBlueDot ) 
&:penBlueDot ) 



} 

if (ny < (m_sTiles . cy- 1 ) ) 
{ 

TILE &T2 = m_apTile [ny+1] [nx] ; 
CPoint ptC2 (GetCenter (nx, ny+1) ) ; 
if (T2.nEA) 
{ 

CPoint ptC20(ptC2); // Save before 

ptC2.y -= T2-nEA; 
pDC->MoveTo (ptC2 0) ; 

pDC->SelectObject C (T2 .nEA < 0) ? &:penRed : 
pDC->LineTo (ptC2) ; 

} 

pDC->MoveTo (ptCO) ; 

pDC->SelectObj ect (T2 .pPS ? ScpenBlue : SpenBlueDot) 
pDC->LineTo (ptC2 ) ; 

pDC->SelectObject (T3 -pPS ? ScpenBlue : &penBlueDot) 
pDC->LineTo (ptC3) ; 

} 



// 
} 



} 



CPoint ptC (GetCenter (nx, ny) ) ; 

pDC->LineTo (ptC.x + m_sTH.cx, ptC.y + m_sTH.cy); 
pDC->LineTo (ptC.x + m_sT.cx, ptC.y); 
pDC->MoveTo (ptC ,x, ptC.y); 

pDC->LineTo (ptC -X + m_sTH.cx, ptC.y - m_sTH.cy); 
pDC->LineTo (ptC .X + m_sT.cx, ptC.y); 



} 

pDC->SelectObject (penOld) ; 
pDC->SelectObject (brOld) ; 



// Synchronize EA (Actor Elevation) with Sprite Elevation 

BOOL CTileMap: : SynchronizeAllEA () 

{ 



A-486 



TileMap.cpp 

for (int ny=0; ny < m_sTi les . cy ; ny++) 

{ 

for (int nx=0; nx < m_sTiles.cx; nx+-f-) 

{ 

TILE &T = m_apTile [ny] [nx] ; 

T.nEA = T.pPS ? T.pPS->GetElevation() : 0 ; 

} 

} 

return TRUE; 

} 

/* 

void CTileMap: :RenderGrid (const HBITMAP hbm, const CRect* pClipRect) 
{ 

CRect rcDraw; 

rcDraw = { JpClipRect) 

? CRect (0, 0, m_sScr.cx-l, m_sScr . cy- 1 ) 

: *pClipRect; 

CDC dcMem; 

dcMem. CreateCompatibleDC (NULL) ; // create a memory dc that i 

compatible with current screen 

CBitmap* pbmOld = dcMem. SelectObj ect (CBitmap : : FromHandle (hbm) ) 

CPen penOdd (PS_SOLID, 1, PALETTERGB ( 2 55 , 0 , 0 ) ) ; 
CPen penEven (PS_SOLID, 1, PALETTERGB ( 0 , 0 , 2 55 )) ; 

CPen* penOld = (CPen* ) dcMem . SelectOb j ect ( &penOdd) ; 

int ny = rcDraw.top / m_sTH.cy; 

int ny2 = rcDraw . bottom / m_sTH.cy + 2/ 

if (ny2 > m_sTiles.cy) 

ny2 = m_sTiles.cy; 
int nxl = rcDraw.left / m_sT.cx; 

int nx2 = (m_sTH.cx + rcDraw . right } / m_sT.cx + 1; 
if (nx2 > m_sTiles.cx) 

nx2 = m^sTiles.cx; 
for (; ny < ny2 ; ny++) 

{ 

CPoint ptLT; 

ptLT.y = GetLTy(ny); 

dcMem. SelectObject ( (ny % 2 =^ 0) ? ipenEven : &penOdd) ; 
for {int nx = nxl; nx < nx2 ; nx++) 

{ 

ptLT.x = GetLTx(nx, ny) ; 

int xl = ptLT.x + m_sTH.cx - 2; 

int x2 = xl + 1; 

int x3 = ptLT.x + m_sT.cx - 3; 
int yl = ptLT.y + m_sTH.cy - 1; 
int y2 = yl + 1; 
int y3 = ptLT.y + m_sT.cy - 1; 
dcMem.MoveTo (ptLT . X, yD ; 
dcMem.LineTo (xl , ptLT.y); 
dcMem.MoveTo (x2 , ptLT.y); 
dcMem. LineTo (x3 , yl) 
dcMem.MoveTo (x3 , y2) 
dcMem . LineTo (x2 , y3 ) 
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dcMem . MoveTo (xl , y3 ) ; 
dcMem. LineTo (ptLT.x, y2 ) ; 

} 

} 

dcMem . SelectOb j ect (penOld) ; 
dcMem . SelectObj ect (pbmOld) ; 

} 

*/ 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 1 1 1 / 1 1 1 1 1 1 1 1 1 

II Tile Manipulations 

CPhasedSprite* CTileMap : :HitTest (const CPointSc point) 
{ 

CPoint pt Id (GetNearestTilelndex (point ) ) ; 
return m_apTile [ptid . y] [ptid.x] .pPS; 

} 

BOOL CTileMap :: InsideTile (const CPointSc ptTilelD, const CPointS: point) const 

{ 

CPoint pt (point); 

CPoint ptLT(GetLT(ptTileID.x, ptTilelD.y) ) ; 

if ((pt-x < ptLT.x) II (pt.x >= (ptLT . x+m_sT . cx) ) ) 

return FALSE; 
TILE& T = m_apTile [ptTilelD.y] [ptTile ID . x] ; 
if (T.pPS && T.pPS->GetElevation () ) 

pt.y -= T.pPS->GetElevation ( ) ; 
if ((pt.y < ptLT.y) || (pt.y > (ptLT . y+m_sT . cy ) ) ) 

return FALSE; 
CPoint ptID (GetNearestTilelndex (pt) ) ; 
return {ptID == ptTilelD) ; 

} 

// Sprite elevation 

// returns 0 for NULL tile 

int CTileMap :: GetElevation (const CPoint& ptID) const 
{ 

TILES: T = m_apTile [ptID.y] [ptID.x]; 
return T.pPS ? T . pPS - >GetElevat ion ( ) : 0; 

} 

void CTileMap :: InsertList (CPhasedSprite* pPS) 
{ 

if (IpPS) 

return ; 
if (m_pSpriteList ) 

m_pSpriteList - >Insert (pPS ) ; 
if (m__pAniList pPS - >GetAniType () ) 

m_pAniList- >Insert (pPS) ; 

} 

void CTileMap : :RemoveList (CPhasedSprite* pPS) 
{ 

if (!pPS) 

return; 

if (m_pAniList) // && pPS - >GetAniType () ) 
m_pAniList- >Remove (pPS) ; 
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if (m_pSpriteList ) 

m_pSpriteList- >Remove (pPS) ; 

} 

// Find the entry tile matching szFromID 

// If not found, return any other entry point found last 

CPoint CTileMap : :GetEntrylD (LPCTSTR szFromID) const 

{ 

CPoint ptID{10/2, 24/2); 

for (int ny=0; ny < m_sTiles.cy; ny++) 

{ 

for (int nx=0; nx < m_sTi les . cx; nx++) 

{ 

CPhasedSprite*& pPS = m_apTile [ny] [nx] .pPS; 
if (pPS (pPS->GetLinkType () == 

CPhasedSprite: : HLINK_U2_ENTRY) ) 
{ 

ptID = CPoint (nx, ny) ; 
char szName [2 5 6] ; 

Istrcpy (szName , *pPS - >GetHyperlink () ) ; 

ASSERT ( (szName [0] == 'e') && (szName [1] == ':')); 

if ( Istrcmpi ( ficSzName [2 ] , szFromID) ==0) // found 

{ 

TRACE ( "Entry (From %s) found. \n", szFromID); 
return ptID; 

} 

} 

} 

} 

TRACE ( "Entry (From %s) not found!\n", szFromID); 

return ptID; // Not found, but anyway return another entry 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 // 1 1 1 11 1 1 1 1 11 1 1 1 1 // 1 1 1 1 1 1 1 1 1 11 1 1 1 1 / 1 u 1 1 / 1 11 1 1 1 m 1 1 / 1 1 1 

#ifdef MAPEDITOR 

BOOL CTileMap :: LoadGrid (const WORD wResId) 

{ 

BOOL bResult - TRUE; 

for (int ny=0; ny < m_sTiles.cy; ny++) 

{ 

for (int nx=0; nx < m_sTiles.cx; nx++) 

{ 

TILE &:T -- m_apTile[ny] [nx] ; 

// Resource Allocation via Resource Manager 

CDIB* pDIB = gResMan.LoadDIB (wResId, TRUE); // 

LoadMasterPalette 

if (!pDIB) 

{ 

TRACE ("Grid resource load error !\n"); 
if (T.pGridPS) 

delete T.pGridPS; 
T.pGridPS = NULL; 
bResult = FALSE; 

} 

else // DIB found 

{ 
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CPhasedSprite* pPS new CPhasedSprite ; 
pPS->SetDIB (pDIB) ; // link DIB resource 

sprite 

if (T.pGridPS) 

delete T.pGridPS; 
T.pGridPS = pPS; 

pPS->SetType (SPRITE_TILE) ; 
pPS->SetNumCells (8 , 1) ; 

CPoint ptID(nx, ny) ; 
SetGridlmage {ptID, T.wDA) ; 

CPoint ptLT (GetLT (nx, ny) ) ; 
pPS->SetLT (ptLT) ; 
pPS->SetZByEarth { ) ; 
if (m_j5Palette) 

pPS- >MapColorsToPalette (m__pPalette ) ; 

} 

} 

} 

return bResult; 

} 

// Recalculate all DAs from the left top tile 
BOOL CTileMap: : Recal culat eDA ( ) 

{ 

for (int ny=0 ; ny < m_sTiles . cy ; ny++) 

{ 

for (int nx=0; nx < m_sTiles.cx; nx++) 

{ 

TILE &T = m_apTile [ny] [nx] ; 
CPoint ptID(nx, ny) ; 

SetDACptID, T.pPS ? T,wDA : DA_CLOSED) ; 

} 

} 

return TRUE ; 

} 

// Overwrites existing tile 

BOOL CTileMap :: Insert (CPhasedSprite* pPS) 

{ 

if (!pPS) 

return FALSE ; 
CPoint ptID (GetNearestTilelndex (pPS) ) ; 
TILE& T = m^apTile [ptID.y] [ptlD.x]; 
if (T.pPS) 
{ 

RemoveList (T.pPS) ; 

delete T.pPS; // Replace existing sprite 

} 

CPoint ptLT (GetLT (ptID.x, ptID.y)); 
ptLT.y -= pPS->GetElevation 0 ; 
pPS->SetLT (ptLT) ; 
pPS->SetZByEarth 0 ; 

T.pPS = pPS; // Newly assign the tile sprite 

T.nEA = pPS- >GetElevation ( ) ; 
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SetDA{ptID, DA_OPEN) ; 
InsertList (pPS) ; 
return TRUE; 

} 

void CTileMap :: Delete (CPhasedSprite* pPS) 
{ 

if (!pPS) 

return ; 

CPoint ptID (GetNearestTilelndex (pPS) ) ; 
TILE& T = m_apTile [ptID.y] [ptlD.x]; 
ASSERT(T.pPS pPS) ; 

if (T.pPS) 
{ 

RemoveList (T.pPS) ; 
delete T.pPS; 
T.pPS = NULL; 

T.nEA = 0; 

SetDA(ptID, DA_CLOSED) ; 

} 

return; 

} 

BOOL CTileMap :: MoveSpriteTo (CPhasedSprite* pPS , CPointS: ptTo) 
{ 

if (!pPS) 

return FALSE; 
// Get the Sprite's Center point 
CPoint ptIdFrom (GetNearestTilelndex (pPS) ) ; 
CPoint ptIdTo (GetNearestTilelndex (ptTo) ) ; 
if (ptIdFrom ptIdTo) // Same Indices 

return FALSE; 

TILE& TFrom = Tn_apTile [ptIdFrom . y] [pt IdFrom . x] ; 
TILE& TTo = m_apTile [ptIdTo -y] [ptIdTo.x]; 
ASSERT ( TFrom. pPS pPS) ; 

if (TTo.pPS) 
{ 

RemoveList (TTo -p PS) ; 
delete TTo.pPS; // 

} 

TTo.pPS := TFrom. pPS; 

TTo . nEA = TFrom . nEA; 
ASSERT (TFrom. pPS) ; 

TFrom. pPS = NULL; // Do not delete TFrom. pPS! 

TFrom . nEA ^ 0 ; 
TFrom . wDA = DA_OPEN ; 

CPoint ptLT = GetLT (ptIdTo.x, ptIdTo.y); 
ptLT.y -= pPS->GetElevation ( ) ; 
pPS->SetLT (ptLT) ; 
pPS->SetZByEarth ( ) ; 
return TRUE; 

} 




Delete Destination Sprite 

// Newly assign the tile sprite 
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// Set DA of the specified tile and other four tiles in its neighbor 
void CTileMap :: SetDA (const CPointi ptID, const WORD wDA) 

{ 

const intSc x - ptlD.x; 
const intSc y = ptID.y; 
m_apTile [y] [x] . wDA = wDA; 
SetGridlmage (ptID , wDA) ; 
if ( (y % 2) 0) // y = 2n 

{ 

if {y > 0) 
{ 

if {x > 0) 
{ 

WORD& wBL - m_apTile [y-1] [x-l].wDA; 
if ( (wDA Sc DA__BL) == DA_Bh) 
wBIi I- DA_FL; 

else 

wBL -DA_FL; 
SetGridlmage (CPoint (x-1 , y-1) , wBL) ; 

} 

WORD& wBR - m_apTile [y-1] [x] .wDA; 
if ( (wDA & DA_BR) == DA_BR) 
wBR 1= DA_FR; 

else 

wBR &^ ~-DA_FR; 
SetGridlmage (CPoint (x, y-1) , wBR) ; 

} 

if {(y+1) < m_sTiles . cy) 

{ 

if (x > 0) 
{ 

WORD& wFR = m_apTile [y+1] [x-1] .wDA; 
if ( (wDA & DA_FR) DA_FR) 
wFR I = DA__BR ; 

else 

wFR ~DA_BR/ 
SetGridlmage (CPoint {x-1, y+1) , wFR) ; 

} 

WORD& wFL = m_apTile [y+1] [x] .wDA; 
if ( (wDA & DA_FL) == DA_FL) 
wFL I = DA_BL ; 

else 

wFL, &= -DA_BL; 
SetGridlmage (CPoint (x, y+1), wFL) ; 

} 

} 

else // y = 2n + 1 

{ 

if (y > 0) 
{ 

WORD& wBL = m_apTile [y-1] [x] .wDA; 
if ( (wDA & DA__BL) == DA_BL) 
wBL 1= DA_FL; 

else 

wBIi &= -DA__FL; 
SetGridlmage (CPoint (x, y-1), wBL) ; 
if ( (x+1) < m sTiles.cx) 
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{ 

WORD& wBR = m_apTile [y-1] [x+1] .wDA; 
if ( (wDA Sc DA_BR) == DA_BR) 
wBR 1= DA_FR; 

else 

wBR &= '-DA_FR; 
SetGridlmage (CPoint (x+1, y-1) , wBR) ; 

} 

} 

if ( (y+1) < m_sTiles . cy) 
{ 

WORD& wFR = m_apTile [y+1] [x] .wDA; 
if ( (wDA & DA_FR) == DA_FR) 
wFR I = DA_BR ; 

else 

wFR ~DA_BR; 
SetGridlmage {CPoint (x, y+1) , wFR) ; 
if ((x+1) < m_sTiles.cx) 

{ 

WORD& wFL = m^apTile [y+1] [x+1] .wDA; 
if ( (wDA & DA_FL) == DA_FL) 
wFL I = DA_BL ; 

else 

wFL &:= ~DA__BL; 
SetGridlmage (CPoint (x+1 , y+1) , wFL) ; 

} 

} 

} 

} 



void CTileMap :: SetCridlmage (const CPoint& ptID, const WORD wDA) 
{ 

TIliE& T = m^apTile [ptID.y] [ptID.x]; 
ASSERT (T.pGridPS) ; 
int nCellID=0; 

WORD wlmOp = T.pGridPS->GetImOp ( ) & '-ORIENT_MASK; 
switch (wDA) 



{ 



case DA_OPEN : 


nCelllD = 


1 + 


ptID.y % 2; 


case DA_CLOSED : 


nCelllD = 


0; 


break; 


case DA_FR: 


nCelllD = 


3 ; 


break; 


case DA_FL : 


nCelllD = 


3; 


wImOp 1 = 


case DA_BR : 


nCelllD = 


3; 


wImOp 1 = 


VERTICAL) ; break; 








case DA_BL: 


nCelllD = 


3; 


wImOp 1 = 



break; 



IMAGE_FLIP; 
(IMAGE FLIP 



break; 



break 

case 

case 

break 

case 

case 

break 

case 

case 

break 

case 



DA_FR 
DA_BR 

DA_FR 
DA_FL 

DA_FR 
DA FL 



DA__FL) : 
DA_BL) : 

DA_BL) : 
DA_BR) : 

DA_BR) : 
DA BL) : 



nCelllD 
nCelllD 

nCelllD 
nCelllD 

nCelllD 
nCelllD 



4 ; 
4; 

5; 
5; 

6; 
6; 



IMAGE_VERTICAL ; 
break; 

w I mOp I = I MAGE_VERT I C AL ; 



break; 
wlmOp 



1= IMAGE_FLIP; 



DA_FR I DA_FL | DA_BR) : nCelllD = 7; 



break; 

wImOp 1= IMAGE_FLIP; 
; break; 
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case (DA_ 


FR 


1 DA_FL 


1 DA_BL) : 


nCelllD 


- 7; 


wImOp 1 = 


break ; 














case (DA_ 


FR 


1 DA_BR 


1 DA_BL) : 


nCelllD 


= 7; 


wlmOp 1 = 


I MAGE_VE RT I CAL ) 




break; 










case (DA_ 


FL 


1 DA_BR 


1 DA_BL) : 


nCelllD 


^ 7 ; 


wlmOp 1 = 


IMAGE_VERTICAL ; 




break; 










default : 




TRACE ( " 


Invalid DA: 


: %Ox\n", 


wDA) ; 





} 

T.pGridPS->SetCell (nCelllD) ; 
T-pGridPS->SetImOp (wImOp) ; 



IMAGE_FLIP; 
(IMAGE FLIP 



// Render the tiles to the given DIB within specified region 
// I'll not use this method. 

// Tiles will be rendered as normal sprites in the CSpriteList. 
// Grid tiles will use this render method 

void CTileMap : :RenderGrid {CDIB* pDIB, const CRect* pClipRect) 
{ 

CRect rcDraw; 

if (IpClipRect) // pClipRect == NULL means drawing on the 

entire area 

pDIB->GetRect (rcDraw) ; 

else 

rcDraw = *pClipRect; 
int ny = 0; // = rcDraw. top / m_sTH.cy; 

int ny2 = m_sTiles.cy; // = rcDraw . bottom / m_sTH.cy + 2; 

if (ny2 > m_sTiles.cy) 

ny2 = m_sTiles.cy; 
int nxl = rcDraw. left / m_sT.cx; 

int nx2 = (m_sTH.cx + rcDraw . right ) / m_sT.cx + 1; 
if (nx2 > m_sTiles.cx} 

nx2 = m sTiles.cx; 



for (; ny < ny2 ; ny++) 

{ 

for (int nx=nxl; nx < nx2 ; nx++) 

{ 

TILE& T = m__apTile [ny] [nx] ; 
if (T.pGridPS) 

T . pGridPS - >Render (pDIB , &:rcDraw) ; 

} 

} 



#endif // MAPEDITOR 



A-494 



TileMap.h 




// TileMap.h: interface for the CTileMap class. 
// 

//^^^^^==^^^^=.^^^^^^^^^ = ^^^==^ = =.^^^^^^^==. = = = = ^^ 
// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 

// UNI CHAT NETWORK INC 

// = = = = = = = = = = = = == = ^ = = = = ^ = ^===. = ==^.^== = = = = = == = = = = = = = = = 



#if ! defined {AFX_TILEMAP_H D5010EC6_A1F9_11D1_80E2_080009B9F339 INCLUDED 

#define AFX TILEMAP H D5010EC6 A1F9 11D1_8 0E2_0 8 0 0 0 9B 9F3 3 9 INCLUDED_ 



#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 
#ifdef MAPEDITOR 

#include "MapEd/resource . h" // DIB_GRID_64X32 
#else 

#include "resource. h" 
#endif 



enum ELEVATION_UNITS 
{ 

EL.EVATION_UNIT = 8, 

ELEVATION_DIFF =16, // Max Elevation an actor can go on it 
ELEVATION_LIMIT = 999 

}; 

class CDIB; 
class CPhasedSprite ; 
class CSpriteList; 
class CTextFileBuf f er ; 



class CTileMap : public CObject 

{ 

public : 

CTileMap 0 ; 

virtual ~CTileMap{); 

typedef struct 

{ 

CPhasedSprite* pPS ; // includes nCelllD, nImOp 

#ifdef MAPEDITOR 

CPhasedSprite* pGridPS; // for Grid Cell 

#endif 

int nEA; // Elevation for Actors 

WORD wDA; // Direction Attributes 

// int nResID; // DIB Resource ID in ResMan 

// int nCelllD; 

// int nElev; // Elevation, z = f (x,y) 

// int nImOp; // IMAGE_OPERATION 

} TILE; // DEFAULT_IO, IMAGE__FLIP, 

I MAGE_VERT I CAL 

typedef TILE* LPTILE; 

// Attributes 

CSize GetTileSize ( ) const { return m_sT; } 
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CSize 
CSize 
CString* 

CPoint 

int 

int 

CPoint 
CPoint 



mt 



m_sTH . cx) ; 
int 
BOOIi 
int 



} 



GetHalf TileSize ( ) const { return m_sTH; } 

GetScreenSize ( ) const { return m_sScr; } 

GetFileName ( ) { return &:m_strMapFile ; } 

GetLT (const int nx, const int ny) const 

{ return (GetCenter (nx , ny) - m_sTH) ; } 

GetLTx (const int nx, const int ny) const 

{ return (GetCx(nx, ny) - m_sTH.cx); } 

GetLTy (const int ny) const 

{ return (GetCy(ny) - m_sTH,cy); } 

GetCenter (const CPointSc point) const 

{ return GetCenter (point . x , point. y); } 

GetCenter (const int nx, const int ny) const 

{ return CPoint (GetCx (nx, ny) , GetCy(ny)); } 

GetCx (const int nx, const int ny) const 

{ return ( (ny%2 ==0) ? nx * m_sT.cx : (2*nx + 1) * 



GetCy( const int ny) const { return ny * m_sTH.cy; } 

InsideTile (const CPoint& ptTilelD, const CPoint& point) const; 
GetElevation (const CPointt ptID) const; 
CPhasedSprite* GetPS (const CPoint& ptID) 

{ return m_apTile [pt ID . y] [ptID.x] -pPS; } 
int GetEA(const CPoint& ptID) const // Elevation for Actors 

{ return m__apTile [ptID . y] [ptID.x] .nEA; } 
WORD GetDA (const CPoint& ptID) const // Direction Attribute 

{ return m_apTile [pt ID . y] [ptID.x] .wDA; } 
BOOL CanStandOn (const CPoint& ptID) const 

{ return (GetDA (ptID) != DA_CLOSED) ; } 
BOOL GetActorNextTilelD (CPointfic ptTID, const WORD wDA) const; 
CPoint GetEntrylD (LPCTSTR szFromID) const; 

BOOL IsValidTilelD (const CPoint& ptTID) const 

{ return ( (ptTID. x >= 0) && (ptTID.x < m_sTiles.cx) 

(ptTID. y >:= 0) (ptTID. y < m_sTiles . cy ) ) ; } 



// Operations 
CPoint 
CPoint 



CPoint 
CPoint 

void 

m_sT.cy/2; } 
BOOL 
BOOL 

sScr . cy) ; } 
void 

} 

void 
void 

BOOL 
BOOL 
fversion) ; 

BOOL 



GetNearestTileCenter (const CPoint& pt) const; 

GetNearestTileLT (const CPoint& pt) const 

{ CPoint ptCtr (GetNearestTileCenter (pt) ) ; 

return CPoint (ptCtr - m_sTH) ; } 
GetNearestTilelndex (const CPoint& pt) const; 
GetNearestTilelndex (CPhasedSprite* pPS) const; 

SetTileSize (const CSize sT) 

{ m_sT = sT; m_sTH . cx = m_sT.cx/2; m_sTH . cy = 

Create (const int W, const int H) ; 

Create (const CSize sScr) { return Create ( sScr . cx. 



SetSpriteList (CSpriteList * pSL) 



{ in_pSpriteList = pSL; 



SetAniList (CSpriteList * pAL) { m_pAniList = pAL ; } 

SetPalette (CPalette* pPal) { m_pPalette = pPal ; } 

Load (const char* path^HULL) ; 

LoadRow (CTextFileBuf f er&: tfb, const int ny, const double 
Save (CStdioFile& f ) ; 
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void 
void 
void 

void 



void 
elevation 
BOOL 
void 

CPhasedSprite* 
protected : 
void 
void 



DrawElevationGraph (CDC* pDC) ; 
DrawActorElevationGraph (CDC* pDC) ; 
SetEA (const CPoint& ptID, const int nEA) 

{ nn_apTile [ptID -y] [ptID.x] .nEA = nEA; } 
IncEA (const CPointS: ptID, const int nEABy) 

{ m_apTile [ptID .y] [ptID.x] .nEA nEABy; } 
SynchronizeEA (const CPoint& ptID) ; // with sprite 



SynchronizeAllEA ( ) ; 

IncreaseElevat ions (const int nPixelBy) ; 
HitTest (const CPoint& point); 



InsertList (CPhasedSprite* pPS) ; 
RemoveList (CPhasedSprite* pPS) ; 



#ifdef 

public : 

void 
void 
BOOL 
BOOL 

// BOOL 
void 
BOOL 
BOOL 

protected : 
void 

#endif 



MAPEDITOR 



RenderGrid (CDIB* pDIB, const CRect* pClipRect); 

SetDA (const CPoint& ptID, const WORD wDA) ; 

RecalculateDA ( ) ; 

Insert (CPhasedSprite* pPS) ; 

Copylnsert (CPhasedSprite* pPS) ; 

Delete (CPhasedSprite* pPS) ; 

MoveSpriteTo (CPhasedSprite* pPS , CPointS: ptTo) ; 
LoadGrid (const WORD wResId=DIB_GRID_64X32) ; 

SetGridlmage (const CPointS: ptID, const WORD wDA) ; 



private : 

void DeleteTiles ( ) ; 

void DrawHyperlink (CDC* pDC, const CPoint& ptC, const int nType) 



CSize m_sScr; 
CSize m_sT; 
CSize m sTH; 



// Screen Width, Height 
// Tile width, height 

// Half Tile width, height 



LPTILE* m_apTile; // 2 -dim array of TILEs 

CSize m_sTiles; / / # of tiles 

CString m_strMapFi le ; // f ilename . ext only for Version 0.99 and 

below 

// BOOL m bGrid; 



}; 



CSpriteList* 
CSpriteList* 
CPalette* 



m_pSpriteList ; 
m_pAniList ; 
m_j5Palette ; 



#endif // 

! defined (AFX TILEMAP H D5010EC6 A1F9 llDl 80E2 080009B9F339 INCLUDED ) 
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Mall 

1. Add Preprocessor definition _MAIjIj to the option dialog. 
Project => Settings C/C++ => Processor definitions 

2. Add some source files into the project. 
DlgAni . cpp 

DlgPDA. cpp 
PPPaymentInf o . cpp 
PPShoppingCart . cpp 

3. In the files UC2View.h and UC2View.cpp, 

add some afx_msg lines commented out as "/* MAIiL */". 

4. Change icon files in UC2/res directory. 

5. Copy files in UC2/l.Mall directory to U2 directory. 

6. Replace the file u2res000.rit with u2resO0O_Mall . rit . 
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// UC2 . cpp : Defines the class behaviors for the application. 
// 

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

#include "stdafx.h" 
#include "UC2.h" 



#include 
#include 
#include 
#include 
#include 
#include 
^include 
#include 



"MainFrm . h" 
"UC2Doc.h" 
"UC2View.h" 
"Splash. h" 
"Stage .h" 
"CloseDlg.h" 
"ResMan.h" 
<locale - h> 



// GetBubbleTextLimit , 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

#define ID S_ENTER_S TAGE_MUS I C 
#define IDS_ENTER_STAGE_LINK 
#de f i ne IDD_P ALETTE 
#define IDS ENTER TILE ELEVS 



133 
134 
135 
135 



static char THIS__FILE[] 
#endif 

// LPCTSTR SAIT_TTS 
LPCTSTR ENT_ROOTDIR 
// Member Info Entries 
LPCTSTR 
LPCTSTR 



FILE 



_T ( "Sof tware\\Samsung\\TTS\\SAIT_TTS " ) 
T ( "RootDir" ) ; 



LPCTSTR 
LPCTSTR 
LPCTSTR 
LPCTSTR 
LPCTSTR 
LPCTSTR 
// 

LPCTSTR 
connection type 



ENT_NICK 


T( 


"Nick") ; 


ENT_REALNAME - ' 


_T( 


"RealName") ; 


ENT_PROFILE 




= _T ("Profile") ; 


ENT_HYPERLINK 


_T{ "Hyperlink") ; 


ENT_SEX 




- _T("Sex") ; 


ENT_AGE 




= _T ( "Age" ) ; 


ENT_CHARID 




= _T ( "Char ID" ) ; 


ENT__BUBBLEKIND = 


_T( 


"BubbleKind" ) ; 


ENT_CONNTYPE 




= _T ( " ConnType " ) ; 


ENT_TIMEOUT 




= _T( "Timeout") ; 


ENT_STAGESEC 




= _T("StageSec") ; 


ENT_LASTSTAGEID 


= _T ("LastStagelD" ) ; 


ENT_BUBBLELEN 




= _T("BubbleLen") ; 


ENT_BUBBLETIME 




= _T("BubbleTime") ; 


ENT_SERVER 




= T ( "ServerIP" ) ; // Only for user-defined 



#ifdef _MALL 

const int DEFAULT_STAGE_SEC 
#else 

const int DEFAULT_STAGE_SEC 
#endif 

extern CResMan gResMan; 



0; 
10; 
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1 1 1 1 1 1 1 1 1 1 1 1 n 11 1 1 1 1 1 1 1 1/ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 // 1 1 1 1 11 1 1 11 f / f I / 1 1 1 11 / 1 1 1 / 1 1 1 1 1 n 1 1 1 

II CUC2APP 

BEGIN_MESSAGE_^4AP (CUC2App, CWinApp) 
// { { AFX_MSG_MAP {CUC2App) 
ON_COMMAND ( ID_APP_ABOUT , OnAppAbout ) 
ON_COMMAND ( ID_HELP__DEVELOPERS , OnHelpDevelopers ) 
// } } AFX_iy[SG_MAP 

// Standard file based document commands 
ON_COMMAND ( ID_FILE_NEW , CWinApp: :OnFileNew) 
ON_COMMAND ( ID_FILE_OPEN , CWinApp : rOnFileOpen) 
// Standard print setup command 

ON_COMMAND ( ID_FILE_PRINT_SETUP , CWinApp : : OnFilePrintSetup) 
END_MESSAGE_MAP { ) 

///////////////////////////////////////////////////////////////////////////// 
// CUC2App construction 

CUC2 App : : CUC2App { ) 

: m_strVers ion (_T ( "Version 1.0")) 
{ 

TRACE ( "CUC2APP : : CUC2App () \n" ) ; 

// TODO : add construction code here, 

// Place all significant initialization in Initlnstance 
m_pStage = NULL; 
m_bPause = FALSE; 

} 

///////////////////////////////////////////////////////////////////////////// 
// The one and only CUC2App object 



CUC2App theApp; 



///////////////////////////////////////////////////////////////////////////// 
// CUC2App initialization 

BOOL CUC2App : : Initlnstance ( ) 
{ 

TRACED ("CUC2App: : Ini t Ins tance () \n") ; 

// CG : The following block was inserted by 'Status Bar' component. 

{ 

//Set up date and time defaults so they're the same as system 

defaults 

setlocale (LC_ALL, " " ) ; 

} 

// CG : The following block was added by the Splash Screen component. 

{ 

CCommandLineInf o cmdinfo; 
ParseCommandLine (cmdinf o) ; 

CSplashWnd: : EnableSplashScreen (cmdinf o . m_bShowSplash) ; 

} 



DWORD dwVer = : : GetVersion ( ) ; 

if ( (dwVer & OxSOOOOOFF) != 0x080000003) 
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// Not on Win32s so try to get the CreateDIBSection procedure 

address . 

HMODULE hMod = : : GetModuleHandle ( " gdi3 2 " ) ; 
if ( IhMod I I {hMod ! : : GetProcAddress (hMod, 

"CreateDIBSection") ) ) 
{ 

AfxMessageBox {IDS_ERROR_NOT_WIN95) ; 
return FALSE; 

} 



else 
{ 



} 



AfxMessageBox ( IDS_ERROR_NOT_WIN95 ) 
return FALSE; 



// First chance exception in UC2.exe (WCA_32.dll) after installing 
UniWin98 

if ( 1 Af xSocket Init ( ) ) 
{ 

AfxMessageBox { IDP_SOCKETS_INIT_FAILED) ; 
return FALSE; 

} 

// Call AfxSocketTermO in CUC2App :: Exit Instance { ) 
Af xEnableControlContainer ( ) ; 
// Standard initialization 

// If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

#ifdef _AFXDLL 

Enable3dControls ( ) ; // Call this when using MFC in a 

shared DLL 
#else 

Enable3dControlsStatic ( ) ; // Call this when linking to MFC 

statically 
#endif 



// Change the registry key under which our settings are stored. 

// You should modify this string to be something appropriate 

// such as the name of your company or organization. 

SetRegi St ryKey (_T { "Samsung" ) ) ; 

if ( ! CreateUniChatKey ( ) ) 

{ 

AfxMessageBox (IDS_ERROR_WRITE_REGISTRY) ; 
return FALSE; 

} 

GetUniChatRoot (m_strUniChatRoot ) ; 

LoadStdProf ileSettings ( ) ; // Load standard INI file options (including 

MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 

CSingleDocTemplate* pDocTemplate ; 
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pDocTemplate = new CSingleDocTemplate ( 
IDR_MAINFRAME , 
RUNTIME_CIiASS (CUC2DOC) , 

RUNTIME_CIjASS (CMainFrame) , // main SDI frame window 

RUNTIME_CLASS (CUC2View} ) ■ 
AddDocTemplate (pDocTemplate) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdinfo; 
ParseCommandLine ( cmdinf o) ; 

/* 

if (m_lpCmdLine [0] == '-') 

{ 

CString s trOpt ion (m^lpCmdLine ) ; 

if ( strOpt ion. Find (MYPASSWORD) 0) // should be >= 1 

{ 

m_bIjOck = FALSE ; 

} 

} 

*/ 

// Dispatch commands specified on the command line 
if ( ! ProcessShellCommand (cmdinfo) ) 
return FALSE; 

// The one and only window has been initialized, so show and update it. 
m_j>MainWnd- >ShowWindow (SW_SHOW) ; 
m_jpMainWnd- >UpdateWindow ( ) ; 

TRACEO ("CUC2App: :lnitlnstance() - Done.\n"); 
return TRUE; 

} 

// App command to run the dialog 
void cue 2 App : : OnAppAbout ( ) 

{ 

CCloseDlg dig; 

dig - m_strMessage . LoadString ( IDS_ABOUT_TEXT) ; 
dig -DoModal ( ) ; 



1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 // 1 1 1 1 / 1 1 1 1 1 n 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 11 1 / 1 1 /// 1 1 1 n 1 1 1 1 1 1 1 11 1 1 1 1 / 1 1 1 

II CUC2App commands 

BOOL CUC2 App : rOnldle (LONG ICount) 
{ 

// CG: The following code inserted by 'Idle Time Processing' component. 

// Note: Do not perform lengthy tasks during Onldle because your 
// application cannot process user input until Onldle returns. 

// call the base class 
CWinApp: : Onldle (ICount) ; 

if (m_bPause) 

return FALSE ; 

/* if (ICount == 0) 
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} 



{ 

// TODO : add code to perform important idle time processing 

} 

else if (ICount == 100) 
{ 

// TODO: add code to perform less important tasks during idle 

} 

else if (ICount == 1000) 
{ 

} 

// This is the Heart of the Program! 
if (m__pStage) 

{ 

m_pStage- >TickAll () ; 
return TRUE; 

} 

// return FALSE when there is no more idle processing to do 
return FALSE; 



BOOL CUC2App : : PreTranslateMessage (MSG* pMsg) 
{ 

// CG: The following lines were added by the Splash Screen component 
if (CSplashWnd: : PreTranslateAppMessage (pMsg) ) 
return TRUE; 

return CWinApp : : PreTranslateMessage (pMsg) ; 

} 

/* 

// returns FALSE if not found 

BOOL CUC2App : :GetMagicVoicePath (CStringSc str) 
{ 

// str = GetProf ileString (m__strVersion, ENT_TTSDB, 

"C:\\TTS\\") ; 
// return TRUE; 
// 

BOOL fRet = FALSE; 
HKEY hkey; 

LONG iRet = : : RegOpenKeyEx (HKEY_LOCAL_MACHINE , SAIT_TTS , 0, KEY_READ 
Schkey) ; 

if (IRet != ERROR_SUCCESS) 

return FALSE; 
DWORD dwType; 

DWORD cbBuf=1024; // This was the bug! 
LPTSTR p = str .GetBuf fer (cbBuf ) ; 

IRet = : :RegQueryValueEx (hkey , _T ( "DB Directory"). 0, &dwType, 
(BYTE*) p, &cbBuf ) ; 
str = p; 

str . ReleaseBuf f er 0 ; // Surplus memory released, p is now invalid 

if (IRet == ERROR_SUCCESS) 

{ 

fRet - (dwType == REG_SZ | | dwType REG_MULTI_SZ | | dwType = 
REG_EXPAND_SZ) ; 

ASSERT (fRet) ; 

int len - str . GetLength ( ) ; 
if (len > 0) 
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{ 

if (str[len-l] != '\\') 
str += ' \\ ' ; 

} 

} 

: : RegCloseKey (hkey ) ; 
return fRet; 

} 

*/ 

BOOL CUC2App : :GetUniChatKey (PHKEY phkey, REGSAM samDesired) 
{ 

LONG iRet = : : RegOpenKeyEx {HICEY_LOCAL_MACHINE , 
_T { "Sof tware\\Samsung\\UniChat " ) , 

0, samDesired, phkey) 

return (iRet == ERROR_SUCCESS ) ; 

} 

// Check if we already have a key for UniChat or Create the key 

// Create HKEY_CURRENT_USER/Sof tware/Samsung/UniChat Key 

// Set Values under this key 

// RootDir = "C: \UNICHAT\" 

BOOL CUC2App: iCreateUniChatKey () 

{ 

CString strRoot; 
int len = 256; 

LPTSTR pszRoot = st rRoot . GetBuf f er ( len) ; 
#ifdef _ROOTCURDIR // Root is current directory 

: :GetCurrentDirectory (len, pszRoot) ; 

StrRoot . ReleaseBuf f er { ) ; 

StrRoot += ■ \\ • ; 
#else // Root is module directory 

: : GetModuleFileName (NULL, pszRoot, len) ,- 

StrRoot . ReleaseBuf fer ( ) ; 

int i = StrRoot . ReverseFind (• \\ •) ; 

if (i > 0) 

{ 

pszRoot StrRoot . GetBuf fer (len) ; 
pszRoot [i] = NULL; 
strRoot . ReleaseBuf fer ( ) ; 
StrRoot ' \\ ' ; 

} 

else 

{ 

AfxMessageBox (strRoot ) ; 
return FALSE ; 

} 

#endif 

// Section, Entry, Value 

return WriteProf ileString (m_s trVersion, ENT_ROOTDIR, strRoot); 

} 

BOOL CUC2App : :GetUniChatRoot (CString& str) 
{ 

Str = GetProf ileString (m_strVersion, ENT_ROOTDIR) ; 
return TRUE; 

} 
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// Update registry values 

BOOL CUC2App : : RegSetMemberInf o (CMemberInf o& mi) 

{ 

if { ! WriteProf ileString (m_strVersion, 
*mi .GetNickO ) ) 

return FALSE; 
if { ! WriteProf ileString (m_strVersion, 
*mi . GetRealName ( ) ) ) 

return FALSE; 
if ( ! WriteProf ileString (m_strVersion, 
*mi .GetProf ile () ) ) 

return FALSE; 
if ( ! WriteProf ileString (m_BtrVersion, 
*mi . GetHyperlink ( ) ) ) 

return FALSE; 
if ( ! WriteProf ileint (m_strVersion, 
mi .GetSex () ) ) 

return FALSE; 
if ( ! WriteProf ileint (m_strVersion, 
mi . Get Age ( ) } ) 

return FALSE; 
if ( ! WriteProf ileint (m_strVersion, 
mi .GetCharlD () ) ) 

return FALSE; 
if ( ! WriteProf ileint (m_strVersion, 
mi . GetBubbleKind { ) ) ) 

return FALSE; 
return TRUE; 



ENT NICK, 



ENT REALNAME, 



ENT PROFILE, 



ENT HYPERLINK, 



ENT SEX, 



ENT AGE, 



ENT CHARID, 



ENT BUBBLEKIND, 



BOOL CUC2App : : RegGetMemberInf o (CMemberInf o& mi) 

{ 



GetProf ileString (m_strVersion , 
GetProf ileString (m_strVersion , 

GetProf ileString (m_strVersion , 



} 

BOOL 
{ 



} 

BOOL 
{ 



mi . SetNick ( 
mi . SetRealName ( 
ENT_REALNAJyiE) ) ; 
mi . SetProf ile ( 
ENT_PROFILE) ) ; 

mi . SetHyperlink { GetProf ileString (m_strVersion , 
mi - Set Sex ( GetProf i leint (m_strVersion , 

0) ) ; 

mi . SetAge ( GetProf ileint (m_strVersion , 

20) ) ; 

mi . SetCharlD ( GetProf ileint (m_strVersion , 

0) ) ; 

mi . SetBubbleKind ( GetProf ileint {m_strVersion , 
0) ) ; 

return TRUE; 



CUC2App: :RegGetNick (CStringSc strNick) 

strNick = GetProf ileString (m_strVersion, ENT_NICK) 
return TRUE; 



CUC2App : :RegSetNick (const CString& strNick) 



ENT NICK) ) 



ENT_HYPERLINK) ) ; 
ENT_SEX, 

ENT_AGE , 

ENT_CHARID 

ENT_BUBBLEKIND , 
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return WriteProf ileString (m_strVersion, ENT_NICK, strNick) ; 



BOOL CUC2App : : RegGetServer (CStringSc strServer) 

strServer = GetProf ileString (m_strVersion, ENT_SERVER) ; 

return TRUE; 



BOOL CUC2App :: RegSetServer (const CStringSc strServer) 

return WriteProf ileString {m_strVersion, ENT_SERVER, strServer) 



// Connection Type: LAN(O), MODEM(l) 
int CUC2App : : RegGetConnType { ) 

return GetProf ileint (m_strVersion, ENT_CONNTYPE , 1) ; 



BOOL CUC2App : :RegSetConnType (const int nConnType) 

return Wri teProf ileint (m_strVersion, ENT_CONNTYPE , nConnType) 



// Connection Type: Dial_Up Networking, Dedicated Line 
int CUC2App : : RegGetTimeOut ( ) 

return GetProf ileint (m_strVersion, ENT_TIMEOUT, 60); 



int CUC2App : : RegGetStageSec () // delay in a stage 

return GetProf ileint (m_strVersion, ENT_STAGESEC , 
DEFAULT_STAGE_SEC) ; 



BOOL CUC2App: :RegGetUserID(CString& strlD) 

BOOL fRet = FALSE; 
#ifdef _ATT 

HKEY hkey; 

LONG iRet = : : RegOpenKeyEx (HKEY_CURRENT_USER , 
_T ( "RemoteAccess\\Prof ile\\AT&T" ) , 

0 , KEY_READ , Schkey ) ; 

if (iRet !- ERROR_SUCCESS) 

return FALSE; 
DWORD dwType; 
DWORD cbBuf=1024; 

LPTSTR p = strlD.GetBuf f er (cbBuf ) ; 

IRet = : :RegQueryValueEx (hkey, _T("User"), 0, &dwType , (BYTE*)p, 
&cbBuf ) ; 

strlD = p; 

strlD . ReleaseBuf f er ( ) ; // Surplus memory released, p is now invalid 

if (IRet ERROR_SUCCESS) 

{ 
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fRet = (dwType == REG_SZ | | dwType == REG_MULTI_SZ | | dwType 
REG_EXPAND_SZ) ; 

ASSERT (fRet) ; 

int i = strID.Find( ) ; 

if (i > 0) 

{ 

p = strlD.GetBuf f er {cbBuf ) ; 

p[i] = NULL; 

strlD . ReleaseBuf f er { ) ; 

} 

} 

: :RegCloseKey (hkey) ; 
#endif // _ATT 

return fRet; 



BOOL CUC2App: :RegGetLastStageID {CStringSc strSID) 

strSID = GetProf ileString {m_strVersion, ENT_LASTSTAGEID, NULL) ; 
return TRUE; 



BOOL CUC2App : :RegSetLastStageID (const CString& strSID) 

return WriteProf ileString (m_strVersion , ENT_LASTSTAGEID , strSID) 



nt CUC2App : : RegGetBubbleTextLength () 

return GetProf ileint (m_strVersion , ENT_BUBBLELEN , 
gResMan . GetBubbleTextLimit ( ) ) ; 



BOOL CUC2App : :RegSetBubbleTextLength (const int nLen) 

return WriteProf ileint (m_strVersion , ENT_BUBBLELEN , nLen) ; 



nt CUC2App : : RegGetBubbleTime 0 

return GetProf ileint (m_strVersion, ENT_BUBBLETIME , 
gResMan . GetBubbleTime 0 ) ; 



BOOL CUC2App: :RegSetBubbleTime (const int nMS) 

return WriteProf ileint (Tn_strVersion , ENT_BUBBLETIME , nMS); 



int CUC2App : : Exitlnstance ( ) 

TRACE ("CUC2App: : Exit Ins tance () \n") ; 
AfxSocketTerm ( ) ; 

/* 

CString strModule ( "ChatSock . dll " ) ; //ChatSock . dll " ) ; 
HMODULE hMod = :: GetModuleHandle { strModule ) ; 

TRACE ( "GetModuleHandle (%s) returned %lx\n", strModule. hMod); 
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if (hMod : : FreeLibrary (hMod) ) 

TRACE ( " : : FreeLibrary returned TRUE . \n" ) ; 

*/ 

return CWinApp :: Exit Instance () ; 

} 

void CUC2App: :WinHelp (DWORD dwData, UTNT nCmd) 
{ 

// CCloseDlg dig; 

// dlg.m_strMessage.LoadString { IDS_HELP__SIMPLE) ; 
// dlg.DoModal () ; 

// CWinApp : :WinHelp (dwData, nCmd) ; // Block 

} 

void CUC2App : lOnHelpDevelopers ( ) 

{ 

CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 
CString strPath ( *gResMan . GetResPath ( ) ) ; 
CString s trFi le ( strPath + "Developers . htm" ) ; 

pMF- >ShellBrowselJRL ( strFile) ; // "http :/ /www . Samsung . co . kr/ " 

} 
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// UC2.h : main header file for the UC2 application 
// 

// = = = ^^^^ = = === = = ^ = ^ = = = = = ^== = = = ^ = = = = = = = = = ^^ = ^^^^=. = ^ = ^^^^^ = ^^ = 

II (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 

// UNICHAT INC 

//=. = = =: = = ^ = = ^ = = = =. = = = = = =: = := = = = ^== = = = = = = = = = = = = = =:= = = = ^ = . = = = = = = = 

#if ! defined {AFX_UC2_H A13 13 869_A610_11D1_80E2_080009B9F33 9 INCLUDED_) 

#def ine AFX_UC2_H A1313 869_A610_11D1_80E2_080 009B9F3 3 9 INCLUDED_ 

#if _MSC_VER 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include "resource. h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
// CUC2App: 

// See UC2 . cpp for the implementation of this class 
// 

class CStage; 
class CMemberlnfo; 

class CUC2App : public CWinApp 

{ 

public : 

CUC2App ( ) ; 

// Attributes 

BOOL GetPauseO const { return m_bPause; } 

// Operations 

void SetStage (CStage* pStage) { m_pStage = pStage; } 

void SetPause (const BOOL bPause) { m_bPause = bPause; } 

// BOOL GetMagicVoicePath (CString& str) ; 

BOOL GetUniChatKey (PHKEY phkey, REGSAN samDesired=KEY_READ) ; 

BOOL CreateUniChatKey ( ) ; 

BOOL GetUniChatRoot (CString& str) ; 

BOOL RegSetMemberInf o (CMemberInf 0&: mi) ; 

BOOL RegGetMemberInf o (CMemberInf 0&: mi) ; 

BOOL RegGetNick {CString& strNick) ; 

BOOL RegSetNick (const CString& strNick); 

int RegGetConnType { ) ; 

BOOL RegSetConnType (const int nConnType) ; 

int RegGetTimeOut ( ) ; 

int RegGetStageSec 0 ; // delay in a stage 

BOOL RegGetUserlD (CString& strlD) ; 

BOOL RegGetLastStagelD (CString&: strSID) ; 

BOOL RegSetLastStagelD (const CString& strSID) ; 

BOOL RegGetServer (CStringfic strServer) ; 

BOOL RegSetServer (const CString& strServer); 
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int RegGetBubbleTextLength ( ) ; 

BOOL RegSetBubbleTextLength (const int nLen) ; 

int RegGetBubbleTime { ) ; 

BOOL RegSetBubbleTime (const int nMS) ; 



CString 
CString 



m_strUniChatRoot ; 
Tn_s tr Vers ion; 



// Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL {CUC2App) 
public : 

virtual BOOL Init Instance () ; 

virtual BOOL PreTranslateMessage (MSG* pMsg) ; 
virtual BOOL Onldle (LONG iCount); 
virtual int Exit Instance () ; 

virtual void WinHelp (DWORD dwData, UINT nCmd = HELP_CONTEXT) ; 
// } }AFX_VIRTUAL 

// Implementation 
protected : 



// { {AFX_MSG (CUC2App) 

afx_msg void OnAppAbout ( ) ; 

afx_msg void OnHelpDevelopers ( ) ; 

//} }AFX__MSG 

DECLARE MESSAGE_MAP{) 



1 11 / 1 1 11 1 1 n 1 1 n 1 11 11 1 1 11 1 11 1 1 1 11 1 1 1 1 1 / 1 1 1 1 1 1 1 / 1 1 1 n 1 1 1 / 1 1 1 1 1 11 1 1 1 1 1 / 1 1 1 1 // 1 1 

1 1 { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

!defined(AFX UC2 H A1313869 A610 llDl 80E2 080009B9F339 INCLUDED ) 



CStage* 
BOOL 



m_pStage ; 



m_b Pause ; 



}; 
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// CUC2Socket 
// CUC2 Channel 
// 

// (C) Programmed by Kim, Soomin, Mar 23, 1998 

// Information Technology Xnstitue 
// UNICHAT INC 

// 

// You should not call other thread's functions except simple ones 
// like inline. That can be the cause of the deadlock between a main 
thread 

// which is just waiting for this thread to terminate. But, ... 
// Do not call a complex function through m__pDoc . 

// But you should AddRef ChatSock objects before posting them with 
// WM__COMMAND, since it's become out of scope and the stack will be 
// destroyed. 

7/^^^ = = = ==:. = ^ = = = ==^=. = = = = = = . = = ^ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = . = = = = = ^^^ = = = = = 

#include "stdafx.h" 
#include <csface.h> 
#include "UC2CS.h" 
#include "resource. h" 



const char* s2UC2Socket = _T ( "UniChat Socket"); // MessageBox 

title 

const char* szUC2Channel = _T ( "UniChat Channel"); // MessageBox 

title 

// 

// class CUC2Socket 

// 

CUC2Socket :: CUC2Socket (const HWND hWnd) 
{ 

TRACED ( "CUC2Socket : :CUC2Socket ( ) \n" ) ; 
ASSERT (hWnd) ; 
m_hFrame ^ hWnd; 
m_hQClient = NULL; 
m_bQueryOK = TRUE; 

} 

CUC2Socket : : -CUC2Socket ( ) 
{ 

TRACED ( "CUC2Socket : : -CUC2Socket { ) \n" ) ; 

} 



BOOL CUC2Socket : : FOnLogin ( ) 
{ 

TRACED { "CUC2 Socket :: FOnLogin ( ) - Connection Successf ul\n" ) ; 
return TRUE; 

} 

BOOL CUC2Socket : : FOnAddChannel (PCS_MSGCHANNEL pMsg) 
{ 

TRACED { "CUC2Socket : : FOnAddChannel \n " ) ; 
if {!m_hFrame) 

return FALSE; 
ASSERT {pMsg->picsChannel) ; // ICSChannel* 

(pMsg- >picsChannel) - >AddRef ( ) ; // To survive asynchronous messages 

PostMessage (CSMSG_CMD_ADDCHANNEL, 0, (LPARAM) pMsg- >picsChannel) ; 
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return TRUE; 

} 

// Message from the host? 

BOOL CUC2Socket : :FOnPrivateMsg(PCS_MSGPRIVATE pMsg) 
{ 

TRACED ( "0002 Socket : : FOnPrivateMsg\n" ) ; 
if ( ! m__hFrame) 

return FALSE; 

ASSERT (pMsg->picsPrivMsg) ; // ICSPrivateMsg* 

(pMsg- >picsPrivMsg) ->AddRef () ; 

PostMessage (CSMSG_CMD_PRIVATEMSG, 0, (LPARAN) pMsg- >picsPrivMsg) ; 
return TRUE; 

} 

BOOL CUC2Socket: : FOnlnvite ( PCS_MSGINVITE pcslnvite) 
{ 

TRACED ("CUC2 Socket : : FOnlnvi te\n" ) ; 
if ( ! m_hFrame) 

return FALSE; 
// pcslnvite- >picslnvite // ICSInvitat ion* 

(pcslnvite- >picslnvite) - >AddRef ( ) ; 

PostMessage (CSMSG_CMD_INVITE, 0, (LPARAM) pcslnvite- >picslnvite) ; 
return TRUE; 

} 

BOOL CUC2Socket : : FOnSocketError (HRESULT hr) 
{ 

CHAR* szError; 

switch (hr) 
{ 

case E_NOTIMPL: 
implemented"; break; 

case E_UNEXPECTED : 
error occurred"; break; 

case E_OUTOFMEMORY : 
memory"; break; 

case E_INVALIDARG: 
arguments are invalid"; break; 

case E_FAIL: 
error" ; break; 

case S_FALSE : 
version of chatsock" ; break; 

// Generic errors 

case CS_E_VERSION: 
version of chatsock"; break; 

case CS_E_WAIT: 

break; 

case CS_E_EVENT: 
break; 

case CS_E_SZTOOLONG : 
break; 

case CS_E_EXITING: 
process of exiting"; break; 

case CS_E_NOTANSI : 
instead of Unicode!"; break; 



szError = "Not 

szError = "An internal 

szError = "Ran out of 

szError = "One or more 

szError - "Unspecified 

szError = "wrong 

szError = "wrong 
szError = "wait error" 
szError = "event error"; 
szError = "string too long"; 
szError = "dll in 
szError = "ANSI used 
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case CS_E_NOTUNICODE : szError 

instead of Ansi ! " ; breaks- 
case CS_E_TOOMUCHDATA: szError 

max buffer bounds"; breaks- 
case CS_E_ILLEGAL_CHARS : szError 

string"; break; 

case CS_E_FIRSTCHAR : szError 

in IRC" ; break; 

// List management errors 

case CS_E_ALREADYINLIST: szError 
is already in list"; break; 

case CS_E_NOTINLIST : szError 
found" ; break; 

case CS_E_QUEEMPTY : 
wait q - " ; break ; 

// Connection errors 

case CS_E_NOTCONlSrECTED : 
attempted on an off-line socket"; break; 

case CS_E_WINSOCKDLL: 
WinSock.dll" ; break; 

case CS_E_HOSTNOTFOUND : 
by DNS" ; break; 

case CS_E_SOCKETCREATE : 

break; 

case CS_E_CANTCONNECT : 
connect . . server down?" ; break; 

case CS_E_CANTSEND : 
sending buffer. . usually a WinSock problem"; break; 

case CS_E_TIMEOUT : 
timeout"; break; 

case CS_E_NODATA: 

case CS_E_SOCKETERROR: 
error"; break; 

case CS_E_INVALIDSOCKET: 
attempted on bad ICSSocket"; break; 

case CS_E_LOSTCONNECTION: 

break; 

case CS_E_SOCKETCL.OSED : 
the socket"; break; 

case CS_E_NETWORKDOWN : 

break; 

case CS_E_HOSTDROPPEDCONNECTION: 
your connection"; break; 

// catch above error! 

// Login errors 

case CS__E_NOTLOGGEDIN: 
attempted without logging into server"; break; 

case CS_E_lINKNOWNUSER: 
know you" ; break; 

case CS_E_ALIASINUSE: 
already using this alias"; break; 

case CS_E_ILLEGALUSER: 
like authenticating you"; break; 

// Channel Errors 

case CS_E_CHANNELCANCEL: 

break; 



"Unicode used 
"data size exceeds 
"illegal chars in 
"first char error 

"inserted element 
"element not 



szError 



'no msgs m 



szError - "online operation 

szError = "could not load 

szError = "server not found 

szError = "WinSock failure"; 

szError = "can't 

szError = "trouble 

szError = "generic 

szError = "NODATA" ; break; 
szError = "generic WinSock 

szError = "operation 

szError = "connection lost"; 

szError = "somebody closed 

szError = "NETWORKDOWN" ; 

szError = "the host server dropped 

szError = "chat operation 
szError = "server does not 
szError = "somebody else is 
szError = "server does not 

szError = " CHANNELCANCEL " ; 
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case CS_E_CREATEFAIL: 
failed"; break; 

case CS_E_JOINFAIL: 
failed"; break; 

case CS_E_CANCELFAIL: 

break; 

case CS_E_CHANNELEXISTS : 
exists"; break; 

case CS_E_CHANNELNOTFOUND : 
bogus channel"; break; 

case CS_E_CANTMAKEUNIQUECHANNEL : 
Channe 1 " ; break ; 

case CS_E_CHANNELFULL : 

break; 

case CS_E_ALREADYONCHANNEL : 
channel you are already on" ; break; 

case CS_E_CLOSE: 
channel"; break; 

case CS_E_NOTINCHANNEL : 
attempted on a channel you are not on"; break; 

case CS_E_TOOMAJSrYCHANNELS : 
on # of channels a user can be in at a time"; break; 

case CS_E_INVITEONLYCHANNEL : szError - "you were not invited to 

this channel"; break; 

case C S_E_CHANNE LEAD PAS S : szError = "bad password on 

the channel"; break; // "bad password on the channel" 

case CS_E_NOiyiATCHES : szError = "No query data."; 

break; // On return for query 

default: szError = "This task 

cannot be completed."; break; 

} 



szError = "channel create 

szError = "channel join 
szError = "CANCELFAIL" ; 
szError = "channel already 
szError = "attempt to join a 
szError - "Can't make unique 

szError = "room is full"; 
szError = "you are joining a 
szError = "error closing a 
szError - "operation 
szError = "server has a limit 



// If we have a query client 



SetQueryOKO ; 
if (m_hQClient) 
{ 

: iSendMessage (m_hQClient, {hr == CS_E_NOMATCHES ) ? 
CMD_QUERY_NOMATCHES : CMD_QUERY__ERROR , 0, ( LPARAM ) S zError ) ; 
m_hQClient = NULL; 

} 

else 

{ 

CString str; 

str . Format ( "ChatSock ERROR %lx: %s\n", hr , szError); 

if (hr == CS_E_CHANNELFULL) 

{ 

PostMessage (CMD_CHANNELFULL__RETRY, 0, 0) ; 

} 

else 

{ 

: : MessageBox (NULL, str, szUC2Socket, MB_OK | 
MB_ICONEXCIjAMATION I MB_SYSTEMMODAL) ; 
} 

} 

return TRUE; 

} 



void CUC2Socket :: SetLastQueryType (const int nType) 
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{ 

m_LastQType = nType ; 
SetQueryOK( FALSE) ; 
m_i Item = 0 ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 
III III 

I / Initiates queries 

BOOL CUC2Socket : : FQueryListAllUsers (char* szFind) 

{ 

ASSERT (m_pics) / 

if ( !IsQueryOK() ) 
{ 

CString strMsg; 

strMsg.LoadString ( IDS_QUERY_LINE_BUSY) ; 
:: Mess ageBox (NULL, strMsg, szUC2Socket , MB_OK | 
MB_ICONEXCLAMATION) ; 

return FALSE; 

} 

HRESULT hr = m_pics - >HrListAllUsersA (szFind, CSPROP_QUERY_CONTAINS) ; 

if (FAILED (hr) ) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

SetLastQueryType (Q_LIST_USERS) ; 
return TRUE; 

} 

// Lists all channels that meet the following criteria: 
// a) the channel name must contain szChannel, and 

// b) the channel must have a number of members within the specified 
range . 

BOOL CUC2Socket : :FQueryListChannels {char* szChannel, DWORD dwcMin, DWORD 
dwcMax) 

{ 

ASSERT {m_pics) ; 



if ( ! IsQueryOKO ) 
{ 

CString strMsg; 

StrMsg . LoadString { IDS_QUERY_LINE_BUSY) ; 
: :MessageBox(NULL, strMsg, szUC2Socket, MB_OK | 
MB_ICONEXCLAMATION) ; 

return FALSE; 

} 

HRESULT hr = m_pics - >HrListAllChannelsA (dwcMin , dwcMax, szChannel, 
CSPROP_QUERY_CONTAINS) ; 
if (FAILED (hr) ) 
{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 
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SetLastQueryType (Q_LIST_CHANNELS) ; 
return TRUE; 

} 

// Lists all members in the specified channel - 

BOOL CUC2Socket :: FQueryMembersInChannel (const DWORD dwID) 

{ 

ASSERT (m_pics) ; 

if ( ! IsQueryOKO ) 
{ 

CString strMsg; 

strMsg. LoadString (IDS_OUERY_LINE_BUSY) ; 
: :MessageBox (NULL, strMsg, szUC2Socket, MB_OK | 
MB_ICONEXCLAMATION) ; 

return FALSE; 

} 

HRESULT hr = m_pics->HrListAllMembersA(dwlD) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

SetLastQueryType (Q_CHANNEL_MEMBERS ) ; 
return TRUE; 

} 

BOOL CUC2Socket : : FQueryMembersInChannelName (char* szChannel) 

{ 

ASSERT (m_pics ) ; 

if ( ! IsQueryOK ( ) ) 
{ 

CString strMsg; 

StrMsg . LoadString ( IDS_QUERY_LINE_BUSY) ; 
:: Mess ageBox (NULL, strMsg, szUC2Socket, MB_OK | 
MB_ICONEXCLAMATION) ; 

return FALSE; 

} 

HRESULT hr = m pics - >HrListAllMembersFromNameA (szChannel) 

if (FAILED (hr) ) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

SetLastQueryType (Q_CHANNEL_MEMBERS ) ; 
return TRUE; 

} 

BOOL CUC2Socket : : FQueryRealName (char* szNick) 

{ 

ASSERT (m_pics ) ; 

// if ( I IsQueryOKO ) 

// { 

// CString strMsg; 

// StrMsg . LoadString (IDS_QUERY_LINE_BUSY) ; 
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// :: Mess ageBox (NULL, strMsg, szUC2Socket, MB_OK | 

MB_ICONEXCLAMATION) / 

// return FALSE; 

// } 

HRESULT hr = m_pics - >HrGetRealNameA ( szNick) ; 

if (FAILED (hr) ) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

SetLastQueryType (Q_GET_REALNAME) ; 
return TRUE; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 / 1 / 1 1 1 1 1 1 1 1 1 // 1 11 1 1 / 1 1 1 1 1 
mill 

BOOL CUC2Socket : : FParseQueryData (PCS_PROPERTY pcsProp) 

{ 

BOOL fRet = TRUE; 

ASSERT (pcsProp) ; 

if ( ! pcsProp- >picsProperty) 

{ 

// Null Property pointers indicate that 

// this is the last record in a data set returned by a query 
return TRUE; 

} 

// TRACED (":: :\n") ; // next line 

switch (GetLastQueryType ( ) ) 
{ 

case Q_LIST_CHANNELS : // CPPChannel inqures 
{ 

if { !m_hQClient) 
{ 

TRACED ( "CPPChannel is gone\n"); 

return FALSE; // CPPChannel dialog may be 

destructed . . . 

} 

if (FAILED (pcsProp- >picsProperty- 
>HrSetPrivateData ( (PVOID) m_iltem) ) ) 
{ 

TRACEO ( "HrSetPrivateData\n" ) ; 
return FALSE; 

} 

// TRACE ( "SEND=>Ox%lx\n" , (LPARAM) pcsProp- >pics Property ) ; 

// : : SendMessage - The function calls the window procedure 
for the specified window 

// and does not return until the window procedure has 
processed the message. 

: : SendMessage (m_hQClient, CMD_QUERY_CHANNELS , 0, 
(LPARAM) pcsProp- >picsProperty) ; 

m_iltem++ ; 

if (pcsProp- >fLastRecord) 

{ 
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TRACE ( "\nQ_LIST_CHANNELS : Got last data . ( %d) \n " , 

m_iltem) ; 

SetQueryOKO ; 

: : SendMessage (m_hQClient , CMD_QUERY_CHAMNELS_END , 0 , 

(LPARAM) 0) ; 

m_hQClient = NULL; // clear the query client 

} 

} 

breaks- 
case Q_LIST_USERS : // 
case Q_CHANNEL__MEMBERS : // CMemberDlg inqures 

{ 

if ( !m_hQClient) 
{ 

TRACEO ( "CDlgMemberList is gone\n"); 
return FALSE; 

} 

if (FAILED (pcsProp->picsProperty- 
>HrSetPrivateData { ( PVOID) m_iltem) ) ) 
{ 

TRACEO ( "HrSetPrivateDataXn" ) ; 
return FALSE; 

} 

: : SendMessage (m_hQClient, CMD_QUERY_MEMBERS , 0, 
(LPARAM) pcsProp- >pics Property) ; 

m_iltem = 0; 

if (pcsProp- >f LastRecord) 

{ 

TRACE ( "\nQ_LIST_USERS or Q_CHANNEL_MEMBERS : Got last 

data. (%d) \n" , Tn_iltem) ; 

SetQueryOKO ; 

HWND hDlg = m_hQClient; 

m_hQClient = NULL; // clear the client in the 

Doc 

: : SendMessage (hDlg, CMD_QUERY_MEMBERS_END , 0, 

(LPARAM) 0) ; 

} 

} 

break ; 

case Q__GET_REALNAME : // CSINDEX_PROP_REALNAME_NAME 

{ 

SetQueryOKO ; 
if ( !m_hQClient) 
{ 

TRACEO ( "CDlgMemberList is gone\n"); 
return FALSE; 

} 

CS_PROPDATA cspd; 

if (FAILED (pcsProp- >pics Property- >HrGe t Property ( &cspd , 
CSINDEX_PROP_REALNAME_REALNAME) ) ) 

return FALSE; 
CHAR* szName = (CHAR* ) cspd . pbData ; 
TRACE ( " Q_GET_REALNAME =>{%s)\n", s zName ) ; 
: : SendMessage (m_hQClient , CMD_QUERY_GET_REAIiNAME , 0 , 

(LPARAM) szName) ; 

} 

break ; 
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default : 

break; 

} 

return f Ret ; 

} 

BOOL CUC2Socket : : FUnknownMessage {PCS_MSGBASE pMsg) 

{ 

TRACE ( "CUC2Socket : : FUnknownMessage\n" ) ; 
return TRUE; 

} 

// 

// class CUC2Channel 

// 

CUC2Channel : :CUC2Channel (const HWND hWnd) 

{ 

TRACEO ("CUC2Channel : : CUC2 Channel () \n") ; 
ASSERT (hWnd) ; 
m_h Frame = hWnd ; 

} 

CUC2Channel : : -CUC2Channel ( ) 
{ 

TRACEO ( "CUC2Channel : : -CUC2 Channel () \n" ) ; 

} 

BOOL CUC2Channel : :FOnChannelError (HRESUIjT hr) 
{ 

// Error returned asynchronously 
CString str; 

str . Format ( "Channel Error %lx.\n", hr) ; 
TRACE (str) ; 

// : :MessageBox (NULL, str, szUC2Channel , MB_OK | MB_ICONEXCLAMATION) ; 

return TRUE; 

} 

BOOL CUC2Channel : : FOnAddMember (PCS_MSGMEMBER pMsg) 
{ 

TRACEO ( "CUC2 Channel : : FOnAddMember \n" ) ; 
if ( !m_hFrame) 

return FALSE; 
PICS_MEMBER pM = pMsg - >picsMember ; 
ASSERT (pM) ; 

TRACE ( " [%s] \n" , SzMemName (pM) ) ; 
pM->AddRef ( ) ; 

PostMessage (CSMSG_CMD_ADDMEMBER, 0, (LPARAM)pM) ; 
return TRUE; 

} 

BOOL CUC2Channel : :FOnDelMember (PCS_MSGMEMBER pMsg) 
{ 

TRACEO ( "CUC2Channel : : FOnDelMember\n" ) ; 

if { ! m_hFrame ) 

return FALSE; 
// PICS_MEMBER pM = pMsg- >picsMember ; 

// ASSERT (pM) ; 
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// pM->AddRef 0 ; 

SendMessage (CSMSG_CMD_DELMEMBER, 0, (LPARAM) pMsg) ; 
return TRUE; 

} 

BOOL CUC2Channel : : FOnDelChannel (PCS_MSGCHANNEL pMsg) 
{ 

TRACED ( "CUC2 Channel : : FOnDelChannel\n" ) ; 
if ( lm_hFrame) 

return FALSE; 
PICS_CHANNEL pC = pMsg- >picsChannel ; 
ASSERT (pC) ; 
pC->AddRef {) ; 

PostMessage (CSMSG_CMD_DELCHANNEL, 0, (LPARAM)pC) ; 
return TRUE; 

} 

BOOL CUC2Channel : : FOnMemberModeChange (PCS_MSGMEMBER pMsg) 
{ 

TRACED ( "CUC2 Channel : : FOnMemberModeChange\n " ) ; 
if ( !m_hFrame) 

return FALSE; 

SendMessage (CSMSG_CMD_MODEMEMBER , 0 , (LPARAM) pMsg) ; 
return TRUE; 

} 

BOOL CUC2 Channel : : FOnChannelModeChange { ) 
{ 

TRACED ( "CUC2Channel : : FOnChannelModeChange\n" ) ; 
if ( ! m_hFrame ) 

return FALSE; 
SendMessage (CSMSG_CMD_MODECHANNEL , 0 , 0 ) ; 
return TRUE; 

} 

BOOL CUC2 Channel : : FOnNewTopic ( ) 

{ 

TRACED ( "CUC2 Channel : : FOnMewTopic ( ) \n" ) ; 
if { ! m_hFrame) 

return FALSE; 
CString strC'The topic is now: "); 
str SzTopicO; 
str += "\n" ; 
TRACE (str) ; 

// SendMessage (CSMSG_CMD_NEWNICK, D, (LPARAM) pMsg) ; 

return TRUE; 

} 

BOOL CUC2Channel : : FOnAnsiTextMsg (PCS_MSG pMsg) 
{ 

TRACED ( "CUC2Channel : : FOnAnsiTextMsg\n " ) ; 
if ( !Tn_hFranne) 

return FALSE; 
// ASSERT (pMsg- >picsFrom) ; 

SendMessage (CSMSG_CMD_TEXT_A, 0 , (LPARAM) pMsg) ; 
return FALSE; 

} 
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BOOL CUC2Channel : :FOnDataMsg (PCS_MSG pMsg) 
{ 

TRACEO ( "CUC2Channel : : FOnDataMsg\n" ) ; 
if ( !m_hFrame) 

return FALSE ; 
ASSERT (pMsg- >picsFrom) ; 

SendMessage (CSMSG_CMD_DATA, 0 , (LPARAM) pMsg) ; 
return TRUE; 

} 

BOOL CUC2Channel: :FOnAnsiWhisperTextMsg(PCS_MSGWHISPER pMsg) 
{ 

TRACEO ("CUC2 Channel : : FOnAnsiWhisperTextMsg\n " ) ; 
if ( !m__hFrame) 

return FALSE; 

SendMessage (CSMSG_CMD_WHISPERTEXT_A, 0 , (LPARAN) pMsg) ; 
return TRUE; 

} 

BOOL CUC2Channel : : FOnAnsiWhisperDataMsg (PCS MSGWHISPER pMsg) 
{ 

TRACEO ("CUC2 Channel : : FOnAnsiWhisperDataMsg\n " ) ; 
if ( !m_hFrame) 

return FALSE; 

SendMessage (CSMSG_CMD_WHISPERDATA, 0 , (LPARAM) pMsg) ; 
return TRUE; 

} 

BOOL CUC2Channel : : FOnNewNick (PCS_NEWNICK pMsg) 
{ 

TRACEO ( "CUC2 Channel : : FOnNewNick\n" ) ; 
if ( ! m_h Frame ) 

return FALSE; 
SendMessage {CSMSG_CMD_NEWNICK, 0, (LPARAM) pMsg) ; 
return TRUE; 

} 

BOOL CUC2Channel : : FUnknownMessage (PCS_MSGBASE pMsg) 

{ 

TRACEO ( "CUC2 Channel : : UnknownMessage\n" ) ; 
if ( !m_hFrame) 

return FALSE; 
return TRUE; 

} 
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// CUC2Socket 

// CUC2 Channel 
// 

// (C) Programmed by Kim, , Mar 23, 1998 

// Information Technology Institue 

// UNICHAT INC 

7/= = == = = = = = = = = = = = = = = = = = =: = = = = ^ = = =:=: = = =:= = = = = = = = = =. = = . = ^=: = ...^===. = = = .. = = = = = =^ = = == = = . 

#ifndef UC2CS_H 

#define UC2CS H 

#include "BaseSock.h" 
#include "BaseChan . h" 

// + 

// class CUC2Socket 



class CUC2Socket : public CBaseSocket 

{ 

public : 

CUC2Socket (const HWND hWnd) ; 
virtual -CUC2Socket { ) ; 

void SetReceiver (const HWND hWnd) { m_hFrame = hWnd; } 

void SetQueryClient (const HWND hWnd) { m_hQClient = 

hWnd; } 

enum 
{ 

Q_LIST_USERS, 
Q_LIST_CHANNELS , 
Q_CHANNEL_MEMBERS , 
Q__GET_REALNAME 
} QUERY_TYPE; 

BOOL 
m_bQueryOK; } 

void 
bQOK; } 

int 

return m_IjastQType ; } 
void 



IsQueryOKO const { return 

SetQueryOK (const BOOL bQOK=TRUE) { m_bQueryOK = 

Ge t Last Que ryType ( ) const { 
Set Last Que ryType (const int nType) ; 



BOOL 
BOOL 
BOOL 

dwcMin=l, DWORD dwcMax: 
BOOL 
BOOL 

// Overrides 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 



FQueryMembersInChannel (const DWORD dwID) ; 
FQueryMembersInChannelName (char* szChannel=NULL) ; 
FQueryListChannels (char* szChannel=NULL , DWORD 
=1000) ; 

FQueryListAllUsers (char* szFind=NULL) ; 
FQueryRealName (char* szNick) / 

FOnLoginO ; 

FOnSocketError (HRESULT hr) ; 
FOnAddChannel (PCS_MSGCHANNEL pMsg) 
FOnPrivateMsg (PCS_MSGPRIVATE pMsg) 
FOnlnvite ( PCS_MSGINVITE pcslnvite) 
FParseQueryData (PCS_PROPERTY pcsProp) ; 
FUnknownMessage (PCS_MSGBASE pMsg) ; 
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BOOL 
iParam) const 

wParam, IParam) ; } 

BOOL 
IParam) const 

wParam, IParam) ; } 

protected : 

HWND 

HWND 
results 

BOOL 
answer yet . . . 

int 

type? 

int 



PostMessage (UINT message, WPARAM wParam, LPARAM 

{ return :: PostMessage {m_hFrame , message, 

SendMessage (UINT message, WPARAM wParam, LPARAM 

{ return :: SendMessage (m_hFrame , message, 



m_h Frame ; 
m_hQClient ; 



/ / Frame Window to receive messages 
// Query Client to receive query 



m_bQueryOK; // Limit query if we didn't get the 

m_LastQType; // What was the last query 

m iltem; // current item 



// 

// class CUC2 Channel 

class CUC2Channel : public CBaseChannel 

{ 

public : 

CUC2Channel (const HWND hWnd) ; 
virtual -CUC2Channel () ; 



void 

// Overrides 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 

BOOL 
IParam) const 

wParam, IParam) ; } 

BOOL 
IParam) const 

wParam, IParam) ; } 

protected : 
HWND 

}; 



SetReceiver (HWND hWnd) 



{ m_hFrame = hWnd; } 



FOnChannelError (HRESULT hr) ,- 
FOnAddMember (PCS_MSGMEMBER pMsg) ; 
FOnDelMember (PCS_MSGMEMBER pMsg) ; 
FOnDelChannel (PCS_MSGCHANNEL pMsg) ; 
FOnMemberModeChange (PCS_MSGMEMBER pMsg) ; 
FOnChannelModeChange ( ) ; 
FOnNewTopic () ; 

FOnAnsiTextMsg (PCS_MSG pMsg) ; 
FOnDataMsg (PCS_MSG pMsg) ; 

FOnAnsiWhisperTextMsg (PCS_MSGWHISPER pMsg) ; 
FOnAnsiWhisperDataMsg (PCS_MSGWHISPER pMsg) ; 
FOnNewNick(PCS_NEWNICK pMsg) ; 
FUnknownMessage (PCS_MSGBASE pMsg) ; 

PostMessage (UINT message, WPARAM wParam, LPARAM 

{ return :: PostMessage (m_hFrame , message, 

SendMessage (UINT message, WPARAM wParam, LPARAM 

{ return :: SendMessage (m_hFrame , message. 



m_hFrame; // Frame Window to receive messages 
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ftendif // UC2CS H 
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// UC2DOC . cpp : implementation of the CUC2Doc class 

// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC. 

= = = ^ = = = = = = = = = = ^ = = = = = ^ = = 

# include " stdaf x . h" 
#include <afxmt.h> 

#include "UC2.h" 
#include "WebView . h" 

#include "UC2Doc.h" 

#include "UC2View. h" 

#include "MainFrm.h" 

#include "Parser. h" 

#include "ResMan.h" 

#include "Stage. h" 

#include "TileMap . h" 

#include "LoginDlg.h" 

#include "Actor. h" 

#include "EditSend.h" 

#include "UC2Panel .h" 

#include "UC2History . h " 

# include "PSJoinChannel . h" 

#include "MemberListDlg . h " 

#include " ProgressDlg . h " 

#include "CloseDlg.h" 
#ifdef _MALL 

#include "DlgPDA.h" 

#include "DlgAni.h" 
#endif 

^include <mmsystem.h> 

#include "httpUt i li ty . h " 

#ifdef _DEBUG 
#define new DEBUG_MEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 

CParser gParser ( 1024 *4 ) ; // to be used as an extern variable in other 

files 

CResMan gResMan; 

int GetClientVersion { ) 

{ 

return CLIENT_VERSION; 

} 

const int MAX_SEND_CHAR-2 56 ; 

const CSize DEFAULT_TILE_SIZE ( 64 , 32); 

const CSize DEFAUL.T_VIEW_SIZE ( 63 0 , 368); // (640, 384); 
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#ifdef _MAL.h 

LPCTSTR UNICHAT_TITLE (_T ( "WoW - QuarterView ")); // M@ll 

#else 

LPCTSTR UNICHAT_TITLE (_T ( "UniChat 2 ")); 

#endif 

//LPCTSTR USSC_NAME{_T(" [u2/ussc] ") ) ; 
//char* USSC_PASSWORD = __T ( "qweqwe " ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CUC2DOC 



IMPLEMENTED YNCREATE (CUC2DOC , CDocument ) 



BEGIN_MESSAGE_MAP (CUC2DOC , CDocument) 
//{ {AFX_MSG_MAP (CUC2DOC) 

ON_COMMAND (ID_VIEW_PAUSE, OnViewPause) 

ON_UPDATE_COMMAND_UI ( ID__VIEW_PAUSE , OnUpdateVi ewPause ) 
ON^COMMAND ( ID_VIEW_DEMO , OnViewDemo) 

0N_UPDATE_COMMAND_UI ( ID_VIEW_DEMO , OnUpdateVi ewDemo) 
ON_COMMAND ( ID_CONNECT_S YNC , OnConnec t Sync ) 
//} }AFX__MSG_MAP 

ON^COMMAND ( IDC_BTN_CREATE , OnBtnCreate ) 

ON_UPDATE_COMMAND_UI ( IDC_BTN_CREATE , OnUpdateBtnCrea t e ) 
ON__COMMAND ( IDC_BTN_ROOM , OnBtnRoom) 

ON_UPDATE_COMMAlSrD_UI ( IDC__BTN__ROOM , OnUpdateBtnRoom) 
ON_COMMAND { IDC_BTN_MEMBER , OnBtnMember ) 

ON_UPDATE_COMMAND_UI { IDC_BTN_MEMBER , OnUpdateB tnMember ) 
ON_COMMAND ( IDC_BTN_SOUND , OnBtnSound) 

ON_UPDATE_COMMAMD_UI ( IDC_BTN_SOUND , OnUpdateBtnSound) 
ON_COMMAND (IDC_BTN_HISTORY, OnBtnHi story ) 

ON_UPDATE_COMMAND_UI ( IDC_BTN__HI STORY , OnUpdateBtnHi story ) 
ON_COMMAND ( IDC_BTN_QUIT , OnB t nQui t ) 

ON_UPDATE_COMMAND_UI ( IDC_BTN_QUIT , OnUpda teBt nQui t ) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CUC2DOC construction/destruction 



CUC2DOC : : CUC2DOC ( ) 
{ 

TRACED ("CUC2DOC: :CUC2Doc () \n") ; 
m_pStage = NULL; 
m_bSound = TRUE; 
m_bHPanel = FALSE; 
m_wUC2Mode = UC2MODE_OFFLINE ; 
m_pSocket = NULL; 
m_j5Channel = NULL; 

m_wSavedState = AS_STAND | DA_BR; 



/ / CHANGES_MADE_FOR_UNI CHAT_2 
m_bIsJoinChannelVisible = FALSE; 

} 



CUC2DOC : : -CUC2DOC ( ) 
{ 

TRACEO ( "CUC2DOC : : ~CUC2Doc ( ) \n" ) 
if (m_pStage) 



A-526 



UC2Doc.cpp 



{ 

EndAnimat ion { ) ; 
delete m_pStage; 

} 

if (m__pSocket ) 
{ 

TRACEO ( "-CUC2DOC - Destroying m_jpSocket\n" 
delete m_jpSocket; 

} 

} 

CUC2View* CUC2Doc : : GetUC2View ( ) 
{ 

TRACE ( " \nCUC2Doc : : GetUC2View ( ) " ) ; 
POSITION pos = GetFirstViewPosition ( ) / 
ASSERT (pes) ; 

CUC2View* pView = (CUC2View* ) GetNextView (pos ) ; 
pView = (CUC2View*) GetNextView (pos) ; 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME__CLASS (CUC2View) ) ) 
return pView; 

} 



CWebView* CUC2Doc : : GetWebView ( ) 

{ 

TRACE ( \nCUC2Doc : : GetWebView ( ) " ) ; 
POSITION pos = GetFirstViewPosition 0 ; 
ASSERT (pos) ; 

CWebView* pView = (CWebView* ) GetNextView (pos ) ; 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME_CLASS (CWebView) ) ) 
return pView; 

} 



void CUC2DOC : :DeleteContents 0 
{ 

TRACEO ( "CUC2DOC : : DeleteContents () \n " ) ; 
Disconnect ( ) ; 



// if (m_pScript) 

// { 

// TRACEO ( "--CUC2DOC - Destroying m_pScript\n 

// if (Tn__pScript- >IsPlaying ( ) ) 

// m_pScript - >Stop 0 ; 

// delete Tn_pScript; 

// m__pScript = NULL; 

// } 



#ifndef _MALL 

if (IsDemo 0 ) 

{ 

Af xMessageBox ( IDS_TURNING_OFF_DEMO) ; 
SetUC2Mode (UC2MODE_OFFLINE) ; 
Wait (1000) ; 

} 

#endif 
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if (m_j)Stage) 

{ 

TRACEO ( "~CUC2Doc - Destroying m__pStage\n" ) / 
delete m__pStage; 
m_pStage = NULL; 

} 

SetModifiedFlag (FALSE) ; 
CDocument : : DeleteContents ( ) ; 

} 

BOOL CUC2DOC : : OnNewDocument ( ) 
{ 

TRACED { "CUC2DOC : : OnNewDocument () \n") ; 
EndAnimation ( ) ; 

if { 1 CDocument : : OnNewDocument {) ) 
return FALSE; 

return CreateNewStage { ) ; 

} 

BOOL CUC2DOC :: CreateNewStage ( ) 

{ 

TRACE ( " \nCreateNewStage ( ) \n" ) ; 

CUC2View* pView = GetUC2View ( ) ; 
ASSERT (pView) ; 

if {m_pStage) 

{ 

m_pStage- >DeleteStage ( ) ; 
m_pStage->ClearFilename ( ) ; 

} 

else 

{ 

m__pStage = new CStage; 
m_pStage->Initialize (pView) ; 

} 

CTileMap* pTM = m_pStage - >GetTileMap ( ) ; 

CSize SZT = pTM ? pTM->GetTileSize 0 : DEFAULT_TILE_SIZE; 
CSize szScr = pTM ? pTM- >GetScreenSize ( ) : DEFAULT_VIEW_SIZE ; 

if ( lm_pStage->CreateStage (szT, szScr) ) 
return FALSE; 

/* 

CString strSID; 

CUC2APP* pApp = (CUC2App*) AfxGetApp 0 ; 
pApp->RegGetLastStageID (strSID) ; 

// Just display the last stage (not connected yet) 

// *gResMan.GetStageName (0) is the fist UniChat MUD stage 

LoadStage (strSID , IsEmpty ( ) ? *gResMan . GetStageName ( 0 ) : strSID) 

*/ 

return TRUE; 

} 
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///////////////////////////////////////////////////////////////////////////// 
II CUC2DOC serialization 

void CUC2DOC :: Serialize (CArchive& ar) 

{ 

if (ar . IsStoring ( ) ) 

{ 

// TODO : add storing code here 

} 

else 

{ 

// TODO: add loading code here 

} 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 11 1 1 1 

II CUC2DOC diagnostics 
#ifdef _DEBUG 

void CUC2DOC : : AssertValid ( ) const 
{ 

CDocument : : AssertValid () ; 

} 

void CUC2 Doc :: Dump (CDumpCon text & dc) const 

{ 

CDocument: :Dump(dc) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
/ / CUC2DOC commands 

void CUC2DOC : iLoadStage (LPCTSTR szStagelD) 
{ 

// end 

TRACE { "CUC2DOC : : LoadStage (%s) \n" , szStagelD) ; 
EndAnimat ion ( ) ; 
BeginWai tCursor ( ) ; 

CActor* pActor - m_pStage - >GetThisActor ( ) ; 
if (pActor) 

m_wSavedState pActor- >GetState () ; // Save direction at previous 

stage 

// Get the file for szStagelD from the host 

if (m_jpStage->Load (szStagelD) ) 

// if (m_j>Stage->Load ( "OOOTEST") ) 

{ 

// <Testing. . . 

// m_pStage->CreateActor (0 , CPoint(5, 12), TRUE, wState, 
TRUE) ;// (nChar%4 == 0) ) ; 

// pActor = m_pStage- >GetThisActor 0 ; 

// GetUC2View() - >SetActor (pActor ) ; 

// Testing> 
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GetUC2View() ->NewStageLoaded() ; // Noti 

} 

EndWaitCursor ( ) ; 
BeginAnimation ( ) ; 

UpdateAllViews (NULL) ; 

SetTitle (*m_pStage->GetTitle 0 ) ; 

} 

void CUC2DOC: rSetTitle (LPCTSTR IpszTitle) 
{ 

CString strTitle (UNICHAT_TITLE) ; 
if (IpszTitle) 

StrTitle += IpszTitle; 
MakeUnichatTitle (strTitle) ; 
CDocument: : SetTitle { strTitle ) ; 

} 

void CUC2DOC : rOnViewPause ( ) 

{ 

PauseAnimation ( 'GetPause () ) ; 

} 

void CUC2DOC : :OnUpdateViewPause (CCmdUI* pCmdUI) 
{ 

pCradUI->SetCheck (GetPause 0 ) ; 

} 

void CUC2DOC : :EndDemo ( ) 

{ 

m_bSound = FALSE; 
gResMan . SetMute ( !m_bSound) ; 
if ( !m_bSound && m_pStage) 
m_pStage->StopBGM () ; 

CCloseDlg dig; 

dig . m_strMessage . LoadString ( IDS_TURNING_OFF_DEMO) 
if (dlg.DoModal 0 IDOK) 
return; 

SetUC2Mode (UC2MODE_OFFLINE) ; 

} 

void CUC2DOC : iPlayWaveFile (LPCTSTR szFile) 
{ 

CString s trPath ( *gResMan . GetResPath ( ) ) ; 
CString strFile (strPath -f- szFile) ; 
: :sndPlaySound( StrFile, SND_ASYNC) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Create Channel 
void CUC2DOC : :OnBtnCreate {) 

{ 

TRACE ("CUC2DOC: : OnBtnCreate ( ) \n" ) ; 

#ifdef _MALL 

if (IsInChannel () ) 

{ 
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#else 



Ise 



CMemberListDlg dlgML; 

dlgML.SetPPChannel (this, 0, m_strStageName ) ; 
dlgML. DoModal () ; 



JoinChannel () ; 



f (IsDemoO) 

EndDemo ( ) 
return ; 



JoinChannel () ; 

#endif 

/* CEditSend* pES = GetEditSend ( ) ; 
if (pES) 

pES- >SetFocus () ; 

*/ 
} 

void CUC2DOC : :OnUpdateBtnCreate (CCmdUI* pCmdUI) 
{ 

#ifndef _MALL // Shopping Cart 

pCmdUI->Enable ( (BOOL) m_j) St age) ; 

#endif 
} 

/ 1 H 1 1 III 1 1 1 1 1 1 1 1 1 11 1 / 1 1 1 1 1 1 Rooms List 

void cue 2 Doc : : OnBtnRoom ( ) 

{ 

#ifdef _MALL // Shopping Cart 

CString strTitle; 

strTitle .LoadString (IDS_JOIlSr_CHANNEL_TITLE) ; 
CPSvJoinChannel psjc(this, PS_JOIN_PAGE , strTitle); 



// List Only 



/ / CHANGE S_MADE__FOR_UlT I CHAT_2 
m_bIsJoinChannelVisible = TRUE; 
ps j c . DoModal 0 ; 

m_bIsJoinChannelVisible = FALSE; 

#else 

ListChannels () ; 

#endif 

CEditSend* pES = GetEditSend () ; 
if (pES) 

pES->SetFocus () ; 

// Testing 

// LoadStage ( "preview" ) ; 

} 

void CUC2DOC: :OnUpdateBtnRoom(CCmdUI* pCmdUI) 
{ 

#ifndef _MALL // Payment Info 

pCmdUI->Enable ( (BOOL) m_pStage) ; 

#endif 
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} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Members List 
void CUC2DOC : : OnBtnMember ( ) 

{ 

#ifdef __MALL // Payment Info 

CString strTitle; 

strTitle . LoadString { IDS_JOIlsr_CHANNEL_TITLE) ; 
^ CPSJoinChannel psjc(this, PS_CREATE_PAGE , strTitle) ; 

Only 

\ 

// CHANGE S_MADE_FOR_UN I CHAT_2 
m_bIsJoinChannelVisible = TRUE; 
ps j c . DoModa 10; 

m_bIsJ"oinChannelVisible = FALSE; 

#else 

CMemberListDlg dlgML; 

dlgML.SetPPChannel (this, 0, m_strStageName) ; 
dlgML. DoModal () ; 

#endif 

CEditSend* pES = GetEdi tSend { ) ; 
if (pES) 

pES- >SetFocus {) ; 

} 

void CUC2DOC : lOnUpdateBtnMeniber (CCmdUI* pCmdUI) 
{ 

#ifndef _MALL // Payment Info 

pCmdUI->Enable ( (BOOL) m_pSt age) ; 

#endif 
} 

1 1 1 III 1 1 1 1 1 1 1 n 1 11 11 III I / 1 1 1 Sound On/Off 

void CUC2DOC: cOnBtnSoundO 

{ 

CEditSend* pES = GetEditSend () ; 
if (pES) 

pES->SetFocus () ; 
m_bSound = !m_bSound; 
gResMan . SetMute ( lm_bSound) ; 
if (!m_bSound && m_jpStage) 

m_pStage->StopBGM 0 ; 

} 

void CUC2DOC : lOnUpdateBtnSound (CCmdUI* pCmdUI) 
{ 

pCmdUI->SetCheck( (BOOL) m_bSound) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 History Panel Show/Hide 
void CUC2DOC : :OnB tnHi story 0 

{ 

CEditSend* pES = GetEdi tSend () ; 
if (pES) 

pES->SetFocus () ; 
m_bHPanel = !m_bHPanel; 

( (CMainFrame*) AfxGetMainWnd 0 ) - >ShowHistoryPanel (m_bHPanel) 
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} 

void CUC2DOC: :OnUpdateBtnHistory (CCmdUI* pCmdUI) 
{ 

pCmdUI->SetCheck(m_bHPanel) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 III 1 1 1 n 1 1 1 1 1 1 1 1 Quit 

void CUC2DOC : : OnBtnQuit ( ) 

{ 

CEditSend* pES = GetEditSend ( ) ; 
if (pES) 

pES - >SetFocus 0 ; 

if (IsInChannel () ) 
{ 

LeaveChannel 0 ; // delete m_pChannel 
CCloseDlg dig; 

dig .m_strMe s sage . Loads t r ing ( IDS_CHANNEIi_OUT) ; 

if (dlg.DoModal () IDOK) 

{ 

CMainFrame* pMF = (CMainFrame*) AfxGetMainWnd ( ) ; 
pMF->PostMessage (WM_CLOSE) ; 

} 

} 

else 

{ 

CMainFrame* pMF = (CMainFrame* ) AfxGetMainWnd () ; 
pMF->PostMessage (WM_CLOSE) ; 

} 

} 

void CUC2DOC : rOnUpdateBtnQuit (CCmdUI* pCmdUI) 
{ 

pCmdUI-> Enable ( (BOOL) m_jpStage ) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

CEditSend* CUC2Doc :: GetEditSend ( ) const 
{ 

CMainFrame* pMF = (CMainFrame* ) AfxGetMainWnd () ; 
ASSERT (pMF) ; 

CUC2Panel* pPanel = pMF- >GetPanel () ; 

return (pPanel ? pPanel- >GetEditSend ( ) : NULL) ; 

} 

//CEditHistory* CUC2Doc : : GetEditHis tory () const 
CEdit* CUC2DOC : :GetEditHistory 0 const 

{ 

CMainFrame* pMF = (CMainFrame* ) AfxGetMainWnd () ; 
ASSERT (pMF) ; 

CUC2History* pHPanel = pMF- >GetHistoryPanel ( ) ; 
return (pHPanel ? pHPanel - >GetEditHistory ( ) : NULL) ; 

} 

// Display message in CChatView 



A-533 



UC2Doc.cpp 



void CUC2DOC : :DisplayText (LPCTSTR IpszText) 
{ 

// CEditHistory* pEdit = GetEditHistory { ) ; 
CEdit* pEdit = GetEditHistory () ; 
if (IpEdit) 

return ; 

int count = pEdit- >GetLineCount ( ) ; 
/* // First Line Deletion Scheme: Flickering Problem 
if (count > MAX CHAT LINES) . 



{ 



} 



len = pEdit->LineLength (0) ; \ 

pEdit->SetSel (0 , len+2); // remove the first line 

pEdit->ReplaceSel (_T ( " " ) ) ; 

TRACE ( "CChatView: : Message ( ) removed %d chars \n " , len+2) ; 



if (count > 10 00) // MAX_CHAT_LINES 
{ 

// Save the whole text 

pEdit->SetSel (0 , -1); // remove the whole lines 

pEdi t - >ReplaceSel (_T ("")); 

} 

CString strAdd (IpszText ) ; 
strAdd += _T("\r\n"); 

int len pEdit->GetWindowTextLength () ; 

pEdit->SetSel(len, len) ; // starting position, ending 

position 

// "tortoise: \n" halts the system 

pEdit->ReplaceSel (strAdd) ; 

} 

void CUC2DOC : : ClearHistory 0 
{ 

// CEditHistory* pEdit = GetEditHistory ( ) ; 
CEdit* pEdit = GetEditHistory () ; 
if (pEdit) 
{ 

pEdit->SetSel (0 , -1); // select all 

pEdit->ReplaceSel (_T(" ") ) ; 

} 

} 

/ / Demo 

long CUC2DOC :: Wait (const DWORD dwinterval) 
{ 

MSG msg; 
1 ong 1 Count = 0 L ; 

DWORD dwLastTick = ; : GetTickCount ( ) ; 
CUC2App* pApp = (CUC2APP*) AfxGetApp 0 ; 
while ( (m_wUC2Mode & UC2MODE_DEMO) 

( ( : zGetTickCount 0 - dwLastTick) < dwinterval)) 

{ 

if ( : :PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE) ) 
{ 

if ( ! : :GetMessage (&msg, NULL, 0, 0)) 
{ 

m wUC2Mode = UC2 MODE OFFLINE ; 
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: : PostQuitMessage ( 0 ) ; 
return -1; 

} 

: :TranslateMessage (&msg) ; 
: :DispatchMessage (&msg) ; 

} 

pApp->OnIdle (lCount++) ; 

} 

returij ICount; 

' '\ 

void CUC2DOC : :OnUpdateViewDemo (CCmdUI* pCmdUl) 
{ 

pCmdUI->SetCheck (IsDemo 0 ) ; 

} 

. CActor* CUC2DOC : :GetThisActor () const 

{ 

ASSERT (m_pSt age) ; 

return m_pStage- >GetThisActor ( ) ; 

} 

////////////////////////////////////////////////////////////////////////// 

// ChatSock API 

BOOL CUC2DOC: :IsConnected() 

{ 

return (mj)Socket m_pSocket - >FConnected ( ) ) ; 

} 

BOOL CUC2DOC : : IsInChannel ( ) 

{ 

return (m_j)Channel && m_pChannel->FInChannel () ) ; 

} 

/ / Send text into opened channel 
// 1. To send text chat data 
// called in CEditSend : : OnChar 

BOOL CUC2DOC : : SendText (LPCTSTR szText, const BOOL bWhisper) 

{ 

if ( !m_pStage) 

return FALSE; 
CActor* pTA = m j>Stage - >GetThi sActor { ) ; 
if (!pTA) 
( 

TRACE (" est age : This Actor not found!\n"); 
return FALSE; 

} 

// Truncate exceeding characters 
char szTemp [MAX_SEND_CHAR+1] ; 

LPCSTR pSend = szText; // pointer to the text to send 

int len = Istrlen (szText ) ; 
if (len > MAX__SEND_CHAR) 
{ 

: iCopyMemory (szTemp, szText, len); 
szTemp [len] = 0; 
pSend = szTemp ; 
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} 

CString strOut (m_strNick . IsEmpty ( ) ? pSend : m_strNick + _T ( " : " ) + 
pSend) / 

pTA->m_mi.SetBubbleKind(pTA->m_mi.GetSex() ) ; // Yello 

pTA->Chat (strOut) ; // Later, consider DECS... 

// if (pTA->IsVoice () ) 

// GetView { ) ->ChatVoice (szText) ; 

DisplayText (strOut ) ; 

return {m_pCtLannel ? m_j)Channel - >FSendAnsiText ( (char* ) pSend) : FALSE) 

} 

// Send whisper message to 

BOOL CUC2DOC : :WhisperTo {CActor* pA, LPCTSTR szText) 
{ 

if ( ! IsInChannel () ) 
return FALSE; 
ASSERT (pA) ; 

PICS_MEMBER pM = pA- >Get Member () ; 
if (IpM) 

return FALSE ; 
CString strText ( szText ) ; 
int len = strText . GetLength {) ; 

BOOL bRes = m_pCiiannel - >FWhisperTo (pM , strText . GetBuffer { len) ) ; 
pM- >Release ( ) ; 

// Show whisper bubble only in this (sender's) client 
if ( !m_pStage) 

return FALSE ; 
CActor* pTA - m__pStage- >GetThisActor ( ) ; 
if (pTA) 
{ 

pTA->m_mi.SetBubbleKind(2) ; // Green 
pTA->Chat (strText) ; 

} 

return bRes ; 

} 

// Send State or Action Command 

void CUC2 Doc :: SendCommand (const int nCmd) 

{ 

if ( ! m_pStage) 
return; 

CUC2View* pView = GetUC2View ( ) ; 

if (nCmd == CMD_PUNCH) 
{ 

if ( !pView->PunchAvailable 0 ) 

return; 
pView->SaveLastHitTick 0 ; 

} 

CActor* pMe = m_jpStage- >GetThisActor ( ) ; 

if (!pMe) 

{ 

TRACED ( "CUC2DOC :: SendCommand - GetThisActor { ) failed\n"); 
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return ; 

} 

// If we use this scheme, ActionQueue in CActor is no more used, 
if (pMe- >IsMoving ( ) ) // don't accept continuous move commands 

{ 

TRACED ("->") ; 
return; 

} 

// CTileMap* pTM = m_jpStage->GetTileMap 0 ; 

// CPoint ptTID (pTM->GetNearestTileIndex (pMe->GetEarthPoi\t 0 ) ) ; 

CPoint ptTID (pMe->m_mi .GetTilelD 0 ) ; 
CString strCmd; 
// Get state before action! 

StrCmd. Format ("%c^%d^ (%d,%d) ^%d^", UC2_SIGN_CHAR , 

nCmd, ptTID.x, ptTID.y, pMe - >GetState ( ) ) 

if {nCmd == CMD_PUNCH) 

{ 

CActor* pFA = m_pStage - >GetFrontActor ( ) ; 

if (pFA) 

{ 

// Show action in this machine immediately... 

pMe- >Act (nCmd) ; 

pFA->Act (CMD_BEATEN) ; , 

StrCmd += *pFA- >GetNick ( ) ; 

StrCmd += ' ^ ' ; 

SendData ( StrCmd) ; 

return; 

} 

} 

pMe->Act (nCmd) ; 
SendData (strCmd) ; 

} 

void CUC2DOC :: SendMoveCommand (const int nCmd) 

{ 

if ( ! m_pStage) 
return ; 

CActor* pMe = m_jpStage->GetThisActor ( ) ; 

if ( !pMe) 

{ 

TRACED ( "CUC2DOC :: SendCommand - GetThisActor ( ) failed\n"); 
return; 

} . 

// If we use this scheme, ActionQueue in CActor is no more used, 
if (pMe->IsMoving 0 ) // don't accept continuous move commands 

{ 

TRACED ("->") ; 
return; 

} 

// CTileMap* pTM = m_pStage - >GetTileMap ( ) ; 

// CPoint ptTID (pTM->GetNearestTileIndex (pMe->GetEarthPoint 0 ) ) ; 
CPoint ptTID (pMe->m_mi .GetTilelD 0 ) ; 
CString str; 

str. Format ("%c*"%d^ (%d, %d) ^%d-'", UC2_SIGN_CHAR, 

nCmd, ptTID. X, ptTID. y, pMe - >GetState ( ) ) ; 
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CString* pStrExit 
Forward or Backward 
SendData { str) ; 
if (pStrExit) 



m_j3Stage- >ActorMove (pMe , nCmd == CMD_MOVEF) 



// 



{ 



JoinChannel (*pStrExit) ; 



} 

// Send data into an bpened channel 

// To let all the memlD^rs in the channel know 

// 1. To broadcast my entry in the channel I just joined 

// 2. To send command data (behaviors selected) 

BOOL CUC2DOC :: SendData (LPCTSTR szText) 

.{ 

if ( ! IsInChannel () ) 
return FALSE; 
DWORD len = Istrlen ( szText ) + 1; 

return m__pChannel - >FSendData ( (LPBYTE) szText, len) ; 

} 

///////////////////////////////////////////////////////////////////////// 
// ChatSock Message Handler: coming from CMainFrame 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



Since Document cannot receive WM_COMMAND message 
Frame window will call this function for us . . . 



typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 



IChatSocket Factory* 

IChatSocket* 

XCSChannel* 

ICSMember* 

ICSQuery* 

ICSProperty* 

ICSPrivateMsg* 

ICS Invitation* 



PICS_FACTORY; 
PICS; 

PICS_CHANNEL; 

PICS_MEMBER; 

PICS__QUERY; 

P I CS_PROPERTY ; 

PICS_PRIViyiSG; 

PICS I3SFVITATION; 



// Typical sequence of commands from ChatSock 

// 1. CSMSG_TYPE_ADDCHANNEL 

// 2, CSMSG_TYPE_ADDMEiyiBER ... 

// 3. CSMSG_TYPE_PRIVATEMSG 

// 4. CSMSG_TYPE_GOTMEiyiLIST 

/ / 5 , CSMSG_TYPE_TEXT_A . . . 

// 6. CSMSG_TYPE_DELMEMBER ... 

// 7. CSMSG_TYPE_DELCHANNEL 



CActor^ 

{ 



CUC2DOC : iGetActor {PICS_MEMBER pMem) const 
ASSERT (m_pStage) ; 

return m_pStage- >GetActor (pMem) ; 



// Load Stage on ADDCHANNEL 

LRESULT CUC2DOC : :OnCsAddChannel (WPARAM wParam, LPARAM iParam) 
{ 

PICS_CHANNEL picsChannel = ( PI CS_CHANNEL) IParam ; // ICSChannel^ 

TRACE ( "CUC2DOC : : OnCsAddChannel - SetChannel ( %lx) \n" , picsChannel) ; 
SetChannel (picsChannel) ; // Don't Release pC here. 

picsChannel - >Release ( ) ; 
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char* pszChName = m_pChannel - >SzName ( ) ; 
if ( ipszCHName) 
return -1; 

ClearHistory { ) ; 

CString strMsg; 

// CString strStagelD (pszChName ) ; // " [u2/0000abcd] 00 " or 

" [p2/0000abcd] 00" 

// if (gResMan.ExtractStagelD ( StrStagelD) ) // "OOOOabcd" 

if (gResMan.GetStageType (pszChName) >= ST_MUD) { 
// LoadStage (StrStagelD) ; 

// syc 0709 

CString strTemp (pszChName ) ; 

int nStart = strTemp . Find ('}') ; 

int length = strTemp . GetLength () ; 

char* p = StrTemp . GetBuffer (length + 1) ; 

p +- nStart + 1; 

StrTemp . ReleaseBuffer ( ) ; 

// end 

AfxFormatStringl ( StrMsg, IDS_JOINED_CHANNEL, p);// pszChName); // 

syc 0709 

// GetViewO - >ChatVoice ( s trMsg) ; 
DisplayText (strMsg) ; 

} 

else { 

TRACE ( "\nCUC2D0c : :OnCsAddChannel ( ) - INVALID CHANNEL NAME"); 
AfxFormatStringl (strMsg, IDS_INVALID_CHANNEL_NAME , pszChName); 
AfxMessageBox (strMsg) ; 

} 

return 0 ; 

} 

// When I enter a channel, I receive member info via Private message 
LRESULT CUC2DOC : :OnCsPrivateMsg (WPARAM wParam, LPARAM iParam) 

{ 

PICS_PRIVMSG picsPrivMsg ^ (PICS_PRIVMSG) iParam; // ICSPrivateMsg* 

ASSERT (picsPrivMsg) ; 
CS_PRIVMSG pm; 

if (FAILED (picsPrivMsg- >HrGetMsg (S:pm) ) ) 
{ 

TRACE ( "picsPrivMsg- >HrGetMsg ( ) failed ! \n" ) ; 
picsPrivMsg->Release() ; 
return FALSE; 

} 

CString strData; 
if (pm.fText) 

{ 

if (pm.fAnsi) 

{ 

TRACEO ("CSMSG_CMD_PRIVATEMSG - not ANSl\n"); 
picsPrivMsg->Release() ; 

AfxFormatStringl (strData, IDS_PRIVATE__MESSAGE , 

(CHAR*)pm.pbData) ; 

DisplayText (strData) ; 
return FALSE; 
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} 

else // binary 
{ 



TRACE { "Private MSG: binary\n"); 
gParser .CopyBuffer ( (CHAR* ) pm . pbData) ; 
char c ; 

gParser . GetValueRightToken ( c , UC2TOKEN) ; 

if {c == UC2_SIGN_CHAR) ^ 

char* szNickFrom; \ 
BOOL bAnsi; 

picsPrivMsg->HrGetMsgSender ( (BYTE**) &szNickFrom, &bAnsi) ; 

PICS_MEMBER pM=NULL ; 

if (szNickFrom m_pChannel) 



{ 



PICS_CHANNEL picsChannel = m_pChannel - >PChannel { ) ; 
ASSERT (picsChannel) ; 

pi csChannel->HrGetMemberFroTTiNameA (szNickFrom, &pM) ; 
picsChannel- ^Release 0 ; 

int nCmd ; 

strData = gParser . GetValueRightToken (nCmd , UC2TOKEN) ; 

if (nCmd CMD_MEMBER_INFO) // Add Actor 

{ 

CActor* pA = GetActor (pM) ; // Find , 



corresponding Actor obj act 
%lx\n" , pM) ; 



TRACE ( " \tOnCsPrivateMsg - CMD_iyiEMBER_INFO : 



if (IpA) 
{ 



// Not Found: New User 



mjiStage) 

in the channel 

m__pChannel - >FIsMemberMe (pM) ) 



CMemberlnfo mi; 

mi . SetMember (pM) ; 

if (mi . SetMemberlnfo (strData) 

( // Create the actor who was already 

pA = m_pStage->CreateActor (mi , 



} 



} 

} 

if (pM) 

pM->Release ( ) ; 



} 



} 

picsPrivMsg- >Release 0 ; 
return 0 ; 



LRESULT CUC2DOC : lOnCsQueryData (WPARAM wParam, LPARAM iParam) 

{ 

return 0 ; 



LRESULT CUC2DOC : :OnCsInvite (WPARAM wParam, LPARAM IParam) 
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PICS_INVITATION picslnvite = (PICS_INVITATION) iParam; 

ASSERT (picslnvite) ; 

BYTE* pbName ; 

BYTE* pbSender; 

BOOL bAnsi; 

CHAR* szChannel; 

CHAR* szFrom; 

if (FAILED {picsInvite->HrG'etChannelName {&:pbName, ScbAnsi) ) ) 

{ \ 

picslnvite- >Release ( ) ; 
return FALSE; 

} 

if (bAnsi) 

{ 

szChannel = { CHAR*) pbName; 

}, 

if (FAILED (picsInvite->HrGetSender (&pbSender, &bAnsi))) 
{ 

picsInvite->Release 0 ; 
return FALSE; 

} 

if (bAnsi) 

{ 

szFrom = (CHAR* ) pbSender ; 

} 



CString strMsg; 

AfxFormatString2 (strMsg, IDS_INVITATION, szFrom, szChannel) ; 
// if (AfxMessageBox(strMsg, MB_YESNO) == IDYES) 

// { // Show Join Channels Dialog 

// : rPostMessage (AfxGetMainWndO - >GetSaf eHwnd ( ) , WM_COMMAND, 

(WPARAM) IDC_BTN_CREATE, (LPARAM) 0) ; 

// } 

DisplayText (strMsg) ; 
picsInvite->Release() ; 
return 0 ; 

} 

iiiiiiiiiiiiiiiiiiiiiiiiiii/iiiiiiiiiiiiiiiiiiniiiiuiiiiiniiiiiiiiiiiiiiii 

1 1 Channel thread 

LRESULT CUC'2Doc : :OnCsGotMemList (WPARAM wParam, LPARAM iParam) 

( 

return 0 ; 

} 

11^^ only respond to the ADDMEMBER message after GOTMEMLIST 
// 1. On ADDMEMBER myself 

// SendData => Inform myself to this channel I just joined 

// 2. On ADDMEMBER new member in the course of chat 

// SendPrivData => Inform myself only to this new member 

LRESULT CUC2DOC : lOnCsAddMember (WPARAM wParam, LPARAM IParam) ^ 
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ASSERT (m_p Channel) ; 

PICS_MEMBER pM = (PICS_MEMBER) IParam; 
ASSERT (pM) ; 
CString strData; 
CString str; 

CHAR* szName = m_pChannel - >SzMemName (pM) ; 
//AddMember (picsMember) ; 

AfxFormatStringl (str, IDS_MEMBER_ENTRY, szName) ; 
DisplayText (str) ; 
/ / Member info 

if (m_pChannel->FGotMemList 0 ) // After 

^ if (m_pChannel->FIsMemberMe (pM) ) // Myself: Broadcast my info 

// Set ChatID again in case this member has logged in with 

a backup id 

m_strNick = szName; 
// Load my actor 
CMemberlnfo mi ; 
mi . LoadMyInf o ( ) ; 

PICS CHANNEL pC = m__pChannel - >PChannel ( ) ; 

ASSERT (pC) / 

PICS_MEMBER pM; 

pC->HrGetMe (&pM) ; 

pC- >Release ( ) ; 

ASSERT (pM) ; 

mi . SetMember (pM) ; // AddRefO 
pM- >Release ( ) ; 

mi.SetVersion(GetClientVersion() ) ; // myself 
mi . SetState (m_wSavedState) ; 

ASSERT (m_jpStage) ; 

CActor* pA = m__pStage->CreateActor (mi , TRUE); // myself 
// CActor* pA = GetActor(pM) ; 

if (pA) 
{ 

strData.Format (•■%c^%d^", UC2_SIGN_CHAR, 

CMD_MEMBER_XNFO) ; 

pA->m_mi .GetMemberInf o (str) ; 
strData += str; 

TRACE ( " OnC s AddMember : [SendData :Broadcas.t 

myself ] %s\n" , strData); 

SendData (StrData) ; // Broadcast in the channel 

} 

else 

{ 

TRACED ( "CUC2DOC :: OnCsAddMember - Creation 

Failure ! \n" ) ; 

} 

} 

else // Inform myself to the new member 

. { 

CActor* pA = GetThisActor 0 ; 
if (pA) 
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s trData . Format ( " %c ^ %d^ " , UC2_SIGN_CHAR, 
CMemberlnf o mi ; 

pA->GetMemberInf o (mi) ; // Get member info from this 
mi .GetMemberInf o (str) ; // express member info in 
strData += str; 

DWORD dwcb = StrData . GetLength ( ) + 1; 

TRACE ( "OnCsAddM ember : [PrivData : Inform myself 1 %s\n" , 



{ 

CMD_MEMBER_INFO) ; 

actor 
string 

StrData) ; 

m__pSocket->FSendPrivData (szName , 
(BYTE*) StrData. GetBuffer (dwcb- 1) , dwcb) ; 

} 

else 

TRACEO ( "CUC2DOC : :OnCsAddMember - Oops!, I'm not 

created yet?\n"); 

} 

} 

} 

pM- >Release ( ) / 
return 0 ; 

} 

LRESULT CUC2DOC: :OnCsDelMeTnber(WPARAM wParam, LPARAM iParam) 

^ PCS_MSGMEMBER pMsg = ( PCS_MSGMEMBER) iParam; 

PICS_iyiEMBER pM = pMsg- >picsMember ; 
ASSERT (pM) ; 
pM->AddRef () ; 

if (m_jpChannel) 

^ CHAR* szName = m__pChannel - >SzMemName (pM) ; 

//DelMember (picsMember) ; 
CString str; 

AfxFormatStringl (str, IDS^MEMBER_EXIT , szName) ; 
DisplayText (str) ; 

// Delete the member 
CActor* pA = GetActor (pM) ; 

if (pMsg->picsMemSrc) 

PICS MEMBER pMemKick = pMsg- >picsMemSrc ; 
// Someone was kicked. . 

//If the member being kicked was US., notify the user 
// if (mj)Channel->FIsMemberMe (pM) ) // This doesn't work 

since the member is already kicked out. 

CString strKickReason ; 

CHAR* szKicker = m_pChannel - >SzMemName (pMemKick) ; 

// Also save the reason, if any., and only if its ANSI 

if (pMsg- >pvReason pMsg->fAnsi) 

if (szKicker && pMsg->pvReason) 
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(CHAR* ) pMsg- >pvReason) 



CString strFmt; 

strFmt -LoadString ( IDS_KICKOFF_REASON) ; 
wsprintf ( strKickReason . GetBuf f er (1024) 
StrFmt, szKicker, szMame, 

StrKickReason . ReleaseBuffer 0 ; 
DisplayText (strKickReason) ; 
if (pA === GetThisActor 0 ) 

^ \ 

AfxMessageBox (strKickReason) ; 

} 



if (pA) 
{ 

m__pStage->DeleteActor (pA) ; 

// CRect rc; 

// m_pStage->GetRect (rc) ; 

// GetViewO - >AddDirtyRegion ( &rc) ; 

// GetView ( ) ->RenderAndDrawDirtyList { ) ; // Erase 

} 

} 

pM- >Release ( ) ; 
return 0 ; 



LRESULT CUC2DOC : rOnCsDelChannel (WPARAM wParam, LPARAM iParam) 
{ 

SetTitle (ISTULL) ; 

PICS_CHANNELi pC = (PICS_CHAMNEL) iParam^- 
ASSERT (pC) ; 

TRACE ("OnCsDelChannel\n") ; 
pC->Release () ; 
return 0 ; 

} 

LRESULT CUC2DOC : :OnCsModeMember (WPARAM wParam, LPARAM IParam) 
{ 

return 0; 

} 

LRESULT CUC2DOC : :OnCsModeChannel (WPARAM wParam, LPARAM iParam) 
( 

return 0; 

} 

// On TEXT_A - Just a text conversation 

// 1. Find the actor object corresponding to the MIC member 
// 2. Show the text through this actor 

LRESULT CUC2DOC : rOnCsTextA (WPARAM wParam, LPARAM IParam) 
{ 

//rao 

if (m_pChannel) 

{ 
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PCS_MSG pMsg = (PCS_MSG) IParam; 
// Obtain the sender's name 
PICS__MEMBER pM = pMsg - >picsFrom; 
ASSERT (m_p Channel) ; 

// if member is NULL, the message is from the channel 

CHAR* szName = (pM) ? m_pChannel - >S2MemName (pM) : m_jpChannel 

>SzName ( \ ; 

ASSERT (szName) ; 
^ // Is this user a Host? 

CString strText; 
\ if (pM EcSc (pM->HrIsMemberHost 0 NOERROR) ) 

StrText = _T{"*") ; 
CString strVoice ( (LPCSTR) pMsg- >pbData) ; 
// if (StripComicHeader ( (LPCSTR) pMsg->pbData, strVoice) > 0) 

// { 

StrText +~ szName; 
StrText += _T ( " : " ) ; 
StrText +~ strVoice ; 
DisplayText (strText) ; 



if ( !pM) 

return 0; 



} 



if (pM->HrIsMemberIgnored 0 NOERROR) 

return 0; 
CActor* pA = GetActor (pM) / 
if (pA) 
{ 

if (strText.GetLengthO > MAX_SEND_CHAR) 
{ 

// strText.GetBufferSetLength(MAX_SEND_CHAR) ; 

StrText .ReleaseBuffer (MAX_SEND_CHAR) ; 

} 

pA- >Chat (strText ) ; // Later, consider DECS. 

// if (pA->IsVoice {) ) 

// GetView 0 ->ChatVoice (strVoice, pA- >GetGender () ) ; 

} 

// } 
} 

return 0 ; 



// 1. Actors' command data 

LRESULT CUC2DOC : :OnCsData (WPARAM wParam, LPARAM iParam) 
{ 



PCS_MSG pMsg = (PCS_MSG) iParam; 
// Obtain the sender's name 
PICS_MEMBER pM pMsg- >picsFrom; 



if (pM->HrIsMemberIgnored() == NOERROR) 

return 0; 
TRACEO ( "Data : binary\n" ) ; 
int len = ( int ) pMsg- >dwcbData; 

char* szBuf = new char[len+2]; // +1 for safety 

: : CopyMemory (szBuf , (LPBYTE) pMsg- >pbData , len); 
-szBuf [len] = NULL; 
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object 



gParser . CopyBuf f er ( szBuf ) ; 
char c; 

gParser -GetValueRightToken (c, UC2T0KEN) ; 
if {c UC2_SIGN_CHAR) 
{ 

CActor* pA = GetActor (pM) ; // Sender: Find corresponding Actor 
int nCmd; 

CString strData (gParser . GetValueRightToken (nCmd , UC2 TOKEN ) ) ; 

if (nCmd CMD_MEMBER_INFO) 

{ 

TRACE ( "CUC2DOC : :OnCsData - CMD_MEMBER_INFO : %lx\n" , pM) ; 
if ( IpA) // Not Found: New Member 

{ 

CMemberInf o mi; 
mi . SetMember (pM) ; 

if (mi . SetMemberlnfo (strData) m_pStage) 
{ // Create the actor who joined this channel 

CActor* pA = m_jpStage->CreateActor (mi , 

m_j)Channel - >FIsMemberiyie (pM) ) ; 



} 



} 



} 

else if (nCmd > CMD MOVE) 



{ 

just repositioning 



// Move or Action 

// CMD ACTION means 



TRACE { "CUC2DOC : rOnCsData - CMD(%d): %lx => nCmd, pM) ; 

if (pA) 

{ 

WORD wState; 
CPoint ptTID; 

if (gParser. GetValueRightToken (ptTID, UC2 TOKEN ) ) 
{ 

gParser . GetValueRightToken (wState , UC2TOKEN) ; 
CTileMap* pTM = m_jpStage- >GetTileMap ( ) ; 
CPoint ptC (pTM->GetCenter (ptTID.x, ptTID.y)); 
pA->MoveToEarth (ptC) ; 

pA->SetState {wState , FALSE); // Adjust Current 



State 



} 

if (nCmd < CMD_STATE) // MOVE 

m_jpStage- >ActorMove (pA, nCmd 

else 
{ 



CMD MOVEF) ; 



UC2 TOKEN) 8c Sc 



>GetActor ( strNickTo) ; 



pA->Act (nCmd) ; 

if (nCmd == CMD_PUNCH) 

{ 

CString strNickTo; 

if (gParser .GetValueRightToken (strNickTo, 
1 StrNickTo- IsEmpty () ) 

{ 

CActor* pABeaten = m_pStage- 

if (pABeaten) 

pABeaten ->Act (CMD_BEATEN) ; 
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} 



} 

} 

} 

delete [] szBuf; 
return 0 ; 



LRESULT CUC2DOC : :OnCsWhisperText (WPARAM wParam, LPARAMMParam) 

{ . \ 

PCS_MSGWHISPER pMsgW = ( PCS_MSGWHISPER) iParam ; 

// Obtain the sender's name 

ASSERT (pMsgW) ; 
// if (pMsg- >dwcMem ) 

PCS_MSG pMsg = (PCS_MSG) pMsgW- >pcsMsg; 

ASSERT (pMsg) ; 

PICS_MEMBER pM = pMsg- >picsFrom; ^ 
ASSERT (m_pChannel) ; 

// if member is NULL, the message is from the channel 

CHAR* szName - (pM) ? m_pChannel - >SzMemName (pM) : m_j) Channel - >SzName ( ) 

ASSERT (szName) ; 

// Is this user a Host? 

CString strText; 

CString strVoice ( (LPCSTR) pMsg- >pbData) ; 
if (pM->HrIsMemberHost () NOERROR) 

strText = _T("*") ; 
strText szName; 
StrText __T("=>"); 
StrText += strVoice ; 
DisplayText (strText) ; 

if C!pM) 

return 0 ; 

if Cpiyi->HrIsMemberIgnored ( ) NOERROR) // This member is ignored.., 
return 0; 



CActor* pA = GetActor (pM) ; 

if (pA) 

{ 

if (strText.GetLengthO > f4AX_SEND_CHAR) 

{ 

// StrText. GetBufferSetLength(MAX_SEND_CHAR) ; 

StrText .ReleaseBuffer (iy[AX_SEND__CHAR) ; 

} 

pA->m_mi . SetBubbleKind (2) ; // Green for Whisper 

pA->Chat (strText) ; // Later, consider DECS... 

// if (pA->IsVoice {) ) 

// GetView 0 - >ChatVoice (strVoice, pA->GetGender () ) ; 

} 

return 0 ; 

} 

LRESULT CUC2DOC : :OnCsWhisperData (WPARAM wParam, LPARAM IParam) 
{ 

return 0; 

} 
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LRESULT CUC2DOC: rOnCsNewTopic (WPARAM wParam, LPARAM iParam) 
return 0 ; 



LRESULT CUC2DOC: :OnCsNewNick{WPARAM wParam, LPARAM IParam) 
return 0 ; ^ 

^ \ 

BOOL CUC2DOC : :SetChannel (PICS_CHA]SrWEL picsChannel) 

//We got a new channel. Save it. 
ASSERT (m_j)Channel == NULL) ; 

m _jpChannel - new cuC2Channel (Af xGetMainWnd { ) - >GetSaf eHwnd ( ) ) ; 

ASSERT {m__pChannel) ; 

// Save the ICSChannel pointer 

if (mj)Channel->FInit (picsChannel) ) // PICS__CHANNEL 

//CString strTitle (Tn_strNick) ; 

CString strTitle; 

StrTitle += _T ( " : " ) ; 

StrTitle += m_pChannel->SzName () ; 

SetTitle (strTitle) ; 

TRACE ("You are now in channel %s\n" , m_pChannel - >SzName ( ) ) ; 

} 

return TRUE; 

} 

1 1 CUC2DOC commands 
BOOL CUC2DOC : : Connect ( ) 

^ // Create a non-signaled, manual-reset event to synchronize destruction 

// m_jpExitEvent = new CEvent (FALSE , TRUE); 
if (m_j)Socket) 

{ 

if (m_j)Socket->FConnected 0 ) 

AfxMessageBox( "Error: Already connected."); 
return FALSE; 

m_pSocket->SetReceiver (Af XGetMainWnd 0 - >GetSaf eHwnd ( ) ) ; 

} 

else 

m pSocket = new CUC2Socket (AfxGetMainWnd ()- >GetSaf eHwnd ()) ; 

if ( !m_j)Socket->FInit 0 ) // create a Socket Factory 

{ 

// ExitPermitted 0 ; 

return FALSE; 

} 
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CUC2App* pApp - (CUC2APP*) AfxGetApp 0 ; 
// pApp->SetPause (TRUE) ; 

// if (m_pScript m_pScript - >IsPlaying ( ) ) 
// m_pScript - >Stop ( ) ; 

CLoginDlg LoginDlg (m_pSocket ) ; // Connection (Login) Dialog 

// LoginDlg, SetDoc (this) ; 

pApp->RegGetNick (LoginDlg , m_strNickName ) ; 

if ( LoginDlg. DoModal () =^ IDOK) 

{ 

// m_timeConnect = CTime : : GetCurrentTime ( ) ; 

// pApp->RegSetServer (ConnDlg .m_strServerIP) ; 

m_strNick = LoginDlg . m__strNickName ; 

pApp->RegSetNick (m_strNick) ; 

ClearHistory 0 ; 

CString strMsg; 

Af xPormatStringl (strMsg, IDS_WELCOME_TO_LOBBY, m_strMick) ; 
DisplayText (strMsg) ; 

// if (DownloadDataFiles () ) 

// return FALSE; 

} 

else 

{ 

return FALSE; 

} 

return TRUE; 



// Quit Connection 

BOOL CUC2DOC :: Disconnect ( ) 

{ 

if (m_j>Channel) 

{ 

LeaveChannel () ; 

} 

if (m_pSocket) 

{ 

m_pSocket->SetReceiver (NULL) ; 
Tn__pSocket ->FDis connect ( ) ; 

} 

return TRUE; 

} 

BOOL CUC2DOC : -.ListChannels 0 // Just list 
{ 

CMemberlnfo mi; 
mi . LoadMyInf o ( ) ; 



CString strTitle; 

strTitle.LoadString (IDS_JOIN_CHANNEL_TITLE) ; 

CPSJoinChannel psjc(this, PS__JOIIsr_PAGE, strTitle); // List Only 
ps j c . SetMemberInf o (mi) ; 



/ /CHANGES_MADE_F0R_UNICHAT_2 
m_bIsJoinChannelVisible = TRUE; 
if (psjc .DoModal 0 1= IDOK) 
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■ { 

m_bIsJoinChannelVisible = FALSE; 
return FALSE; 

} 

m^blsJoinChannelVisible = FALSE; 
return TRUE; 

} 

void CUC2DOC : : LeaveChannel ( ) * 

TRACED ( "CUC2DOC :: LeaveChannel 0 \n" ) ; \ 
m_j)Channel->SetReceiver (NULL) ; // Don't receive message 

m_pChannel->FLeave 0 ; 
de 1 e t e m_pChanne 1 ; 
m__pChannel = NULL; 

} 

void CUC2DOC: :MakeMudChannelInfo (EC_CHANNELINFO& eclnfo) 
{ 

static CString strTopic; 
strTopic = m__strStageName; 
gResMan.GetStageTitle (strTopic) ; 

: :ZeroMemory (&ecInfo, sizeof (EC_CHANNELINFO) ) ; 

eclnfo - szName = 
m_strStageName.GetBuffer (m_strStageName-GetLength() + 1) ; 

eclnfo. dwType = CS_CHANNEL_PUBLIC ; 

eclnfo . szTopic = strTopic . GetBuffer ( strTopic . GetLength ( ) + 
// UC2MUD__TOPIC; 

eclnfo. szPass = _T ( " " ) ; 

eclnfo. cUsersMax = iy[AX_MEMBERS_IN_CHANNEL ; // limit # of membe 
in a channel 

eclnfo. dwFlags = CS_CHANNEL_FLAG_MICONLY; 

) 

void CUC2DOC : :OnConnectSync 0 

{ 

DownloadDataFiles 0 ; 

} 

// need to reload rit? 

BOOL CUC2DOC :: DownloadDataFiles () 

( 

CProgressDlg DownloadDlg; // Download data files 

DownloadDlg .DoModal ( ) ; 

if (DownloadDlg. RITModif led {) ) 

{ 

if (IsDemoO) 

EndDemo ( ) ; 
CCloseDlg dig; 

dlg.m_strMessage,LoadString (IDS_CL0SE_ON_NEW_RIT) ; 
if (dig. DoModal {) != IDOK) 

return FALSE; 
CMainFrame* pMF = (CMainFrame* ) Af xGetMainWnd ( ) ; 
pMF->SetAskBeforeClose (FALSE) ; 
pMF->PostMessage (WM_CLOSE) ; 
return TRUE; 

} 
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return FALSE; 

} 

// Join a channel 

// Specifying szChannelName means automatic navigation mode (No user 
inquiry) . 

BOOL CUC2DOC : : JoinChannel (LPCTSTR szChannelName) 

{ 

if ( ! IsConnected {) ) ^ // ON_UPDATE_UI will prevent this 

if (! Connect 0) \ 
{ 

// AfxMessageBox ( "Connection Failed!"); 

return FALSE; 

) 

} 

EC_CHANNELINFO eclnfo; 
CString strTitle; 

strTitle . LoadSt ring ( IDS_JOIN_CHANNEL_TITLE) ; 
CPSJoinChannel psjc(this, PS_ALL_PAGES , strTitle); 
if (szChannelName) // UniChat MUD mode 

{ 

m__strStageName ~ szChannelName; 

gResMan ,MakeStageName (m_strStageName , FALSE); // for MUD 
MakeMudChannellnfo (eclnfo) ; 

} 

else // User-creatable channel 

{ 

CMemberInf o mi ; 
mi . LoadMyInf o ( ) ; 

ps j c . SetMemberInf o (mi) ; 

//CHANGES_MADE_F0R__UNICHAT_2 
m_blsJoinChannelVisible = TRUE; 

// ps j c . SetWizardMode ( ) ; 

if (psjc.DoModal 0 1= IDOK) 

{ 

m_bls JoinChannel Visible = FALSE; 
return FALSE; 

} 

m_bIsJoinChannelVisible = FALSE; 

ps j c .GetMemberInf o (mi) ; 
mi . SaveMyInf o ( ) ; 

if ( !psj c -GetChannellnfo (eclnfo) ) // Navigation mode 
return FALSE; 

} 

CString strMsg; 
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HRESULT hr = ; : HrVerif yCreateChannelNameA (eclnf o . szName , TRUE, FALSE) ; 
// fMicOnly, fLocal 
if (FAILED (hr)) 

{ 

AfxFormatStringl (strMsg, IDS_INVALID_CHANNEL_NAME , 
eclnf o . szName) ; 

AfxMessageBox (strMsg) ; 
return FALSE; 

} 

(IsInChannel () ) 

if ( ! szChannelName 

(Af xMessageBox (IDS_LEAVE_THIS_CHANNEL, MB_OKCANCEL) 1 = 

return FALSE; 
LeaveChannel 0 ; // delete m_pChannel 

CString strStagelD (eclnf o . szName) ; // " [u2/0000abcd] 00 " or 

" [p2/0000abcd] " 

gResMan.ExtractStagelD (StrStagelD) ; // "OOOOabcd" 
// Fetch StrStagelD file from the Host Computer 
LoadStage (strStagelD) ; 

if (gResMan.GetStageType (eclnf o. szName) ST_MUD) 
CUC2APP* pApp = (CUC2APP*) AfxGetApp {) ; 

pApp->RegSetLastStageID (StrStagelD) ; // Save current Stage 

ID in the registry 
} 

// Set variables for OnChannelFullRetry () 
m_strStageName = eclnf o . szName ; 
ASSERT (m_st rStageName . GetLength ( ) > 0 ) ; 
m_SNSuff ix[0] = '0'; // Initialize 

m_SNSuf f ix [1] = '1'; 

TRACEO ( "m_pSocket->FCreateJoinChannel (&eclnf o) \n" ) ; 
if ( lm_pSocket->FCreateJoinChannel (&ecInfo) ) 

^ AfxFormatStringl (strMsg, IDS_CANNOT_JOIN_CHANNEL , eclnf o . szName) 

AfxMessageBox ( StrMsg) ; 
return FALSE; 

} 

return TRUE; 

} 

LRESULT CUC2DOC :: OnChannelFullRetry (WPARAM wParam, LPARAM IParam) 
{ 

EC__CHANNELINFO eclnf o; 
MakeMudChannellnfo (eclnf o) ; 

int n = Istrlen (eclnf o. szName) ; // [u2/0000abcd] 00 

if (n > 2) 

{ 

eclnf o. szName [n-1] = m_SNSuf f ix [1] ; 



{ 

II 
II 

IDOK) ) 
II 
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eclnf o. szName [11-2] = m_SNSuf f ix [0] ; 

if (m_SNSuf f ix[l] ++ >= '9') 

{ 

m_SNSuf f ix [1] = • 0 ' ; 
m_SNSuf f ix [0] ++; 
if (m_SNSuffix[0] > '2') 
return -1; 

} 

} 

TRACEO ( "m_j)Socket->FCreateJoinChannel (&eclnf o) \n" ) ; 

if ( !m_pSocket->FCreateJoinChannel (Sceclnfo) ) \ 
{ 

CString strMsg; 

AfxFormatStringl (strMsg, IDS_CANNOT_JOIN_CHAMs[EL , eclnf o . szName) ; 
AfxMessageBox ( StrMsg) ; 
return -1; 

} 

return 0 ; 

} 

void CUC2DOC: :OnViewDemo() 
{ 

m_wUC2Mode UC2MODE_DEMO ; // Toggle demo bit 
if (ilsDemoO || Jm_jpStage) 
return; 



if (IsDemoO) 

{ 

Tn__b Sound - TRUE; 

gResMan, SetMute { lm_bSound) ; 

if (IsInChannel {) ) 

{ 

if (AfxMessageBox (IDS_LEAVE_THIS__CHANNEL, MB_OKCANCEL) ! = 

IDOK) 

return; 

Le ave Channel 0 ; // delete mj^Channel 



while (IsDemoO) 
{ 

#ifdef _MALL 
#ifdef _ENGLISH 
#include "DemoMallE . cpp ". 
#else 

#include "DemoMall . cpp" 
#endif 

OnBtnCreate ( ) ; 

#else 

#include "Demo . cpp " 
#endif 

} 

} 

#ifdef _MALL 

void CUC2DOC : : ShowMapDemo ( ) 

{ 
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CDlgAni ani ( " wowmap . bmp " , NUIiL.) ; 

ani.SetAutoDestroy (TRUE) ; 

ani . SetTimeAttr (1000 , 11000) ; 

ani . SetRelPosition(250 , 50) ; 

ani . DoModal ( ) ; 



void CUC2DOC : : ShowIMDemo 0 
{ 

CDlgAni aniB ("wowblist.bmp" , WLL) ; 

aniB . SetAutoDestroy (TRUE) ; \ 
aniB. SetTimeAttr (1000, 8000) ; 
aniB .SetRelPosition (550, 100) ; 
aniB . DoModal ( ) ; 

CDlgAni ani ( " imwin . bmp " , " imani . bmp " , 

ani . SetAutoDestroy (TRUE) ; 
ani. SetTimeAttr (500, 10000) ; 
ani.SetRelPosition(250, 40) ; 
ani .SetLT (9, 50) ; 
ani . DoModal ( ) ; 

} 

void CUC2DOC : : ShowTitanicDemo 0 

PlayWaveFile ( "titanic .wav" ) ; 

CDlgAni ani ( " liquidad .bmp" , NULL) ; 

ani . SetAutoDestroy (TRUE) ; 

ani. SetTimeAttr (1000, 30000L) ; 

ani.SetRelPosition(400, 10) ; 

ani . DoModal ( ) ; 

} 

#endif 

// Satya Changes Start 

void CUC2DOC : iMakeUnichatTitle (CString &Title) 
{ 

CString str (Title) ; 
int Lang, Root , Child ; 
char ch; 

int IndexO =str . Find ( ' [ ' ) ; 
int Indexl = str . Find (']') ; 
if (IndexO === -1 && Indexl == -1) 
return; 

str. Delete ( IndexO , Indexl - IndexO+1) ; 
Title = str; 

// modify the title according to the 

// Selected Launguage and Channel Catego: 

IndexO = str . Find ('(') ; 
Indexl = str.Find(')'); 

if (IndexO -1 ScSc Indexl == -1) 
return; 

ch =str .GetAt (IndexO+1) ; 
Lang = atoi(&ch); 
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ch = str -GetAt (IndexO+3) ; 
Root = atoi(&ch) ; 
ch = str -GetAt (IndexO+5) ; 
Child = atoi {&ch) ; 
CString TempstrC [") ; 

switch (Lang) 

{ 

case 0 : 

Tempstr += "En" ; 
\ break; 
case 1: 

Tempstr += "Sp"; 

break; 
case 2 : 

Tempstr += "Kr"; 

break; 
case 3 : 

Tempstr "Ch"; 

break; 
case 4 : 

Tempstr +="Jp"; 

break; 
case 5: 

Tempstr +="Ot"; 

break; 
default : 

Tempstr +== "En"; 

break; 

}; 

Tempstr += " ] " ; 
Tempstr += " " ; 

Tempstr gResMan . GetNameChanTree (Root ) ; 
Tempstr += " - >" ; 

Tempstr += gResMan . GetNameSubltemChanTree (Root , Child) 

Tempstr " " ; 

str .Delete {IndexO+1, 5) ; 

str . Insert (IndexO+1 , Tempstr) ; 

// add Unichat Id at the last of the title 

// Simply we can add at the end of the Title 

str " / "; 

str += m_strNick; 

Title= str; 



} 



void CUC2DOC : : QuitChannel 0 

{ 

//Leave Channel () ; 
/ / Get this actor 

CActor *pthisActor = GetThisActor ( ) ; 
if (pthisActor) 

{ 

PICS MEMBER pM = pthisActor- >m_tni . GetMember ( ) ; 
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if (IpM) 

return; 
piyi->HrCloseA(_T("Test") ) ; 
pM- >Release ( ) ; 

} 

} 
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// UC2Doc.h : interface of the CUC2Doc class 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNI CHAT INC 

// = ^^^^=^^ = ^^ = ^ = ^^^ = ^^^^^^ = ^^^ = ^^^=.=^ = == = ^ = ^^^ 



#if ! defined {AFX_UC2D0C_H ^A1313 86F_A610_11D1_8 0E2_0^8 0009B9F33 9 INCLUDED 

#def ine AFX_UC2DOC_H A13 13 86F_A610_11D1_8 0E2_08 0009R9F33 9 INCLUDED^ 

#if __MSC__VER >= 1000 
#pragma once 

#endif // _MSC_VER 1000 
^include "UC2.h" 

#include "UC2CS.h" // EC_CHANNELINFO , CUC2Socket, CUC2Channel 



class CStage; 
class CUC2View; 
class CEditSend; 
class CEditHistory ; 
class CActor; 
class CWebView; 



enum UC2MODE 
{ 

UC2M0DE_OFFLINE 
UC2MODE_DEMO 
UC2 MODE_ONL INE 

}; 



= 0x0000, 
= 0x0001, 
= 0x0002 



class CUC2DOC : public CDocument 

{ 

protected: // create from serialization only 
CUC2DOC ( ) ; 

DECLARE DYNCREATE (CUC2DOC) 



// Attributes 

public : 

CUC2View* 
CWebView* 
CStage* 
CActor* 



GetUC2View() ; 
GetWebViewO ; 

GetStageO { return m__pStage; } 

GetThisActor ( ) const ; 



BOOL 

BOOL 
WORD 
BOOL 
UC2MODE_DEMO) ; } 
BOOL 



GetPauseO const 

{ return { {CUC2App*) AfxGetApp { ) ) ->GetPause () 
IsSoundOnO const { return m_bSound; } 

GetUC2Mode() const { return m_wUC2Mode; 

IsDemoO const { return (m_wUC2Mode & 

IsHistoryPanel 0 const { return m__bHPanel; } 



CEditSend* GetEditSend ( ) const; 

// CEditHistory* GetEditHistory ( ) const; 

CEdit* GetEditHistory { ) const; 

void ClearHistory ( ) ; 
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void 
void 
void 
BOOL 



DisplayText (LPCTSTR IpszText) ; 
SendCommand (const int nCmd) ; 
SendMoveCommand (const int nCmd) ; 
WhisperTo (CActor* pA. LPCTSTR szText) ; 



// Chat Sock 
CUC2Socket* 
CUC2Channel* 
BOOL ^ 
BOOL 

\ 

BOOL 
BOOL 
BOOL 
BOOL 
BOOL 



GetSocket () 
GetChannel ( ) 
IsInChannel ( ) 
IsConnected ( ) 



{ return m_pSocket; } 
{ return m__pChannel; } 



Connect ( ) ; 
Disconnect ( ) ; 
ListChannels () ; 

JoinChannel (LPCTSTR s zChanne 1 Name = NULL) ; 
SetChannel(PICS_CHANNEL picsChannel) ; 



// Operations 
public : 

void 



} 



void 

void 

void 
long 
void 
void 



BeginAnimation ( ) const 

{ ( (CUC2App* ) Af xGetApp ( ) ) 



>SetStage (m__pStage) 



EndAnimation () const 

{ ( (CUC2App*) AfxGetApp 0 ) - >SetStage (NULL) ; } 
PauseAnimation (const BOOL bPause) const 

{ ( (CUC2APP*) AfxGetApp 0 ) - >SetPause (bPause ) ; 
SetUC2Mode (const WORD wM) { m__wUC2Mode = wM; } 

Wait (const DWORD dwinterval); // for demo 
ToggleDemoO { OnViewDemo ( ) ; } // to expose 

EndDemo ( ) ; 



#ifdef 



MALL 



void 
void 
void 



#endif 



BOOL 
BOOL 



ShowMapDemo ( ) ; 
ShowIMDemo ( ) ; 
ShowTitanicDemo 0 ; 



SendText (LPCTSTR szText, const BOOL bWhisper= FALSE) 
SendData (LPCTSTR szText) ; 



void PlayWaveFile (LPCTSTR szFile) ; 

// ChatSock related methods 

CActor* GetActor {PICS__MEMBER pMem) 

// ChatSock messages 

LRESULT OnCsAddChannel (WPARAM, LPARAM) ; 
LRESULT OnCsPrivateMsg (WPARAM, LPARAM); 
LRESULT OnCsQueryData (WPARAM, LPARAM); 
LRESULT One s Invite (WPARAM, LPARAM); 
LRESULT OnCsGotMemList (WPARAM, LPARAM); 
LRESULT OnCsAddMember (WPARAM, LPARAM); 
LRESULT OnCsDelMember (WPARAM, LPARAM); 
LRESULT OnCsDelChannel (WPARAM, LPARAM); 
LRESULT OnCsModeMember (WPARAM, LPARAM); 
LRESULT OnCsModeChannel (WPARAM, LPARAM); 
LRESULT OnCsTextA (WPARAM, LPARAM) ; 
LRESULT OnCsData (WPARAM, LPARAM); 



const ; 
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LRESULT OnCsWhisperText (WPARAM, LPARAM) ; 

LRESULT OnCsWhisperData (WPARAM, LPARAM); 

LRESULT OnCsNewTopic (WPARAM, LPARAM); 

LRESULT OnCsNewNick(WPARAM, LPARAM); 

LRESULT OnChannelFullRetry (WPARAM, LPARAM) ; 

//changed by Rao 

void LeaveChannel 0 ; 

void OnBtnCreate (} ; 



// CHANGE S_MADE_FOR__UTSri CHAT_2 
BOOL m_bIsJoinChannelVisible; 
protected : 

void LoadStage (LPCTSTR szStagelD) ; 



void MakeMudChannellnfo (EC_CHANNELINFO£c eclnfo) ; 

BOOL CreateNewStage ( ) ; 

BOOL DownloadDataFiles 0 ; 



/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CUC2DOC) 
public : 

virtual BOOL OnNewDocument ( ) ; 
virtual void Serialize (CArchive& ar) ; 
virtual void SetTitle (LPCTSTR IpszTitle) ; 
virtual void DeleteContents ( ) ; 
// } }AFX_VIRTUAL 

// Implementation 
public : 

void QuitChannel ( ) ; 

virtual -CUC2Doc () ; 
#ifdef _DEBUG 

virtual void Assert Valid ( ) const; 

virtual void Dump (CDump Contexts: dc) const; 

#endif 

private : 

CString m_RealName; 

void MakeUnichatTitle (CString& Title); 
CStage* m_j)Stage; 
BOOL m_bSound ; 

BOOL m_bHPanel; // Is History panel 

WORD m_wUC2Mode; 
WORD m_wSavedState ; 

CString m_str]Srick; 

CString m_strStageName ; // to join the channel 

char m_SNSuf f ix [2] ; // StageName suffix 

// ChatSock API 

CUC2Socket* m_pSocket; 

CUC2Channel* m_pChannel; 



// Generated message map functions 
protected : 
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//{ {AFX_MSG (CUC2DOC) 
afx__Tnsg void OnViewPause ( ) ; 

afx_tnsg void OnUpdateViewPause (CCmdUI* pCmdUI ) ; 
afx_msg void OnViewDemo ( ) ; 

afx_msg void OnUpdateViewDemo {CCmdUI* pCmdUI) ; 

afx_msg void OnConnectSync ( ) / 

//} }AFX_MSG 

//void OnBtnCreate ( ) ; 

void OnUpdateBtnCreate (CCmdUI* pCmdUI) ; ^ 
void OnBtnRoom ( ) ; 

void OnUpdateBtnRoom (CCmdUI* pCmdUI) ; \ 
void OnBtnMember ( ) ; 

void OnUpdateBtnMember (CCmdUI* pCmdUI) ; 
void OnBtnSoundO ; 

void OnUpdateBtnSound (CCmdUI* pCmdUI) ; 
void OnBtnHistory ( ) ; 

void OnUpdateBtnHistory (CCmdUI* pCmdUI) ; 
void OnBtnQuit () ; 

void OnUpdateBtnQuit (CCmdUI* pCmdUI) ; 
DECLARE_MESSAGE_MAP ( ) 
private .- 

CString m^sRoomMainCategiory ; // Main Room Catigorey 
CString m_sRoomSubCategiory ; // Sub Room Catigory 

///////////////////////////////////////////////////////////////////////////// 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_UC2DOC_H ^A1313 8 6F_A610_11D1_8 0E2_08 0 0 09B9F3 3 9 INCLUDED ) 
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// CUC2History: History Panel for UniChat 2 
// 

= = = = = = == = = = === = ^==. === = ==. = =...== = 

// (C) Programmed by Kim, Soomin, Mar 18, 1996 

/ / Information Technology Institue 

// UNXCHAT.COM 

= = = = 

#include "stdafx.h" ^ 
#include "UC2.h" 

#include "UC2History . h" \ 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_PILE 

static char THIS_FILE [] = FILE ; 

#endif 

const CRect RECT__PANEL ( 0 , 0, 180, 372); 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 f I f f 1 1 f 1 1 1 1 // 1 / 1 1 n I / 1 // / 

// CUC2Hi Story 

CUC2History: : CUC2History ( ) 
{ 

m_blnitialized = FALSE; 

} 

CUC2History: : ~CUC2Hi story ( ) 

{ 

} 

BEGIN__MESSAGE_MAP (CUC2His tory , CDialogBar) 

// { {AFX_MSG_MAP (CUC2History) 

ON_WM_SIZE {) 

/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP { ) 

///////////////////////////////////////////////////////////////////////////// 
// CUC2History message handlers 

BOOL CUC2History: : Create (CWnd* pParentWnd, UINT nStyle) 
{ 

TRACEO ("CUC2History : : Create () \n") ; 

BOOL bRes = CDialogBar :: Create {pParentWnd, CG_IDD_HISTORYPANEL, 

nStyle, CG_JD_VIEW_HISTORYPANEL) ; 

// The DialogBar has been created, 
return bRes; 

} 

// Called by the parent after creation of CUC2History object and window 

BOOL CUC2History: :InitControls () 

{ 

CWnd* pW = GetDlgItem(IDC_EDIT_HISTORY) ; 

CRect rcEdit(4, 6, RECT_PANEL . Width ( ) - 4 , RECT_PANEL .Height () -4 ) ; 
pW->SetWindowPos (NULL, rcEdit.left, rcEdit.top, rcEdit . Width ( ) , 
rcEdit .Height 0 , 

SWP_N0ZORDER | SWP_NO ACTIVATE) ; 
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// Window has been created. . . 

// if { !m_eHistory . SubclassDlgltem ClDC_EDIT_HISTORY; thi 
// { 

// TRACEO ("m_EditHistory .SubclassDlgltem failed !\n 

// return FALSE; 

// } 

m_blnitialized = TRUE; 
return TRUE; 

} 

void CUC2History : :OnSize (UINT nType, int cx, int cy) 

{ 

CDialogBar :: OnSize (nType , cx, cy) ; 

SetWindowPos (NULL, RECT_PANEL . lef t , RECT_PANEL . top , 
RECT_PANEL. Width { ) , RE CT_ P ANE L . Height () , 
SWP_NOMOVE I SWP^NOZORDER | SWP_MOACTIVATE) ; 

} 
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//^==^^^^====^^=^=^ = = ^=^^^=^===^=^==^==^^= ==^^==^-^=== = = = = = =^- 

II (C) Programmed by Kim, Soomin, Mar 18, 1996 

// Information Technology Institue 
// UNICHAT INC 

#if 

t defined {AFX_UC2HIST0RY_H 4B176645_BE7 9_11D1_80E2_0 8 0 009B9F3 39 INCLUDED_) 

#define AFX_UC2HISTORY_H 4B176645_BE79_11D1_80E2__080009B9F33 9 INCLUDED_ ^ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// UC2History.h : header file 
// 

//#include "EditHistory . h" 

///////////////////////////////////////////////////////////////////////////// 
// CUC2Hi story window 

class CUC2History : public CDialogBar // CControlBar - CWnd 

{ 

// Construction 
public : 

CUC2History {) ; 

// Attributes 
public : 

// CEditHistory* GetEditHistory ( ) 



CEdi t * GetEditHistory ( ) 

// { return m_blnitialized ? &m_eHistory : NULL; } 

{ return m_blnitialized ? (CEdit* ) GetDlgltem { IDC_EDIT_HISTORY) 

NULL; } 



// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CUC2Hi story) 
/ / } } AFX_VIRTUAL 

// Implementation 
public: 

virtual -CUC2Hi story ( ) ; 

BOOL Create (CWnd* pParentWnd, UINT nStyle) ; 

BOOL InitControls () ; 

// Generated message map functions 
protected: 

// CEditHistory m_eHistory; 
// CEdit m_eHistory; 

BOOL m__blnitialized; 

//{ {AFX__MSG{CUC2History) 

afx_msg void OnSize (UINT nType, int cx, int cy) ; 
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//} }afx_msg 

DECLARE__MESSAGE_mP ( ) 

}; 

1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 11 1 1 1 1 1 1 1 1 1 f I / f 1 1 f 1 1 1 1 If I / 1 1 / ! / f I n / / / 1 / / / 1 1 1 1 / 

II { {afx__insert_locatiom} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. ^ 

#endif // \ 

! defined (AFX_UC2 HI STORY H 4B176645_BE79_11D1_80E2_080009B9F339 INCLUDED^) 
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// 
// 
// 
// 
// 
// 
// 



UniChat: UniChat 2 Messages Definition 

(C) Programmed by Kim, Soomin, Feb 199 8 
SDS Media Lab 

Information Technology Institue 
UNICHAT INC 



#if^def 
#def ine 



__UC2MESSAGES__H 
UC2MESSAGES H 



#include <csface.h> 

///////////////////////////////////////////////////////////////////////////// 
/////////////// 

// See resource. h 

// where #define _APS_NEXT_COMMAND_VALUE 32798 // 0x8000 

// this message should be in the range WM_USER (0x04 00) to Ox7fff 
#define BASE (WM_USER + 2 00) 



const UINT CS_CMD__START 

const UINT CSMSG_CMD_ERROR 

const UINT CSMSG_CMD_LOGIN 

const UINT CSMSG_CMD_TEXT_A 

const UINT CSMSG_CMD_TEXT_W 

const UINT CSMSG_CMD_DATA 

const UINT CSMSG_CMD_ADDCHANNEL 

const UINT CSMSG_CMD_ADDMEMBER 

CSMSG_TYPE_ADDMEMBER ; 

const UINT CSMSG_CMD_GOTMEMLIST 

const UINT CSMSG_CMD_DELMEMBER 

CSMSG_TYPE_DELMEMBER ; 

const UINT CSMSG__CMD_DELCHANNEL 

const UINT CSMSG_CMD_MODEMEMBER 

const UINT CSMSG_CMD_MODECHANNEL 

const UINT CSMSG_CMD_WHISPERTEXT_A 

const UINT CSMSG_CMD_WHISPERTEXT_W 

const UINT CSMSG_CMD_WHISPERDATA 

const UINT CSMSG_CMD_NEWTOPIC 

const UINT CSMSG_CMD_PROPERTYDATA 

const UINT CSMSG__CMD_QUERYDATA 

CSMSG_TYPE_QUERYDATA / 

const UINT CSMSG_CMD_PRIVATEMSG 

const UINT CSMSG_CMD_NEWNICK 

const UINT CSMSG_CMD_INVITE 

const UINT CSMSG_CMD_SERVERMSG_TEXT_A 

CSMSG__TYPE_SERVERMSG_TEXT_A; 

const UINT CSMSG_CMD_SERVERMSG_TEXT_W 

CSMSG_TYPE_SERVERMSG_TEXT_W ; 

#undef BASE 



= BASE; 

= BASE + CSMSG_TYPE_ERROR; 

= BASE CSMSG_TYPE_LOGIN; 
BASE + CSMSG_TYPE__TEXT_A; 
BASE + CSMSG_TYPE_TEXT_W; 

= BASE + CSMSG_TYPE_DATA; 
BASE + CSMSG_TYPE_ADDCHANNEL; 

= BASE -f 

BASE + CSMSG_TYPE_GOTMEMLIST; 
= BASE + 

BASE + CSMSG__TYPE_DELCHANNEL; 
BASE + CSMSG_TYPE_MODEMEMBER; 
BASE + CSMSG_TYPE__MODECHANNEL; 
BASE + CSMSG_TYPE_WHISPERTEXT__A; 
BASE + CSMSG_TYPE_WHISPERTEXT_W; 
BASE + CSMSG_TYPE_WHISPERpATA; 

= BASE + CSMSG_TYPE_NEWTOPIC; 
BASE + CSMSG_TYPE_PROPERTYDATA; 

= BASE + 



BASE 
BASE 
BASE 
BASE 



CSMSG_TYPE_PRIVATEMSG ; 
CSMSG_TYPE_NEWNICK; 
CSMSG TYPE INVITE; 



= BASE + 



#define BASE 
const UINT 
const UINT 
const UINT 
const UINT 



(CSMSG CMD_SERVERMSG_TEXT_W + 10) 



CMD_CONNECT_CONNECTING 
CMD_CONNECT_LOGIN 
CMD_CONNECT_BACKUPID 
CMD CONNECT FAILURE 



= BASE; 

^ BASE + 1; 

= BASE + 2; 

= BASE 



const UINT CMD QUERY ERROR 



BASE 



10; 
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const UINT CMD__QUERY_NOMATCHES 

const UINT CMD_QUERY_CHANNELS 

const UINT CMD_QUERY_CHANNELS_END 

const UINT CMD_QUERY_MEMBERS 

const UINT CMD__QUERY_MEMBERS_END 

const UINT CMD_QUERY_GET_REALNAME 

const UINT CMD_CHANNEIjFULL_RETRY 

const UINT CS_CMD_END 
#undef BASE 



- BASE + 11; 

= BASE + 12; 
BASE + 13 
BASE + 14 
BASE + 15 
BASE +16 

BASE +17; // Retry 

= CMD_QUERY_GET_REALNAME ; 



const char ARG__TOKEN // token for parsing 

// Parameter passed to ClientSockThread telling it which directive 
// to send and to whom (either DAS or other client) . 
enum CLIENT_DIR 
{ 

REQ_INVITE^1, 
GET__HOMEFILE, 

}; 

enum CALLSOCK__CMD // if you change this change the definitions in DAS as 

well . 

{ 

GET_FILE=1, 
QRY_DB , 
CHK_VERSION, 
REG__ONLINE, 
REG_OFFLINE, 

AUTH_ALIAS , 
NEW_ALIAS, 
FIND_AIjIAS , 
F IND_B Y_F I E LD , 
QRY_USERINF0 , 

qry__useraddress , 
qry_userprofile , 
qry_isonline, 

UPD_MYINF0, 

upd__useraddress , 
upd_userprofile , 

REG_INFO , 

}; 



enum DAS_RETCODE // if you change this change the definitions in DAS as 
well - 

{ 

ALIAS_DENY = -1, 
ALIAS UNKNOWN = 0, 
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ALIAS_OK, 
ALIAS_NEW, 
ALIAS^APPROVE, 
ALIAS_TAKEN, 

INFO_OK, 
INFO_NO, 

UPD_OK, ^ 
UPD NO, 

\ 

ONLINE_ACK, 

NEG_ACK, 

NO_RESP 

}; 



enum ACTOR_COMMANDS 

{ // Command Enumerators 

CMD_BEGIN = 0, 

// Management 

CMD_MEiyiBER_INFO ; // 
X"nCmd'~nVersion'^nCharID''nBubbleKind*'strHandle"strRealName"strProf ile^ptTID^wS 

tate 

CMD MEMBER_ACTOR, // X^nCmd^nCharlD^nBubbleKind (changed his Actor) 



CMD_NEWS , 

/ / Position Move 

CMD_MOVE , 

CMD_MOVEF , 
CMD_MOVEB , 
CMD_RES_MOVE, 

// State Change 

CMD_STATE , 

CMD^STAND, 

CMD_MORPH, 

CMD_DOZE, 

CMD_TURNL, 

CMD_TURNR, 

CMD_RES_STATE , 

// Actions 

CMD_ACTION, 

synchroni z at ion ) 
CMD_CHAT, 
CMD_ENTER, 
CMD_EXIT, 
CMD_SMILE, 
CMD_MAD, 
CMD_HELLO , 
CMD_CRY, 
CMD_S CRATCH, 
CMD_PICK, 
CMD_SPECIAL, 
CMD_PXJNCH, 
CMD_BEATEN, 
CMD_RES_ACTION , 
CMD_END 

}; 



// X'nCmd" mess age 



// X^nCmd^ptTID'-wState 



// State 



// reserved 

// CMD_ACTION is for Just repositioning message 
// Y"nCmd"^ptTID"wState" (to verify 



// Y'^nCmd'-ptTID^wState^NickTo^ 
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// BL [BR] 

// c 
// [FR] FL 

enum ACTOR_STATES 

^ // for directions, use DIRECTION_ATTRIBUTES in TileMap.h 

AS_STAND = 0x0100, 

AS_MORPH^ = 0x02 00, 
AS_DOZE \ = 0x04 00, 

AS_MASK \ = OxOFOO // States Mask 

}; 

enum DIRECTION_ATTRIBUTES 

DA_FR = 0x0 001, // Forward Right 

DA_FL = 0x0 0 02, 

DA_BR - 0x0004, // Backward 

DA_BLi = 0x0 0 0 8, 

DA_OPEN = OxOOOF, // open tile 

DA_CLOSED = 0x0000, // closed tile (can't go any direction) 
DA_MASK = 0x0 OFF, 

DA_FORWARD = DA_FR | DA_FL, 
DA__RIGHT = DA_FR | DA_BR 

}; 

const char UC2_SIGN_CHAR = 'Y'; // 'X' for UniChat 1.1 

const char UC2TOKEN = // token for parsing 

// 2.00 Beta2, 2.03 Beta3 , 2.11 (Aug 1, 1998)... 
#ifdef _MALL 

const int CLIENT_VERSION = 22 0; 
#else 

const int CLIENT_VERSION = 221; // 211 was the last version for UNITEL 

#endif 



const int MAX_MEMBERS_IN_CHANNEL = 15; 

#define UC2PASSWORD __T ( " soomin" ) 

#define UC2MUD_T0PIC _T( "UniChat MUD"); 

#endif // ^UC2MESSAGES__H 

///////////////////////////////////////////////////////////////////////////// 
// 

//On ADDCHANNEL 

// - Broadcast (HrSendData) CMD_MEMBER_INFO in the channel 
// 

// or 
// 

//On ADDMEMBER 
// if (me) 

// HrSendData (CMD_MEMBER_INFO) to this channel 

// else 

// ' HrSendPrivMsg (CMD_MEMBER_INFO) to the member 

// 
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// 

// CUC2Panel: Control Panel for UniChat 2 
// 

// (C) Programmed by Kim, Soomin, Feb 27, 1996 

// SDS Media Lab 

// Information Technology Institue 

// UNICHAT NETWORKS INC 

// 

// UC2Panel.cpp : implementation file 

// On ToolTip support: 

// MFC42.dll 97-08-23 or MFC42d.dll (debug) 97-01-03 

// Later versions have the bug that do not display tooltips 

// for control bars in MainFrame . 

#include "stdafx.h" 

#include "UC2.h" 

#include "UC2Panel.h" 

#include "MainFrm.h" 

#include "ResMan.h" 

#include "UC2Ani/DIB . h" 
#include "UC2Ani/DIBPal .h" 

#ifdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

extern CResMan gResMan; 

const CRect RECT_EDIT ( 16 , 15, 376, 38); 
#ifdef _MALL 

LPCTSTR BMP_PANEL_BACK = "MPanelBk . bmp " / 
LPCTSTR FMT_BMP_BTN__CP = " % sMBtnCP%d . bmp " ; 
#else 

LPCTSTR BMP_PANEL_BACK = "U2 Panel | Pane iBk . bmp " ; 
LPCTSTR F]yiT_BiyiP_BTN_CP = " %sU2 Panel | BtnCP%d . bmp " ; 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// CUC2 Panel 

CUC2Panel : : CUC2Panel ( ) 
{ 

TRACE ("CUC2 Panel : :CUC2 Panel 0 \n" ) ; 
m_blnitialized = FALSE ; 
m_pDIB = NULL; 

}. 

CUC2Panel : : -'CUC2Panel ( ) 
{ 

TRACE ("CUC2 Panel : : ~CUC2Panel () \n") ; 
if (m_pDIB) 

delete m_jpDIB; 

} 
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BEGIN_MESSAGE_MAP (CUC2Panel , CDialogBar) 
//{ {AFX_MSG_MAP CCUC2 Panel) 
ON_WM_SETFOCUS ( ) 
ON__WM__QUERYNEWPALETTE ( ) 
ON_WM_PALETTECHANGED ( ) 
OH_WM_SIZE {) 
GN__WM_MOVE ( ) 

ON_WM_ERASEBKGND { ) ^ 
/ / } } AFX_MSG_MAP 

// ON_NOTIFY(TTN_NEEDTEXT, 0, OnToolTipNot if y ) \ 

END_MESSAGE__MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

BOOL CUC2Panel :: Create (CWnd* pParentWnd, UINT nStyle) 
{ 

TRACED { "CUC2 Panel : : Create ( ) \n") ; 

BOOL bRes = CDialogBar :: Create (pParentWnd, CG_IDD_CONTROLPANEL , 

nStyle, CG_ID_VIEW_COKrTROLPANEL) ; 

// The DialogBar has been created, 
return bRes; 

} 

CPalette* CUC2Panel: : GetPalette ( ) 
{ 

return ( (CMainFrame*) AfxGetMainWnd 0 ) ->GetPalette () ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 / 1 1 1 / 1 1 1 11 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 n / 1 II 1 1 1 1 II 1 1 1 1 1 

II CUC2Panel message handlers 



void CUC2Panel : :OnSetFocus (CWnd* pOldWnd) 
{ 

CDialogBar: rOnSetFocus (pOldWnd) ; 
m_eSend . SetFocus ( ) ; 

} 

void CUC2Panel : :OnPaletteChanged (CWnd* pFocusWnd) 

{ 

if (ImjpDIB) 
, return; 

// TRACE {"CPXControlPanel : : OnPaletteChanged\n" ) ; 
if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

BOOL CUC2Panel: : OnQueryNewPale t te ( ) 
{ 

if (!m_pDIB) 

return FALSE; 

// TRACE ( "CPXControlPanel : : OnQueryNewPalette\n" ) ; 
CPalette* pPal = GetPalette () ; 
if (pPal) 
{ 
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CDC* pdc = GetDC () ; 

CPalette* pPalOld = pdc - >SelectPalett:e (pPal , TRUE) ; 
UINT u = pdc->RealizePalette 0 ; 
if (pPalOld) 

pdc->SelectPalette (pPalOld, FALSE) ; 
ReleaseDC (pdc) 
// if (u) 

/ / { // Some colors changed so we need to do a repaint . 

Invalida^^^te () ; // Repaint the lot. 

return TRUE; // Say we did something. 

// } \ 

} 

return FALSE; // Say we did nothing. 

} 

// Called by the parent after creation of CUC2Panel object and window 
// Load images and initializes controls 
BOOL CUC2Panel : : InitControls ( } 
{ 

TRACE ("CUC2Panel : : InitControls () \n") ; 

CString strPath ( *gResMan . GetResPath { ) ) ; 

CString strBtnBmp; 

for (int i=0; i < 6; i++) 

{ // Two States (Normal, Selected) 

s trBtnBmp. Format (FMT__BMP__BTN_CP, strPath, i) ; 

if ( !m_aButton [i] . Load (strBtnBmp , 2)) 

{ 

StrBtnBmp += " not f ound 1 " ; 
AfxMessageBox( StrBtnBmp) ; 
return FALSE; 

} 

gResMan.LoadMasterPalette (m_aButton [i] .GetDIBO) ; 
m_aButton [i] . SetPalette (GetPalette () ) ; 

} 

if (m_jpDIB) 

delete m_jpDIB; 
strPath += BMP_PANEL_BACK; 
// TRACE ("%s\n" , strPath); 

m_pDIB = new CDIB; 
if ( !m_j)DIB->Load (strPath) ) 

{ 

delete m_pDIB; - 

m_J)DXB = NULL; 

StrPath + " not found! " ; 

AfxMessageBox (strPath) ; 

return FALSE; 

} 

gResMan.LoadMasterPalette (m_jpDIB) ; 

SetWindowPos (NULL, 0, 0, m_j)DIB- >GetWidth ( ) , m_pDIB->GetHeight () 
SWP_NOMOVE I SWP_NOZORDER | SWP_NO ACTIVATE) ; 

CWnd* pW = GetDlgItem(IDC_EDIT_SEND) ; 

pW->SetWindowPos (NULL, RECT_EDIT . lef t , RECT_EDIT . top , 

RECT_EDIT . Width ( ) , RECT_EDIT . Height ( ) , 
SWP_NOZORDER | SWP_NOACTIVATE ) ; 

// Window has been created. . . 
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if ( !m_eSend.SubclassDlgItem(IDC_EDIT_SEND, this) ) 

TRACED ("m_eSend.SubclassDlgItem failed I \n") ; 
return FALSE; 

} 

// Subclass 6 buttons 
#ifdef _MALL 

CPoint ptLT(383, 6); 
int w = 42; 

#else 

CPoint ptLT(390, 11); 
int w = 30+11; 

#endif 

for (i=0; i < 6; i++) 

^ if ( !m_aButton[i] .SubclassDlgItem(IDC_BTN_CREATE + i, thi 

TRACE ( "m_aButton [%d] . SubclassDlgltem failed!\n", i) 
return FALSE; 

} 

m_aButton[i] . MoveResize (ptLT) ; 
ptLT.x += w; 

} 

// EnableToolTips ( ) ; 

m_blnitialized = TRUE; 
return TRUE; 

} 

void CUC2Panel : lOnSize (UINT nType, int cx, int cy) 

TRACE ( "CUC2Panel : lOnSize (%d, %d) \n" , cx, cy) ; 
CDialogBar: : OnSize (nType , cx, cy) ; 

SetWindowPos (NULL, 0, 0, 636, 49-1, SWP_NOMOVE | SWP__NOZORDER | 
SWP_NOACTIVATE) ; 
} 

void CUC2Panel : :OnMove (int x, int y) 

TRACE ( "CUC2Panel : :OnMove (%d, %d) \n" , x, y) ; 
CDialogBar: :OnMove(x, y) ; 

} 

BOOL CUC2Panel : lOnEraseBkgnd (CDC* pDC) 
{ 

CDialogBar: : OnEraseBkgnd (pDC) ; 

// Make sure we have what we need to do a paint, 
if (!m_pDIB) 

TRACE ("CUC2 Panel : lOnPaint 0 - No DIB.\n"); 
return FALSE; 

} 

// If we have a palette, select and realize it. 
CPalette* pPalOld = NULL; 
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CPalette* pPal = GetPalette ( ) ; 
if (pPal) 

pPalOld = pDC->SelectPalette (pPal, FALSE); // 
bForceBackground = FALSE 

pDC->RealizePalette 0 ; // we realize in response to 

WM_QUERYNEWPALETTE 
} 

mj)DIB->Draw (pDC, 0, 0); 

// Select old palette if we altered it. 
if (pPalOld) 

pDC->SelectPalette CpPalOld, FALSE) ; 

return TRUE; 

} 

int CUC2Panel : :OnToolHitTest {CPoint point, TOOLINFO* pTI) const 

CRect rc(390, 11, 390+30, 11+30); 

if (rc . PtInRect (point) ) 

{ 

ASSERT (pTI) ; 

pTI->hwnd = m_hWnd; 

pTI->rect - rc; 

pTI->uId = IDC_BTN_CREATE ; 

pTI->lpszText = LPSTR__TEXTCALLBACK; 

return 1 ; 

leturn CDialogBar :: OnToolHitTest (point , pTI); 

} 

void CUC2Panel: :OnToolTipNotify (UINT id, NMHDR* pNMH, LRESULT* pRe 

^ TOOLTIPTEXT* pTTT = (TOOLTIPTEXT* ) pNMH ; 

UINT nID = pNMH->idFrom; 
if (pTTT->uFlags & TTF_IDISHWND) 

^ nID = : :GetDlgCtrlID ( (HWND)nlD) ; 

ASSERT (nID) ; 

} 

pTTT->lpszText = MAKEINTRESOURCE (nID) ; 
pTTT->hinst = Af xGetResourceHandle ( ) ; 

} 
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// (C) Programmed by Kim, KYIXNAM, Feb, 1998 

// Information Technology Institue 
// tnSTICHAT INC 

= . = = = . ^=. = = = = = = = = = = = = = = = = = = =^ = = = = = = == = = - = = = = = = = -- = " = = - = = = = = 

#if ! defined (AFX_UC2PANEL_H CB0995A1__AF81_11D1_80E2_080009B9F33 9 INCLUDED_) 

#define AFX_UC2PANEL_H CB0995A1_AF81_11D1__80E2_080009B9F33 9 INCLUDED_ 

#if _MSC_VER >= 1000 

#pragma once \ 
#endif // _MSC_VER >= 1000 
// UC2Panel.h : header file 
// 

#include "UC2Ani/PhSprite . h" 
#include •■UC2Ani/PSButton . h" 
#include "UC2Ani/DIB . h" 
#include "EditSend.h" 

///////////////////////////////////////////////////////////////////////////// 
// CUC2 Panel window 

class CUC2Panel : public CDialogBar // CControlBar - CWnd 
{ 

// Construction 
public : 

CUC2Panel 0 ; 



// Attributes 
public : 

// Operations 
public : 

BOOL Create (CWnd* pParentWnd, UINT nStyle) ; 

BOOL InitControls ( ) ; 

CEditSend* GetEdi tSend ( ) { return m_blnitialized ? &m_eSend : 

NULL; } 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX__VIRTUAL (CUC2 Panel) 
/ / } } AFX_VIRTUAL 



// Implementation 
public : 

virtual '-CUC2Panel () ; 



protected : 

CPalette* GetPaletteO ; 



CDIB* m_pDIB; 

CPSButton m_aButton[6] ; // CButton derived 

CEditSend m_eSend; // CEdit derived 

BOOL m_blnitialized; 
// Generated message map functions 
protected: 

// { {AFX_MSG(CUC2Panel) 
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afx_msg void OnSetFocus (CWnd* pOldWnd) ; 

afx_msg BOOL OnQueryNewPalette ( ) ; 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 

afx_msg void OnSize (UINT nType, int cx, int cy) ; 

afx_msg void OnMove(int x, int y) ; 

afx_msg BOOL OnEraseBkgnd (CDC* pDC) ; 

//} }AFX_MSG 

// int OnToolHitTest (CPoint point, TOOLINFO* pTI) const; 

/y void OnToolTipNotify (UINT id, NMHDR* pNMH, LRESULT* pResult) ; 

DECLARE MESSAGE MAP ( ) 

};\ 

///////////////////////////////////////////////////////////////////////////// 

/ / { { AFX_INSERT_LOCATION } } . 

// Microsoft Developer Studio will insert additional declarations immediately 

before the previous line. 



#endif // 

I defined (AFX_UC2PANEL_H CB0 995A1„AF81__11D1_80E2_0 8 000 9B9F3 3 9 INCLUDED_) 
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// UC2View.cpp : implementation of the CUC2View class 
// 

//^^^ = = = = = = ^^^ = ^..===== = =.^ = ^ = . = = = = = = = = = = = = = = = = = ===== = = -=^ = = = - = - 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

//^^^^^ = = = = = ^ = ^^^^ = ^^ = = = =.. = . = = = = = = = = =. = = ^=. = = = = = = - = = = = = = = = = = = - 

#include "stdafx.h" 
#include <afxmt.h> 

#include "UC2.h" 

#include "UC2Doc.h" 
#include "UC2View.h" 
#include "MainFrm . h" 
#include "ResMan.h" 
#include "Stage -h" 
#include "TileMap .h" 
#include "Actor. h" 
#include "UC2Ani/DIB . h" 
#include "UC2Ani/PhSprite . h" 
#include "UC2 Ani / Sound . h " 
#include "UC2Ani/MCIObj .h" 
#include "EditSend . h" 
#include "Parser. h" 
#include "UC2CS.h" 
#include "WhisperDlg . h" 
#include " PPMemberInf ol . h" 
#include "PSFrame.h" 

//#include <hlink.h> // "urlmon.h" HlinkSimpleMavigateToString 

#include " InputlntDlg . h" 

#ifdef _MALL 

#include "DlgPDA.h" 

#endif 

# i no lude " h t tpUt i 1 i ty . h " 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS^FIIiE 

static char THIS_FILE [] = FILE ; 

#endif 

extern CResMan gResMan; 
extern CParser gParser; 

const int ACTOR_AREA_PIXEL=5 0 ; // cursor display 

const DWORD TIMER_MSPT=1000L; 
const DWORD PUNCH_MSPT=15*1000; 

///////////////////////////////////////////////////////////////////////////// 
// CUC2View 

IMPLEMENT_DYNCREATE (CUC2View, COSBView) 

BEGIN_MESSAGE_MAP (CUC2View, COSBView) 
// { {AFX_MSG_MAP (CUC2View) 
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ON_WM_IiBUTTONDOWN ( ) 
ON_WM_LBUTTONDBLCLK ( ) 
ON_WM_MOUSEMOVE ( ) 
ON__WM_RBUTTONDOWN ( ) 

ON^COMMAND ( ID_VIEW_AD JUST_WINDOW , OnViewAd j us tWindow) 
ON~WM_SETFOGUS () 
ON_WM_KEYDOWN ( ) 

ON_COMMAND ( ID_ACTOR_VOICE , OnActorVoice ) 
ON_WM_DESTROY ( ) ^ 
ON_WM_TIMER ( ) 

ON_C0MMAND (ID_IGNORE, Onlgnore) \ 
ON__C0MMAND ( ID_KICKOUT , OnKickout ) 
ON_COMMAND ( ID_MAKEHOST , OnMakehos t ) 
ON_COMMAND (ID_WHISPER, OnWhisper) 

ON UPDATE COMMAND_UI (ID_VIEW_ADiJUST_WINDOW, OnUpdateViewAd j ustWindow) 

ON~COMMAND { ID_ACTOR_HYPERIiINK , OnActorHyper link) 

ON COMMAND ( ID_VIEW__BUBBLE_TEXTIiIMIT , OnViewBubbleText limit ) 

ON~COMMAND ( ID_VIEW_BUBBLE_TIME , OnViewBubbleTime ) 

/ / J } AFX_MSG__MAP 

ON_COMMAND ( ID_ACTOR_PROP , OnPropert ies) 

ON_C0MMAND_RANGE ( ID_ACTOR_ACTION_0 , ID_ACTOR_ACTION_9 , OnActorAct ion) 
ON_COMMAND_RANGE { ID_ACTOR_STATE_0 , ID_ACTOR_STATE__2 , OnAc torState ) 
ON_COMMAND_RANGE ( ID_ACTOR_M0VE_F , ID_ACTOR_MOVE_B , OnAc torMove ) 
ON^COMMAND_RANGE ( ID_ACTOR_TURN_L , ID_ACTOR_TURN_R , OnActorTurn) 
// Standard printing commands 

ON_COMMAND (ID_FILE_PRINT, CView: :OnFilePrint) 

ON_COMMAND (ID_FILE_PRINT_DIRECT , CView: : OnFilePr int ) 

ON COMMAND (ID_FILE_PRINT__PREVIEW, CView: : OnFilePr intPreview) 

// ON~NOTIFY (TTN_NEEDTEXT, 0, OnToolTipNotif y ) 

END MESSAGE MAP { ) 



/* MALL 

ON_COMMAND ( ID__VIEW__PDA, OnViewPda) 
ON_COMMAND { ID_VIEW_IM, OnViewIm) 
ON_COMMAND (ID_VIEW_TITANIC, OnViewTitanic ) 
ON_COMMAND ( ID_VIEW_MAP , OnViewMap) 
ON_COMMAND (ID_VIEW_PDA_MUSIC, OnViewPdaMusic ) 

7////////////////////////////////// //////// ff/f////f////'///^^'////^//^f^//^^ 

II CUC2View construction/destruction 



CUC2View: :CUC2View() 

TRACED ( " CUC2 View : : CUC2 View ( ) \n " ) ; 
m_bFirstDraw = TRUE; 

m_pActor = NULL; 

m_uTimer = 0 ; 

// for Stage 

m_dwChannelStartTick = OL; 
m_dwSoundAlarmTick = OL; 

m_dwLastHitTick = OL; 

m_bVoiceCap - FALSE; 

m__pPropFrame = NULL; 



CUC2View : : ~CUC2View ( ) 

{ 
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TRACEO ("CUC2View: : ~CUC2View ( ) \n" ) ; 

} 

BOOL CUC2View: :PreCreateWindow(CREATESTRUCT& cs) 
TRACEO (" cue 2 View: : PreCreateWindow { ) \n" ) ; 

// TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT CS 

return \COSBView: : PreCreateWindow (cs ) ; 

} \ 

II CUC2View drawing 

void CUC2View: :OnDraw(CDC* pDC) 

// CUC2DOC* pDoc = GetDocument 0 ; 

/ / ASSERT_VALID (pDoc) ; 

if (m bFirstDraw) // This is the moment when the user can apparently 
see this window. 

TRACEO ("CUC2 View: :OnDraw() - First call\n"); 
m_bFirstDraw = FALSE; 

CEditSend* pES = GetDocument ()- >GetEditSend () ; 
if (pES) 

pES->SetFocus () ; 
/ / CSplashWnd : : HideSplashScreen ( ) ; 

// : :PostMessage(AfxGetMainWnd() - >GetSaf eHwnd ( ) , WM_COMMAND, 

(WPARAM) IDC_BTN_CREATE, (LPARAM) 0) ; 
#ifdef _MALL 

GetDocument { ) - >ToggleDemo ( ) ; 

#endif 

} 

COSBView: :OnDraw(pDC) ; 

} 

void CUC2View: lOnlnitialUpdate {) 

TRACEO ( "CUC2 View: : Onlnit ialUpdate () \n" ) ; 
COSBView: : Onlnit ialUpdate {) ; 

CMainFrame* pMF = (CMainFrame* ) GetParent Frame () ; 

TRACE ("\nl") ; 

ASSERT (pMF) ; 

TRACE {"\n2") ; 

CDIB* pDIB ^ GetOSBO; 

TRACEC»\n2") ; 

ASSERT (pDIB) ; 
TRACE ("\n3") ; 

pMF->AdjustFrame (pDIB->GetWidth 0 , pDIB- >GetHeight ( ) ) ; 
TRACE ("\n4»') ; 
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pMF->InitControlPanel ( (CPalette* ) GetOSBPalette ( ) ) ; 
TRACE ("\n5") ; 

m_dwStageMSPT = ( (CUC2App* ) Af xGetApp ( ) ) - >RegGetStageSec ( ) ; 
m_dwStageMSPT 1000; 

TRACE ("m__dwStageMSPT = %ld\n'\ m_dwStageMSPT) ; 

m_uTimer = SetTimer (4001 , TIMER_MSPT, NULL); // 1 sec. term 

TRACE ("\n6") ; 

if ( lm_uTimer) 
{ 

Af xMessageBox (IDS_ERROR_TIMER) ; 

} 

: -.SendMessage (Af xGetMainWnd ( ) - >GetSaf eHwnd ( ) , WM_COMMAND, 
(WPARAM) IDC_BTN_CREATE , (LPARAM) 0) ; 
// EnableToolTips ( ) ; 

} 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiifiiiiiiiiiiiiiiiiiiiiiiii'iiiiiii" 

II CUC2View printing 

BOOL CUC2View: rOnPreparePrinting (CPrintInf o* pinfo) 

{ 

// default preparation 

return DoPreparePrinting (pinf o) ; 

} 

void CUC2View: :OnBeginPrinting(CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 

{ . . 

// TODO: add extra initialization before printing 

} 

void CUC2View: lOnEndPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
{ 

// TODO: add cleanup after printing 

} 

iiiiiiiiiiiiiiiiiiiii/iniiiiiiiiiiiiiiiii/iiiii/iiiiiuiiiiiimiiiiiiiiiiii 

II CUC2View diagnostics 
#ifdef _DEBUG 

void CUC2View: :AssertValid () const 

{ 

COSBView: :AssertValid() ; 

} 

void CUC2View: :Dump (CDumpContextSc dc) const 

{ 

COSBView: :Dump(dc) ; 

} 

CUC2DOC* CUC2View: :GetDocument 0 // non-debug version is inline 

^ ASSERT (m_pDocument->IsKindOf (RXINTIME_CLASS (CUC2Doc) ) ) ; 

return (CUC2Doc* ) m_jpDocument ; 

} 
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#endif //_DEBUG 

///////////////////////////////////////////////////////////// f////f///ff f//// 
II CUC2View message handlers 

lllllllll/lllllll/lll//lll///////////f /////// /////////////////////////////// 
1 1 Frame 

// Adjust the frame window to be fit to this OSB ^ 
void CUC2View: : AdjustFrameWindow ( ) 

{ \ 

CMainFrame* pMF = (CMainFrame* ) GetParentFrame ( ) ; 
ASSERT (pMF) ; 

if (GetDocument () - >IsHistoryPanel {) ) 

return ; 
CDIB* pDIB = GetOSBO; 
ASSERT (pDIB) ; 

pMF->AdjustFrame (pDIB->GetWidth() , pDIB- >GetHeight ( ) ) ; 

} 

//////////////////////////////////////////////////////////////////////////// 
// OSB: Off -Screen Buffered View 

// Create a new buffer and palette to match a new background DIB 
// virtual in COSBView 

BOOL CUC2View: rCreateOSB (CDIB* pDIB) 
{ 

// m_jpCS = NULL; 

// m_jpMS = NULL; 

// Create a new buffer and palette 
if { ! COSBView: : CreateOSB (pDIB) ) 
return FALSE; 

// Map the colors of the background DIB to 

// the identity palette we just created for the background 
pDIB->MapColorsToPalette ( (CPalette* ) GetOSBPalette {) ) ; 

// Resize the main frame window to fit the background image 
GetParentFrame () ->RecalcLayout () ; 

ResizeParentToFit (F7VLSE) ; // Try shrinking first 

ResizeParentToFit (TRUE) ; // Let's be daring 

RengierO; // Render the entire scene to the off-screen buffer 
// DrawOSBO; // Paint the off-screen buffer to the window 
Invalidate (FALSE) ; 

return TRUE; 

} 

// Render the scene to the off -screen buffer pClipRect defaults to NULL 
// virtual in COSBView 

void CUC2View: :Render (CRect* pClipRect) 
{ 

est age* pStage = GetDocument ()- >GetStage () ; 
if (pStage) 

pStage->Render (pClipRect ) ; 



A-580 



UC2View.cpp 
} 

void CUC2View: :NewStageLoaded ( ) 

^ m_dwChannelStartTick; = m_dwSoundAlarmTick = : : GetTickCount ( ) ; 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll" 

II User Interface 

void CUC2View: :OnLButton£)own(UINT nFlags , CPoint point) 
{ 

CClientDC dc{this); 

OnPrepareDC (&dc) ; // CScrollView changes the viewport origin and 
mapping mode . 

CPoint Ipt (point) ; 
dc -DPfcoLP (ficlpt) / 

CStage* pStage = GetDocument {)- >Get Stage () ; 
if ( IpStage) 
return; 

// CPhasedSprite* pPS = pStage- >AnimatedHitTest (Ipt ) ; 

// Assume that we have not CSprite, we have only CPhasedSprite and 
derived . . . 

CPhasedSprite* pPS = (CPhasedSprite* ) pStage- >SpriteHitTest (Ipt ) ; 
if (pPS ScSc pPS->HasHyperlink () 

(pPS->GetLinkTYpe () == CPhasedSprite :: HLINK_HTTP) ) 



{ 



: :SetCursor (AfxGetApp () - >LoadCursor ( IDC_HGREP__DOWN) ) ; 
int n = pPS->GetCellID() ; 

gParser .CopyBuf f er (*pPS->GetHyperlink 0 ) ; 
CString strHL; 

while (gParser.GetValueRightTokenC StrHL, '|') n--) 



if ( ! StrHL. IsEmptyO ) 

( (CMainFrame*) AfxGetMainWnd 0 ) -> She llBrowseURL ( strHL) ; 
return; 



} 



} 



CActor* pA = pStage - >GetThi sActor () ; 

if (pA) 

{ 

CRect rcA2 ; 
pA->GetRect (rcA2) ; 

rcA2 . Inf lateRect (ACTOR_AREA_PXXEL, ACTOR_AREA_PIXEL) ; 
if ( I rcA2 .PtInRect (Ipt) ) 

: iSetCursor (AfxGetApp 0 - >LoadStandardCursor ( IDC_ARROW) ) ; 
return; 

} 

CPoint ptA(pA->GetCenter 0 ) ; 
WORD wDA = pA->GetDA() ; 
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WORD wD ACu r s o r ; 
if (Ipt.y < ptA.y) 

{ 



// Backward 

// DA__BL 



if (Ipt-x < ptA.x) 

^ : iSetCursor (AfxGetApp () - >LoadCursor ( IDC_ARROW_IiT) ) 

wDACursor = DA_BL; 

} 

else // DA_BR 



{ 



: : SetCursor (AfxGetApp ( ) ->LoadCursor ( IDC_ARROW_RT) ) 
wDACursor = DA BR; 



} 

else // Forward 
{ 



// DA_FR 



if (Ipt.x < ptA.x) 

: : SetCursor (AfxGetApp {) - >LoadCursor ( IDC_ARROW_LB) ) 
wDACursor = DA_FR; 

} 

else // DA_FL 

: : SetCursor (AfxGetApp () - >LoadCursor (IDC_ARROW_RB) ) 
wDACursor = DA_FL ; 

} 



if (wDACursor == wDA) 

OnActorMove (XD_ACTOR_MOVE_F) ; 

else 

{ 

int nID; 

switch (wDACursor) 

{ 

case DA FR: nID = (wDA 



ID_ 


_ACTOR_ 


_TURM_ 




break; 












case DA_ 


_FL: 


ID_ 


_ACTOR_ 


_TURN_ 




break; 












case DA_ 


_BR: 


ID_ 


_ACTOR_ 


_TURN_ 




break; 












case DA_ 


_BL: 


ID_ 


_ACTOR_ 


_TURN_ 




break; 












default : 





nID 



DA_BL.) ? ID_ACTOR_TURN_L : 

(wDA == DA_FR) ? ID_ACTOR_TTJRN_L : 

(wDA DA_FL) ? ID_ACTOR_TURN_L : 

(wDA DA_BR) ? ID__ACTOR_TURN__L : 

ID ACTOR TXJRN__L; 



} 

OnActorTurn (nID) ; 



// 
} 



} 

else 

{ 
} 

COSBView: :OnLButtonDown (nFlags , point) ; 



: : SetCursor (AfxGetApp () - >LoadStandardCursor ( IDC_ARROW) ) ; 



void CUC2View: lOnLButtonDblClk (UINT nFlags, CPoint point) 
{ 
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CClientDC dc(this); 

OnPrepareDCC&dc) ; // CScrollView changes the viewport origin and 
mapping mode . 

CPoint Ipt (point) ; 
dc .DPtoLP (&lpt) ; 

/* 

CUC2DOC* pDoc = GetDocument { ) ; 
CStage* pStage = pDoc - >GetStage ( ) ; 
if ( ! pStage) 
return; 

// For Demo 

static int nChar==0; 

CActor* pActor = pStage - >CreateActor (nChar, Ipt, FALSE);// AS_STAND 
DA_FR, (nChar%4 == 0)); 

pActor->Act (CMD_STAKrD + nChar % 24); 
if (++nChar >= 18) 

nChar = 0; 
m_jpActor = pActor; 

RenderAndDrawDirtyList () ; 

// COSBView: :OnLButtonDblClk (nFlags, point) ; 

void CUC2View: rOnMouseMove (UINT nFlags, CPoint point) 

{ 

CClientDC dc(this); 

OnPrepareDC (&dc) ; // CScrollView changes the viewport origin and 
mapping mode. 

CPoint Ipt (point) ; 
dc .DPtoLP (&lpt) ; 

CStage* pStage = GetDocument ()- >GetStage () ; 
if (IpStage) 
return; 

// CPhasedSprite* pPS = pStage - >AnimatedHitTest (Ipt ) ; 

CPhasedSprite* pPS = (CPhasedSprite* ) pStage- >SpriteHitTest ( Ipt ) ; 
if (pPS && pPS->HasHyperlink() && 

(pPS->GetLinkType 0 CPhasedSprite :: HLINK HTTP) ) 

{ 

: :SetCursor (AfxGetApp () - >LoadCursor (IDC_HGREP_UP) ) ; 
return; 

} 

CActor* pA = pStage->GetThisActor () ; 

if (pA) 

{ 

CRect rcA; 
pA->GetRect (rcA) ; 
CRect rcA2 (rcA) ; 

rcA2 . Inf lateRect (ACTOR_AREA_PIXEL , ACTOR_AREA_PIXEL) ; 
if ( ircA2 .PtInRect (Ipt) || rcA . PtInRect ( Ipt ) ) 

: :SetCursor (AfxGetApp 0 - >LoadStandardCursor (IDC_ARROW) ) ; 
return; 

} 
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CPoint ptA(pA->GetCenter 0 ) ; 
if (Ipt.x < ptA.x) 

{ 

: :SetCursor (AfxGetApp ( ) ->LoadCursor ( (Ipt .y < ptA.y) ? 

IDC ARROW LT : IDC ARROW LB) ) ; 
} - - - - 

else 

{ 

: :SetCursor (AfxGetApp 0 ->LoadCursor( dpt. y < ptA.y) ? 

IDC_ARROW_RT : IDC_ARROW_RB) ) ; 

} 

else 
{ 

^ : : SetCursor {AfxGetApp ( ) - >LoadStandardCursor ( IDC_ARROW) ) ; 

// COSBView: : OnMouseMove (nFlags , point); 
} 

void CUC2View: lOnRButtonDovm (UINT nFlags, CPoint point) 
CClientDC dc{this); 

OnPrepareDC {&dc) ; // CScrollView changes the viewport origin and 
mapping mode . 

CPoint Ipt (point) ; 
dc.DPtoLP(&lpt) ; 

CUC2DOC* pDoc = GetDocument () ; 
CStage* pStage = pDoc- >GetStage { ) ; 
if (IpStage) 
return; 

CPhasedSprite* pPS = pStage- >AnimatedHitTest ( Ipt ) ; 
if (IpPS II (pPS->GetSrcType () != SPRITE^ACTOR) ) 
return; 

// ASSERT (pPS->IsKindOf (RU]SFTIME_CLASS (CActor) ) ) ; 

m_j)Actor = (CActor* ) pPS ; 

BOOL bThis ^ (m_pActor == pDoc - >GetThisActor () ) ; 
CMenu menu ; 

VERIFY (menu, LoadMenu (bThis ? IDR_MENU_ACTOR : IDR_MENU_ACTOR OTHER) ) 
CMenu* pPopup = menu . Get SubMenu ( 0 ) ; ~ 
ASSERT (pPopup) ; 

CString strVer; 

int nVer = m_pActor- >m_mi . Get Vers ion () ; 

strVer, Format (" V%d.%02d", nVer / 100, nVer % 100); 

CString str Inf o ( * (m_jpActor- >m_mi . GetNick ( ) ) + _T ( " ( " ) + * (m_pActor- 
>m_mi . GetRealName () ) + _T(")")); 

if (strinf o . GetLength {) > 30) 

{ 

strinf o . ReleaseBuffer (3 0 ) ; 

} 

strlnfo += strVer; 

if (m__pActor->IsMemberHost { ) ) 

strlnfo += "<HOST>"; 
pPopup - >Modi f yMenu ( ID_ACTOR_PROP , MF_BYCOMMAND | MF_STRING , 
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ID_ACTOR_PROP, strlnfo) ; 

if (HasVoiceCapO ) 

if (m_pActor- >IsVoice ( ) ) 

pPopup->CheckMenuItem (ID_ACTOR_VOICE, MF_CHECKED) ; 

Ise 

pPopup- >EnableMenuItem ( ID_ACTOR_VOICE , MF_GRAYED) ; 
f CbThis) 

switch (m_pActor->GetState ( ) & AS MASK) 

{ 

case AS_STAND: 

pPopup- >CheckMenuItem ( ID_ACTOR_STATE_0 , MF_CHECKED) ; 

break ; 

case AS_MORPH: 
{ 

p P opup - > Che c kMe nu 1 1 em ( I D_ACTOR_S TATE_ 1 , M F_CHE C KED ) ; 

for (int i=ID_ACTOR_ACTION_0; i < ID_ACTOR_ACTION_7 ; i++) 

^ pPopup- >EnableMenuItem ( ID_ACTOR_ACTION_0 , MF_GRAYED) 

break ; 
case AS__DOZE : 

pPopup->CheckMenuItem (ID_ACTOR_STATE_2 , MF_CHECKED) ; 

break; 

} 

} 

else 

{ 

if ( m_pAct or- >IsMeTnber Ignored {) ) 

pPopup- >CheckMenuItem (ID_IGlsrORE, MF_CHECKED) ; 

CUC2Channel* pChannel = pDoc - >GetChannel { ) ; 

if (pChannel ! pChannel - >FAmIHost () ) 

{ 

pPopup- >EnableMenuItem(ID_KICKOUT, MF_GRAYED) ; 
pPopup- >EnableMenuI tern {ID_MAKEHOST, MF_GRAYED) ; 

if (m_pActor->IsMemberHost ( ) ) 

pPopup->CheckMenuItem(ID_MAKEHOST, MF_CHECKED) ; 
pPopup- >EnableMenuItem ( ID_ACTOR_HYPERLINK, 

m _pActor->m_mi .HasHyperlinkO ? MF_CHECKED : 

MF_GRAYED) / 
} 

ClientToScreen (&point) ; 

pPopup- >TrackPopupMenu (TPM_LEFTALIGN | TPM_RIGHTBUTTON , point .x, 
point .y, this) ; 

// COSBView: : OnRButtonDown {nFlags , point) ; 
void CUC2View: : OnViewAdjustWindow ( ) 

{ 
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AdjustFrameWindow ( ) ; 

} 

void CUC2View: : OnUpdateViewAdjustWindow (CCmdUI* pCmdUI ) 
{ 

GetDocument ( ) - >IsHistoryPanel ( ) ; 

} 



void CUC2View: lOnSetFocus (CWnd* pOldWnd) 
{ 

COSBView: lOnSetFocus (pOldWnd) ; 

if (m__bFirstDraw) // not initialized yet 
return; 

CEditSend* pES = GetDocument ()- >GetEditSend () ; 
if (pES) 

pES->SetFocus () ; 

} 

/* 

int CUC2View: :OnToolHitTest (CPoint point, TOOLINFO* pTI) const 

CRect rc{0, 0, 300, 300); 
if (rc . PtInRect (point) ) 

{ 

ASSERT (pTI) ; 

pTI->hwnd ^ m_hWnd; 

pTI->rect = rc; 

pTI->uId = IDC_BTN_CREATE; 

pTI->lps2Text = LPSTR_TEXTCALLBACK; 

return 1; 

} 

return CView :: OnToolHitTest (point , pTI) ; 



void CUC2View: :OnToolTipNotify (UINT id, NMHDR* pNMH, LRESULT* pResult) 

TOOLTIPTEXT* pTTT = (TOOLTIPTEXT* ) pNMH ; 

UINT nID = pNMH->idFrom; 

if (pTTT->uFlags & TTF IDISHWND) 

{ 

nID = : :GetDlgCtrlID ( (HWND) nID) ; 
ASSERT (nID) ; 

} 

pTTT->lpszText = MAKEINTRESOURCE (nID) ; 
pTTT->hinst = AfxGetResourceHandle () ; 

} 



BOOL CUC2View: iPunchAvailableO const 
{ 

return ( ( : : GetTickCount () - m_dwLastHi tTick) >= PUNCH_MSPT) ; 



void CUC2View: lOnActorAct ion (UINT nID) 
{ 

CUC2DOC* pDoc = GetDocument 0 ; 

pDoc->SendCommand (CMD_SMILE + nID - ID_ACTOR_ACTION_0 ) ; 
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/*// For Demo 

if ( !mj)Actor) 
return; 

m_pActor->Act (CMD_SMILE + nID - ID_ACTOR_ACTION_0 ) ; 

*/ 
} 

void CUC2View: rOnActorState (UINT nID) 
{ 

CUC2DOC* pDoc = GetDocument ( ) ; 

pDoc->SendCommand {CMD_STAND + nID - ID_ACTOR_STATE_0 ) 
/*// For Demo ~ 
if ( ! m_pActor) 
return; 

m_jpActor- >Act (CMD_STAND + nID - ID_ACTOR_STATE_0) ; 

*/ 
} 

void CUC2View: zOnActorMove (UINT nID) 
{ 

CUC2DOC* pDoc = GetDocument () ; 
if (pDoc - >IsDemo ( ) ) 
return ; 

pDoc- >SendMove Command (CMD_MOVEF + nID - ID__ACTOR_MOVE 
/*// For Demo 

if ( !m_pActor) 
return; 

CStage* pStage = GetDocument ()- >GetStage () ; 
if ( IpStage) 
return ; 

pStage->ActorMove {m_pActor, nID == ID_ACTOR_MOVE F) ; 

*/ 

} 

void CUC2View: zOnActorTurn (UINT nID) 
{ 

CUC2DOC* pDoc = GetDocument 0 ; 

pDoc->SendCommand (CMD_TURNL + nID - ID_ACTOR_TURN__Ij) ; 
/*// For Demo 

if ( ! m_pActor) 
return; 

m_pActor->Act (CMD_TURNL + nID - ID_ACTOR_TURN_L) ; 

*/ 
} 

void CUC2View : rOnActorVoice ( ) 

{ 

if ( !m_pActor) 
return ; 

} 

void CUC2View: lOnDestroyO 

{ 

COSBView: :OnDestroy() ; 
if (m_uTimer) 

KillTimer (m_uTimer) ; 
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} 

void CUC2View: :OnTimer (UINT nIDEvent) 
{ 

CUC2DOC* pDoc = GetDocument ( ) ; 
CStage* pStage ^ pDoc - >GetStage { ) ; 
if (IpStage) 
return; 



DWORD dwCurTick = : : GetTickCount ( ) ; 
if (dwCurTick > m_dwSoundAlarmTick} 
{ 

if (pDoc- >IsSoundOn ( ) ) 

pStage->PlayBGM ( ) ; 



// 
} 



DWORD dwRand = (DWORD) (1*90*1000 + rand () % (3*60*1000)); 
m_dwSoundAlarmTick = dwCurTick + dwRand; 
TRACE ("Music play queued after %.2f min.\n", 

float (m_dwSoundAlarmTick - dwCurTick) /( 60*1000L) ) 

f ( !pStage->IsExitOpen() && 

(dwCurTick - m_dwChannelStartTick) > m__dwStageMSPT) 

pStage->SetExitOpen ( ) ; // Open passages to other channels 



f (pDoc->GetUC2Mode 0 & UC2iyiODE_DEMO) 
UC2Demo () ; 

COSBView: :OnTimer (nIDEvent) ; 



void CUC2View: :OnKeyDown (UINT nChar, UINT nRepCnt , UINT nFlags) 

/* CUC2DOC* pDoc = GetDocument 0 ; 
// if (pDoc->GetThisActor () == NULL) 

// return; 

// switch for input key 

switch (nChar) 

{ 



// 


case 


VK_ 


UP: 


pDoc- >SendCommand (CMD 


_MOVE_ 


_NORTH) ; 


break 


// 


case 


VK_ 


LEFT: 


pDoc - >SendCommand ( CMD 


_MOVE_ 


_WEST) ; 


break 


// 


case 


VK_ 


DOWN : 


pDoc- >SendCommand (CMD 


_move[ 


_SOUTH) ; 


break 


// 


case 


VK_ 


RIGHT: 


pDoc - >SendCommand ( CMD 


_move[ 


_EAST) ; 


break 


// 


case 


VK_ 


_FB : 


SetMode (0) ; 


break 










// 


case 


VK_ 


>6 : 


SetMode (1) ; 


break 










// 


case 


VK_ 


_F7 : 


SetMode (1) ; 


break 










// 


case 


VK_ 


_F8 : 


SetMode (2) ; 


break 










// 


case 


VK_ 


_F9 : 


SetMode (3) ; 


break, 










// 


case 


VK_ 


FIO : 


SetMode (4) ; 


break, 











} 



// Show current state in the status bar 
// CMainFrame* pFrame = (CMainFrame* ) (Af xGetApp ( ) - >m_pMainWnd) ; 
// ASSERT (pFrame) ; 

// pFrame- >m_wndStatusBar . SetWindowText (buf ) ; 
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*/ COSBView: :OnKeyDown (nChar , nRepCnt , nFlags); 



void CUC2View: :OnIgnore ( ) 

{ 

if ( !m_pActor) 
return; 

PICS_MEMBER pM = m_pActor- >m_mi . GetMember ( ) ; 
if (!pM) 

return; 

BOOL bignored = (pM- >HrIsMeTTiberIgnored ( ) == NOERROR) ; 
bignored = ! bignored; 

pM->HrSetIgnoreMember (bignored) ; // returns NOERROR i 

m_pActor->Act (bignored ? CMD_DOZE : CMD^STAND) ; 
// Get Document () ->WhisperTo (m_pActor, _T ( " ^ «^A AJ^AO ' I ' U . " ) ) 

pM->Release ( ) ; 

} 

void CUC2View: lOnKickout 0 

{ 

if ( lm_j5Actor) 
return; 

PICS_MEMBER pM = m_pActor- >m_mi . GetMember ( ) ; 
if (!pM) 

return; 
CWhisperDlg dig; 

dlg-m_strToXD = _T("To ") + *m__pActor- >m_mi . GetNick () ; 
if ( (dlg.DoModal 0 IDOK) && ! dig . m_strText . IsEmpty { ) ) 

int len = dig . m_strText . GetLength ( ) ; 
char* pSz = dig . m_strText . GetBuf f er (len) ; 
pM->HrCloseA (pSz) ; 

} 

pM- >Release ( ) ; 

} 

void CUC2View: :OnMakehost ( ) 

{ 

if (!m_pActor) 
return; 

PICS_MEMBER pM = m_pAc tor - >m_mi . Get Member () ; 
if (!pM) 

return; 
pM->HrMakeHost { ) ; 
pM->Release () ; 

} 

void CUC2View: rOnWhisper ( ) 

{ 

if ( !m_j)Actor) 

return; 
CWhisperDlg dig; 

dlg.m_strToID = *m_pActor- >m_mi . GetNick ( ) ; 

if ( (dlg.DoModal 0 == IDOK) && ! dig . m_strText . IsEmpty () ) 

GetDocument 0 - >WhisperTo (m_pActor , dig . m_strText ) ; 
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} 

void CUC2View: : OnProperties ( ) 

{ 

if ( ! m_pActor) 
return; 

if ( ! m_pPropFrame) 

{ 

m_pPropFrame = new CPSFrame; 
CRect rect(0, 0, 0, 0); 
CString strTitle; 

VERIFY {strTitle.LoadString(IDS_ACTOR_PROPSHT_CAPTION) ) ; 

if ( !m_pPropFrame->Create (NULL, strTitle, WS_POPUP | WS CAPTION | 
WS_SYSMENU, rect, this)) ~ 

{ 

delete m_pPropFrame ; 
m_pPropFrame = NULL; 
return; 

} 

m_pPropFranne->CenterWindow 0 ; 

} 

if (m_pPropFrame) // After creation 

{ 

// Before unhiding the modeless property sheet, update its 
settings appropriately. 

// For example, if you are reflecting the state of the currently 
selected item, 

// pick up that information from the active view and change the 
property sheet settings now. 

CPPMemberInf ol& pagel = m_jpPropFrame - >m_pModelessPropSheet - 

>m_Pagel ; 

pagel -m_strNick = *m_pActor - >m_mi . GetNick () ; 

pagel .m_strUserID = *m__pActor- >m_mi . GetUserlD ( ) ; 
pagel .m_strRealName = *m_pActor- >m_mi . GetRealName ( ) ; 

pagel ,m_strSexAge. Format ("%s %d", (m_pActor- >m mi . GetSex ( ) == 0) 
? T ( "M" ) : T { " F" ) 

m_pActor- >m_mi . Get Age { ) ) ; 
int nVer = m__pActor- >m_mi . Get Vers ion () ; 

pagel .m_strVersion. Format ("%d. %02d" , nVer / 100, nVer % 100); 
page 1 . Upda t eDat a ( FALSE ) ; 

m _pPropFrame->m_pModelessPropSheet->SetActivePage (&pagel) ; 
CPPMemberInf o2& page2 = Tn_pPropFrame - >m_pModelessPropSheet - 

>m_Page2 ; 

page2 .m_strProf ile = *m_pAc tor - >m_mi . Get Prof ile () ; 

if ( im_pPropFrame->IsWindowVisible () ) 

m__pPropFrame->ShowWindow (SW__SHOW) ; 

} 

void CUC2View: :OnActorHyperlink 0 

if (m_j)Actor && m_pActor- >m_mi . HasHyperlink ( ) ) 
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{ 

CMainFrame* pMF = (CMainFrame* ) GetParentFrame ( ) ; 
ASSERT (pMF) ; 

pMF-^ShellBrowseURL (*m_j)Actor->m_nii . GetHyperlink ( ) ) 

} 

void CUC2View: : OnViewBubbleText limit ( ) 
{ 

ClnputlntDlg dig; 
CString strTitle; 

strTitle . LoadString { IDS__ENTER_BUBBLE_TEXT_LIMIT) ; 
dlg.SetTitle (strTitle) ; 

CUC2APP* pApp = {CUC2App*) AfxGetApp 0 ; 

dlg-m__nVal - pApp- >RegGetBubbleTextLength ( ) ; 

dlg.SetDefaultVal (gResMan.GetDefaultBubbleTextLimit 0 ) ; 
if {dig . DoModal ( ) === IDOK) 

{ 

if (dlg.m_nVal < 0) 

dlg.m_nVal = 0; 
gResMan. SetBubbleTextLimit (dlg.m_nVal) ; 
pApp- >RegSetBubbleTextLength (dig . m_nVal ) ; 

) 

void CUC2View: : OnViewBubbleTime C ) 
{ 

ClnputlntDlg dig; 
CString strTitle; 

StrTitle . LoadString ( IDS_ENTER_BUBBLE_TIME) ; 
dig . SetTitle (strTitle) ; 

CUC2App* pApp = (CUC2App*) AfxGetApp () ; 
dlg.m__nVal = pApp - >RegGetBubbleTime () / 1 00 0 ; 
dlg.SetDefaultVal (gResMan . GetDef aul tBubbleTime { ) /lOOO) ; 
if (dig. DoModal 0 IDOK) 
{ 

if (dlg.m_nVal < 0) 

dlg.m_nVal = 0; 
gResMan. SetBubbleTime (dig . m_nVal * 10 00 ) ; 
pApp->RegSetBubbleTime (gResMan. Ge tBubbleTime 0 ) ; 

} 

#ifdef _MALL 

void CUC2View: :OnViewPda 0 
{ 

CDlgPDA pda ( "MPAniU.bmp" , "MPAniL.bmp", 6); 
pda . SetMode (TRUE, TRUE) ; 
if (pda. DoModal () IDOK) 

{ 
} 

} 



void CUC2View: :OnViewPdaMusic 0 
{ 

CDlgPDA pda ( "MPAniUM.bmp" , "MPAniLM . bmp " , 4); 
pda . SetMode (TRUE, TRUE) ; 
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if (pda-DoModal 0 =^ IDOK) 

{ 

} 



void CUC2View: :OnViewIm{) 

CUC2DOC* pDoc = GetDocument ( ) 
pDoc- >ShowIMDemo ( ) ; 



void CUC2View: :OnViewTitanic () 

CUC2DOC* pDoc = GetDocument ( ) 
pDoc->ShowTitanicDemo ( ) ; 



void CUC2View: rOnViewMap 0 

CUC2DOC* pDoc = GetDocument ( ) 
pDoc - >ShowMapDemo ( ) ; 




#endif 



UC2View.h 



// UC2View-h : interface of the CUC2View class 
// 

II CC) Programmed by Kim, Feb 19 98 

// Information Technology Institute 
// UNICHAT NETWORK INC 



#if ! defined {AFX_UC2VIEW_H A13 13 8 71_A610_11D1_8 0E2_0 80 0 09B9F3 3 9 INCLUDED_) 

#def ine AFX_UC2VIEW_H A1313 871_A610_11D1_8 0E2_080 0 09B9F33 9 INCLUr)ED_ 

#if _MSC_VER 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 

#include "UC2Ani /OSBView . h" 

class CActor; 
class CPSFrame; 

class CUC2View : public COSBView 

{ 

protected: // create from serialization only 
CUC2View() ; 

DECLARE_DYNCREATE {CUC2View) 

// Attributes 
public : 

CUC2DOC* GetDocument () ; 

BOOL HasVoiceCap ( ) const { return m_bVoiceCap; 

// Operations 
public : 

virtual BOOL CreateOSB ( CDIB* pDIB) ; // COSBView 

virtual void Render (CRect* pClipRect=NULL) ; // COSBView 

void AdjustFrameWindow ( ) ; 

void NewStageLoaded ( ) ; 

void SetActor (CActor* pA) { m_pActor = pA; } 

BOOL PunchAvailable ( ) const; 

void SaveLastHitTick ( ) { m_dwLastHitTick = 
: :GetTickCount () ; } 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CUC2View) 
public : 

virtual void OnDraw(CDC* pDC) ; // overridden to draw this view 
virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 
virtual void OnlnitialUpdate ( ) ; 
protected : 

virtual BOOL OnPreparePrinting (CPrintInf o* pinf o) ; 
virtual void OnBeginPrinting (CDC* pDC, CPrintInf o* pinfo) ; 
virtual void OnEndPrinting (CDC* pDC, CPrintInf o* pInfo) ; 
//} }AFX_VIRTUAL 



// Implementation 
public : 
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virtual ~CUC2View()/ 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Con text & dc) const; 

#endif 



OnToolHitTest (CPoint point, TOOLINFO* pTI) const; 
OnProperties () ; 



m_pActor; // pointer to current sprite (menu) 
m_bFirstDraw; 
m_uTimer ; 

m_dwChannelStartTick; // Ticks on starting this channel 
m_dwSoundAlarmTick; 

m_dwStageMSPT; // Delay in a stage 

m_dwLastHitTick; // Last punch 

m_bVoiceCap; 
m_jD Prop Frame ; 

/ / Generated message map functions 
protected : 

// { {AFX_MSG (CUC2View) 

afx_msg void OnLButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnLButtonDblClk (UINT nFlags, CPoint point); 
afx_msg void OnMouseMove (UINT nFlags, CPoint point); 
afx_msg void OnRButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnViewAdj ustWindow ( ) ; 
afx_msg void OnSetFocus (CWnd* pOldWnd) ; 

^f^^^Tisg void OnKeyDown (UINT nChar, UINT nRepCnt , UINT nFlags); 

afx__msg void OnActorVoice ( ) ; 

afx_msg void OnDestroyO; 

afx__msg void OnTimer (UINT nIDEvent) ; 

af x__msg void Onlgnore ( ) ; 

afx_msg void OnKickoutO; 

afx_msg void OnMakehost ( ) ; 

afx_msg void OnWhisperO; 

afx_msg void OnUpdateViewAdj ustWindow (CCmdUI* pCmdUI) ; 
afx_msg void OnActorHyperlink ( ) ; 
afx_msg void OnViewBubbleTextlimit ( ) ; 
afx_msg void OnViewBubbleTime { ) ; 

//} }afx_msg 

afx_msg void OnActorAct ion (UINT nID) ; 
afx_msg void OnActorState (UINT nID) ; 
afx_msg void OnActorMove (UINT nID) ; 
afx_msg void OnActorTurn (UINT nID) ; 
// void OnToolTipNotify (UINT id, NMHDR* pNMH, LRESULT* pResult) ; 

DECLARE_MESSAGE_MAP ( ) 

}; 



protected : 
// int 

void 

private : 

CActor* 
BOOL 
UINT 
DWORD 
DWORD 
DWORD 
DWORD 
BOOL 

CPSFrame* 



/* MALL 

afx_msg void 
afx_msg void 
afx_msg void 
afx_msg void 
afx_msg void 



OnViewPda () ; 
OnViewIm ( ) ; 
OnViewTitanic () ; 
OnViewMap ( ) ; 
OnViewPdaMusic () ; 
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#ifndef __DEBUG // debug version in UC2View.cpp 
inline CUC2Doc* CUC2View : : GetDocument ( ) 

{ return {CUC2Doc* ) m_pDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_UC2VIEW_H A1313 871_A610_11D1_8 0E2_080009B9F3 3 9 INCLUDED ) 
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// UCServerSession.cpp : implementation of the CUCServerSession class 
// 

//^^ = ^ = = ^ = = = = ^ = = = ^=.^^^ = = = ^^^^ = = ^^^ = = ^ = ^ = ^^ = ^^^^^^^^^^^^^^^^^ 
// (C) Programmed by Satya Sudhakar M, Apr 2000 

// UNICHAT NETWORKS 

#include " stdaf x . h" 
#include "UC2 .h" 
#include "UCServerSession . h" 
#include <afxinet.h> 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

#define ISNULIi(X) ( X- -NULL? TRUE : FALSE) 



IMPLEMENT_DYNCREATE (CUCServerSession, CInternet Session) 
CUCSejTverSession : : CUCServerSession () : CInternetSession ( ) 

m_URL = _T("http://\Arww. unichat.com/ads/index. html") ; 
m_jpUrl Connect ion = NULL; 
m_pFTPConnection = NULL; 
m_pHTTPConnection = NULL; 
m_pGopherConnection = NULL; 

} 

CUCServerSession : : -CUCServerSession ( ) 
{ 

} 

#ifdef _DEBUG 

void CUCServerSession: :AssertValid() const 
{ 

CInternetSession : : AssertValid () ; 

} 

void CUCServerSession: : Dump (CDumpCon texts dc) const 
CInternetSession ::Dump(dc); 

} 

#endif //_DEBUG 



CStdioFile* CUCServerSession:: OpenURL ( LPCTSTR pstrURL, DWORD dwContext 
DWORD dwFlags , LPCTSTR pstrHeaders , DWORD dwHeadersLength ) 
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m_pUrl Connect ion = CI nt erne t Session : : 
OpenURL (pstrURL, dwContext , dwFlags , pstrHeaders , dwHeadersLength) ; 
return m_pUrl Connect ion; 

) 

BOOL CUCServerSession :: MakeFTTPConnect ion (LPCTSTR pstrServer) 
{ 

if (ISNULL (pstrServer) ) 
return FALSE ; 

m__pFTPConnection = CInternetSession :: GetFtpConnection {pstrServer ) ; 
if (ISNULL {m_pFTPConnect ion) ) 

return FALSE; 
return TRUE; 

} 

BOOL CUCServerSession :: DownLoadfileFromServer (LPCTSTR 

FilePathOnserver , LPCTSTR FileLocalPath) 

{ 

if (ISNULL (FileLocalPath) || ISNULL (FileLocalPath) ) 

return FALSE; 
if (ISNULL (m_pFTPConnection) ) 

{ 

m_pFTPConnection = CInternetSession : : GetFtpConnect ion (m_URL) 
if (ISNULL (m_j>FTPConnection) ) 
return FALSE; 

} 

return m_pFTPConnect ion- >Get File (FilePathOnserver, FileLocalPath) ; 

} 
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#ifndef UCSERVERSESSION_H 
#define UCSERVERSESSION H 



// File name : UCServerSession.h : header file 
// Created by : Satya Sudhakar Mukkamala 

// Created UCServerSession.h class for ServerConnection 

1 1 1 11 1 / 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 / 1 1 1 1 1 / 1 1 1 1 1 1 1 / 1 1 1 1 1 1 
11 CUCServerSession 

#ifndef AFXEXT_H 

#include <afxext-h> 
#endif 

#include <afxinet.h> 



class CUCServerSession : public CInternetSession 

{ 

public : 

CUCServerSession ( ) ; 

virtual -CUCServerSession () ; 

DECLARE DYNCREATE (CUCServerSession) 



public : 

//{ {AFX_DATA (CUCServerSession) 

// NOTE: the ClassWizard will add data members here 
// } }AFX_DATA 

// Attributes 
public : 

CString GetURL ( ) 

return m_URL; 
CStdioFile* GetUrlConnection () 

return m__pUrlConnection; 
CFtpConnection* GetFTPconnection ( ) 

return m_pFTPConnection; 
CHttpConnection* GetHTTPConnection ( ) 

return m__pHTTPConnection; 
CGopherConnection* GetGopherConnect ion ( ) 

return m_pGopherConnection; 
void SetURL (CString url) 

m_URL = url; 
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// operations 
public : 

CStdioFile* OpenlIRL ( LPCTSTR pstrURL, DWORD dwContext = 1, DWORD 
dwFlags = INTERNET__FLAG_TRANSFER_ASCII , LPCTSTR pstrHeaders = NULL, DWORD 
dwHeadersLength = 0 ) ; 

BOOL MakeFTTPConnection (LPCTSTR pstrServer) ; 

BOOL DownLoadfileFromServer (LPCTSTR FilePathOnserver , LPCTSTR 
FileLocalPath) ; 
// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CUCServerSession) 
//} }AFX_VIRTUAL 

// Implementation 
protected : 
#ifdef _DEBUG 

virtual void AssertValid ( ) const ; 

virtual void Dump (CDump Contexts: dc) const; 

#endif 
private : 

est ring m_URL; 

CStdioFile* m_pUrlConnection ; 
CFtpConnection* m pFTPConnection ; 
CHttpConnection* m__pHTTPConnection; 
CGopherConnection* mj)GopherConnection ; 

public : 

// Generated message map functions 
//{ {AFX_MSG (CUCServerSession) 
/ / } }AFX_iyiSG 

//DECLARE__MESSAGE_MAP ( ) 

}; 

11 1 1 1 1 1 / 1 1 / 1 1 / 1 1 1 1 / 1 1 / 1 1 / 1 / 1 1 / 1 11 1 1 / 1 1 / / 1 / 1 1 1 / 1 1 1 1 1 / 1 1 1 / / 1 1 / 1 / / 1 1 1 1 / / 1 1 1 1 / / 1 1 

1 1 { { afx_insert_location} } 

// Microsoft Visual C+4- will insert additional declarations immediately 

before the previous line. 

#endif 
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// UCSplitterWnd.cpp : implementation of the CUCSplitterWnd class 
// 

================================.=^======..== 

// (C) Programmed by Satya Sudhakar Apr 20 0 0 

// UNI CHAT NETWORKS 

= . = = = ^ = . = = . = = = = . = = = = . = = = :..== = = = = = = =.. = == = = = =. = ^^== = = .. 

#include "stdaf x . h" 

#include "UC2.h" 

#include "UCSpli tterWnd . h" 

#ifdef _DEBUG 
#define new DEBUG^NEW 
#undef THIS_FILE 

static char THIS_FIL,E[1 = FILE ; 

#endif 

I MPLEMENT_D YNCRE ATE { CUC Sp 1 i 1 1 e rWnd , CSp 1 i 1 1 e rWnd ) 
// Message map for CUCSplitterWnd 

BEGIN_MESSAGE_MAP (CUCSplitterWnd, CSplit terWnd) 
//{ {aFX_MSG_MAP (CUCSplitterWnd) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code 

I 

ON_WM_LBUTTONDOWN ( ) 
//} }AFX_MSG_MAP 
END_MESSAGE_iyiAP ( ) 

CUCSplitterWnd :: CUCSplitterWnd ( ) : CSplitterWnd () 



CUCSplitterWnd : : -CUCSplitterWnd ( ) 



#ifdef _DEBUG 
void CUCSplitterWnd: :AssertValid() const 

CSplitterWnd : : AssertValid () ; 



void CUCSplitterWnd :: Dump (CDumpContext& dc) const 

CSplitterWnd : :Dump(dc) ; 
#endif //_DEBUG 

BOOL CUCSplitterWnd :; Create (CWnd* pParentWnd, int nMaxRows, int nMaxCols, 

SIZE sizeMin, CCreateContext * pContext, DWORD dwStyle , UINT nID ) 

{ 
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return CSplitterWnd :: Create (pParentWnd, nMaxRows , nMaxCols, 
sizeMin, pContext , dwStyle , nID) ; 
} 

BOOL CUCSplitterWnd : : CreateStat ic ( CWnd* pParentWnd, int nRows , int nCols 

DWORD dwStyle, UINT nID ) 

{ 

return CSplitterWnd : : CreateStatic (pParentWnd, nRows , nCols , dwStyle , nID 



} 

BOOL CUCSplitterWnd :: CreateCommon (CWnd* pParentWnd , SIZE sizeMin, DWORD 
dwStyle, UINT nID) 

{ 

return CSplitterWnd :: CreateCommon (pParentWnd , sizeMin , dwStyle , nID) ; 



void CUCSplitterWnd: lOnLButtonDown (UINT nFlags, CPoint point) 

// Just retuen it don't call the basecalss function 
//we don't allow to resize the SplitterWindow . 
return; 

} 
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#ifndef UCSPLITTER_H 
#define UCSPLITTER_H 

// File name : UCSplitterWnd.h : header file 

/ / Created by : Satya Sudhakar Mukkamala 

// Created CUCSplitterWnd class for Splitter Window. 

///////////////////////////////////////////////////////////////////////////// 
// CUCSplitterWnd CSplitterWnd 

#ifndef AFXEXT H 

#include <afxext.h> 
#endif 

#include <af xhtml. h> 

class CUCSplitterWnd : public CSplitterWnd 
{ 

public : 

CUCSplitterWnd () ; // protected constructor used by dynamic 

creation 

virtual -CUCSplitterWnd ( ) ; 
DECLARE_DYNCREATE (CUCSplitterWnd) 



public : 

// { { AFX_DATA (CWebView) 

// NOTE: the ClassWizard will add data members here 
//} }AFX_DATA 

// Attributes 
public : 

/ / Operations 
public : 

BOOL Create ( CWnd* pParentWnd, int nMaxRows , int nMaxCols, SIZE sizeMin, 
CCreateContext* pContext, DWORD dwStyle - WS_CHILD | WS_VISIBLE I WS HSCROLL 
WS_VSCROLL I SPLS_DYNAMIC_SPLIT, UINT nID = AFX_IDW_PANE_FIRST ) ; ~ 
BOOL CreateStatic ( CWnd* pParentWnd, int nRows, int nCols, DWORD ' dwStyle = 
WS_CHILD I WS_VISIBLE, UINT nID = AFX_IDW_PANE_FIRST ) ; 

BOOL CreateCommon{CWnd* pParentWnd, SIZE sizeMin, DWORD ' dwStyle , UINT nID) ; 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CUCSplitterWnd) 

//} }afx_virtual 

// Implementation 
protected: 
#ifdef _DEBUG 

virtual void AssertValidO const ; 

virtual void Dump (CDumpContextS: dc) const ; 

#endif 
public : 

/ / Generated message map functions 
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// { {AFX^MSG (CUCSplitterWnd) 

afx_msg void OnLButtonDown (UINT nFlags, CPoint point) ; 
// } }AFX_MSG 
DECLARE_MESSAGE_^4AP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { { afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 

#endif 
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// WebView.cpp : implementation file 
// 

#include " stdaf x . h " 
#include "UC2 .h" 
#include "WebView.h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE ~ 

static char THIS_FILE [] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// WebView 

IMPLEMENT_DYNCREATE (CWebView, CHtmlView) 

CWebView : : CWebView ( ) 
{ 

TRACED { "CWebView: : CWebView () ") ; 

// { {AFX_DATA_INIT (CWebView) 

// NOTE: the ClassWizard will add member initialization here 
// } }AFX_DATA_INIT 



CWebView : : -CWebView ( ) 

{ 

} 



void CWebView: iDoDataExchange (CDataExchange* pDX) 

CHtmlView: : DoDataExchange (pDX) ; 
/ / { {AFX_DATA__MAP (CWebView) 

// NOTE: the ClassWizard will add DDX and DDV calls he 
// } }AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CWebView, CHtmlView) 

// { {AFX_MSG_MAP (CWebView) 

ON_WM_CREATE ( ) 

//} }AFX_MSG_iy[AP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
/ / WebView diagnostics 

#ifdef _DEBUG 

void CWebView: :AssertValid() const 
{ 

CHtmlView: : AssertValid ( ) ; 

} 

void CWebView: :Dump (CDumpContext& dc) const 
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{ 

CHtmlView: :Dump(dc) ; 

} 

#endif // DEBUG 



void CWebView: :OnInitialUpdate {) 



TRACE ( "CWebView: : Onini t ialUpdate ( ) ") ; 

//TODO: This code navigates to a popular spot on the web. 
//Change the code to go where you'd like. 

SetScrollSizes (MM_TEXT, CSize(0, 0), CSi2e(0,0), CSize(0,0)); 
Navigate2 (_T ( "http : //www . unichat . com/ads/index . html " ) , NULL, NULL) 



} 



void CWebView: :OnGoBannerAd {) 
{ 

Navigate2 (_T ( "http : / / www . unichat . com/ ads /index . html " ) , NULL , MULL) 



/*void CWebView: : OnGoDat ingMatchcom ( ) 
{ 

^ Navigate2 (_T ( "http : //www. match . com" ) , NULL, NULL) ; 

void CWebView: : OnGoMusicMusicblvd () 

{ 

^ Navigate2 (_T ( "http : //www . musicblvd . com" ) , NULL , NULL) 

void CWebView: : OnGoSof twareBeyondsw ( ) 

^ Navigate2 (_T( "http: //www. beyond. com") , NULL, NULL) ; 



void CWebView: : OnGoVideoBigstar () 

^ Navigate2 (_T ( "http : //www. bigstar . com" ) , NULL , IvTULL ) / 

void CWebView: : OnGoWebsearchExcite ( ) 
{ 

Navigate2 (_T ( "http : //www . excite . com" ) , NULL, NULL) ; 
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void CWebView: : OnGoWebsearchInf oseek { ) 

{ 

Navigate2 (_T ( "http : //www. inf oseek . com" ) , NULL, NULL) ; 

void CWebView: : OnGoWebsearchYahoo { ) 
{ 

Navigate2 (__T ( "http : //www . yahoo . com" ) , NULL, NULL) ; 

*/ 

void CWebView: lOnUpdate (CView* pSender, LPARAM iHint , CObject* pHint) 

TRACE ( " \nCWebView : : OnUpdate () " ) ; 
OnGoBannerAd ( ) ; 

) 

int CWebView: :OnCreate (LPCREATESTRUCT IpCreateStruct ) 
//lpCreateStruct-> 

if (CHtmlView: lOnCreate (IpCreateStruct) == -1) 
return -1; 



return 0; 

} 

BOOL CWebView: : PreCreateWindow (CREATESTRUCT& cs) 
return CHtmlView: : PreCreateWindow ( cs ) ; 
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#if ! defined (AFX_CWEBVIEW_H EC3 3 8 1DA_D9CA_1 1D2_A3 0A_0 0 105A60F93 0 INCLUDED ) 

#def ine AFX_CWEBVIEW_H EC33 81DA_D9CA_11D2_A3 0A_00105A60F93 0 INCLUDED 

#if _MSC_VER > 10 0 0 
#pragma once 

#endif // _MSC_VER > 1000 
// WebView.h : header file 

// 

// Quarterview 

// joseph j. kim, march 1999 

// copyright 1999 quarterview 

///////////////////////////////////////////////////////////////////////////// 
/ / CWebView html view 

#ifndef ^AFXEXT_H 

#include <afxext.h> 
#endif 

#include <af xhtml. h> 

class CWebView : public CHtmlView 
{ 



// protected constructor used by dynamic creation 

prot ected : 

DECLARE_DYNCREATE (CWebView) 

// html Data 
public : 

// { {AFX_DATA (CWebView) 

// NOTE: the ClassWizard will add data members here 

//} }AFX_DATA 

// Attributes 
public : 

// Operations 
public : 

void OnNavigateBack ( ) ; 

void OnNavigateForward ( ) ; 

void OnNavigateHome ( ) ; 

void OnNavigateStop 0 ; 

void OnGoBannerAd ( ) ; 

void GoBannerAdO { OnGoBannerAd () ; } 
/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CWebView) 
public : 

virtual void OnlnitialUpdate ( ) ; 
protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

virtual void OnUpdate (CView* pSender, LPARAM iHint, CObject* pHint) ; 



public : 

CWebView {) ; 
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virtual BOOL PreCreateWindow { CREATESTRUCT& cs); 
/ / } }AFX_VIRTUA1j 

/ / Implementation 
protected : 

virtual -CWebViewO ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Contexts dc) const; 

#endif 

// Generated message map functions 
//{ {AFX_MSG(CWebView) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) - 

// } }afx_msg 
declare_message map ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { { afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately 
before the previous line. 

#endif // 

! de f ined { AFX_CWEBVIEW_H EC3 3 8 1DA_D9CA_1 1D2_A3 0 A_0 0105A6 0F93 0 INCLtJDED ) 
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// WhisperDlg.cpp : implementation file 
// 

#include " stdaf x . h" 
#include "UC2 .h" 
#include "Whi sperDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CWhisperDlg dialog 



CWhisperDlg : -.CWhisperDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CWhisperDlg :: IDD, pParent) 

{ 

//{ {AFX_DATA_INIT (CWhisperDlg) 
m_strText = _T ( " " ) ; 
m_strToID = _T { " " ) ; 
// } } AFX_DATA_INIT 

} 



void CWhisperDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: DoDataExchange (pDX) ; 

// { {AFX__DATA_MAP (CWhisperDlg) 

DDX_Text (pDX, IDC__EDIT_TEXT , m_strText) ; 

DDX_Text (pDX, IDC_STATIC_TO , m^strToID) ; 

/ / } } AFX__DATA_MAP 

} 



BEGIN_MESSAGE_MAP (CWhisperDlg, CDialog) 

// { {AFX_MSG_MAP (CWhisperDlg) 

// NOTE: the ClassWizard will add message map macros here 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CWhisperDlg message handlers 
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#if 

! defined (AFX_WHISPERDLG_H 4E6B0EC2_C674_11D1_80E2_08 00 0 9B9F3 3 9 INCLUDED^) 

#def ine AFX_WHISPERDLG_H 4E6B0EC2_C674_11D1_8 0E2_0 8 00 09B9F3 3 9 INCLUDED_~ 

#if _MSC_VER >= 10 00 
#pragma once 

#endif // _MSC_VER >= 1000 

// WhisperDlg.h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// CWhisperDlg dialog 

class CWhisperDlg : public CDialog 

{ 

/ / Construction 
public : 

CWhisperDlg (CWnd* pParent = MULL); // standard constructor 

// Dialog Data 

//{ {AFX_DATA (CWhisperDlg) 

enum { IDD = IDD_DIALOG_WHISPER } ; 

CString m_strText ; 

CString m_strToID; 

//} }afx_data 



// Overrides 

// ClassWizard generated virtual function overrides 

// { { AFX_VIRTUAL (CWhisperDlg) 

protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
//{ {afX_MSG (CWhisperDlg) 

// NOTE: the ClassWizard will add member functions here 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

I defined (AFX_WHISPERDLG_H 4E6B0EC2__C674_11D1__80E2_080 0 0 9B9F3 3 9 INCLUDED ) 
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// CloseDlg.cpp : implementation file 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT.COM 

//=^ = ^ = = = ^^^ = = = =.^^^^^^^ = = = = = = = =. = = ^ = ^ = ^^ = ^ = = ^^^^^ = = ^^ = ^ = ^^^^^^ 

#include " stdaf x . h" 
#include "MapEd . h" 
#include "CloseDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CCloseDlg dialog 



CCloseDlg: :CCloseDlg (CWnd* pParent /*=NTJLL*/) 
: CDialog (CCloseDlg: : IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CCloseDlg) 

// NOTE: the ClassWizard will add member initialization here 
// } } AFX_DATA_INIT 

} 



void CCloseDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX ) ; 
// { {AFX_DATA_MAP (CCloseDlg) 

// NOTE: the ClassWizard will add DDX and DDV calls here 
/ / } } AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (CCloseDlg, CDialog) 

// { { AFX_MSG_MAP (CCloseDlg) 

// NOTE: the ClassWizard will add message map macros here 

/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CCloseDlg message handlers 
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#if !def ined(AFX_CLOSEDLG_H D5010EC7_A1F9_11D1_80E2_080009B9F33 9 INCLUDED^) 

#def ine AFX_CLOSEDLG_H D50 10EC7_A1F9_11D1_8 0E2_080 00 9B9F3 3 9 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// CloseDlg.h : header file 
// 

// = ^^ = = = = === = ^=^^^ = = = = ==^ = = = = = = = = = ^= = ^^ = ^^ ==^^ = ^ = = = = ^ = = ^^^^^^ 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNI CHAT INC 

///////////////////////////////////////////////////////////////////////////// 
// CCloseDlg dialog 

class CCloseDlg : public CDialog 

{ 

// Construction 
publ ic : 

CCloseDlg (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

//{ {AFX_DATA (CCloseDlg) 
enum { IDD = IDD_CLOSE } ; 

// NOTE: the ClassWizard will add data members here 
//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CCloseDlg) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

// } }afx_virtual 

// Implementation 
protected : 

// Generated message map functions 
// { {afx_MSG (CCloseDlg) 

// NOTE: the ClassWizard will add member functions here 

//} }afx_msg 

DECLARE_MESSAGE_MAP ( ) 

}; 

// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_CLOSEDLG_H_D5010EC7_A1F9_11D1_80E2_0800 09B9F3 3 9 INCLUDED ) 
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// ElevDlg.cpp : implementation file 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

#include " stdaf x . h" 
#include "MapEd.h" 
#include "ElevDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILEt] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CElevDlg dialog 



CElevDlg: :CElevDlg(CWnd* pParent /*=NULL*/) 
: CDialog {CElevDlg :: IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CElevDlg) 
m__nElevNew = 0; 
m_strElevCur = _T ( " " ) / 
// } } AFX_DATA_INIT 

} 



void CElevDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: :DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CElevDlg) 

DDX_Text (pDX, IDC_EDIT_NEW_ELEV, m_nElevNew) ; 
DDV_MinMaxInt (pDX, m_nElevNew, 0, 300); 
DDX_Text (pDX, IDC_ST_CURRENT__ELEV, m_s trElevCur ) ; 
DDV_MaxChars (pDX, m_strElevCur , 5) ; 
/ / } } AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (CElevDlg, CDialog) 
// { { AFX_MSG_MAP (CElevDlg) 

// NOTE: the ClassWizard will add message map macros here 

// } }afx_msg_map 
end_message_map { ) 

///////////////////////////////////////////////////////////////////////////// 
// CElevDlg message handlers 
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#if !def ined (AFX_ELEVDLG_H 857FFE42_A782_11D1_80E2__080009B9F33 9 INCLUDED ) 

#define AFX_ELEVDLG_H 857FFE42_A782_11D1_8 0E2_O8O 009B9F3 3 9 INCLUDED 

#if _MSC_VER 1000 
#pragma once 

#endif // _MSC_VER 1000 
// ElevDlg.h : header file 
// 

// (C) Programmed by Kim, Feb 1998 

/ / Information Technology Institute 
// UNICHAT NETWORKS INC 

///////////////////////////////////////////////////////////////////////////// 
// CElevDlg dialog 

class CElevDlg : public CDialog 
{ 

/ / Construction 
public : 

CElevDlg (CWnd* pParent = NULL); // standard constructor 

/ / Dialog Data 

//{ {AFX_DATA (CElevDlg) 
enum { IDD = IDD_ELEVATION } ; 
i n t m_nE 1 e vNe w ; 

CString m_strElevCur ; 

//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CElevDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

//} }AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
// { {AFX_MSG (CElevDlg) 

// NOTE: the ClassWizard will add member functions here 

//} }afx__msg 
declare_message map ( ) 

}; 

// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined ( AFX_ELEVDLG_H 857FFE42_A7 82_11D1_80E2_0 80009B9F3 3 9 INCLUDED ) 
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// GetlntDlg . cpp : implementation file 
// 

# include " stdaf x . h" 
#include "MapEd . h" 
#include "Get IntDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FIL.E[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CGetlntDlg dialog 



CGetlntDlg : rCGetlntDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CGetlntDlg : :IDD, pParent) 

{ 

// { {AFX_DATA_INIT (CGetlntDlg) 
m_nNew = 0 ; 
m_strCur = _T ( " " ) ; 
// } } AFX_DATA_INIT 
m_strCaption . Empty ( ) ; 

} 



void CGetlntDlg: :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 

// { {AFX__DATA__MAP (CGetlntDlg) 

DDX^Text (pDX, IDC_EDIT_NEW_INT , m_nNew) ; 

DDX_Text (pDX, IDC_ST_CURRENT_INT, m_strCur) ; 

// } }afx_data map 

} 



BEGIN_MESSAGE_MAP (CGetlntDlg, CDialog) 

// { {AFX_MSG_MAP (CGetlntDlg) 

//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CGetlntDlg message handlers 

BOOL CGetlntDlg: lOnlnitDialogO 

CDialog: : OnlnitDialog ( ) ; 

if { I m_strCaption. IsEmpty () ) 

SetWindowText (m_strCapt ion) ; 

m_strCur .Format ("%d", m_nNew) ; // So, set m nNew before callina 

DoModal ~ 

UpdateData (FALSE) ; // Initialize Dialog 



A-615 



MapEd\GetIntDlg.cpp 




return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
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#if 

! defined (AFX_GETINTDLG_H 4F156CC2_AA1E_11D1_8 0E2_08 000 9B9F3 3 9 INCLUDED_) 

#def ine AFX_GETINTDLG_H 4F156CC2_AA1E_11D1_80E2_080 0 0 9B9F3 3 9 INCLUDED_~ 

#if _MSC_VER >=: 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 
// GetXntDlg.h : header file 
// 



///////////////////////////////////////////////////////////////////////////// 
// CGetlntDlg dialog 

class CGetlntDlg : public CDialog 

{ 

// Construction 
public : 

est ring m_strCaption ; 

CGetlntDlg (CWnd* pParent = MULL); // standard constructor 



// Dialog Data 

//{ {AFX_DATA (CGetlntDlg) 
enum { IDD = IDD_GETINT } ; 
int m_nNew; 
CString m_strCur; 
//} }AFX_DATA 



/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CGetlntDlg) 

protected : 

virtual void DoDataExchange (CDataExchange* pDX) / // DDX/DDV support 

/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
// { {AFX__MSG (CGetlntDlg) 
virtual BOOL OnlnitDialog ( ) ; 
//} }afx_msg 
declare_message_map ( ) 

}; 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_GETINTDLG_H 4F15 6CC2_AA1E_11D1_8 0E2_0 80 00 9B9F3 3 9 INCLUDED ) 
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// GetTextDlg . cpp : implementation file 
// 

#include "stdafx. h" 
#include "MapEd. h" 
#include "GetTextDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CGetTextDlg dialog 

CGetTextDlg: :CGetTextDlg (CWnd* pParent /*=NULL*/) 
: CDialog (CGetTextDlg: :IDD, pParent) 

//{ {AFX_DATA_INIT (CGetTextDlg) 
m__strText = _T ( " " ) ; 
// } }AFX_DATA_INIT 
m_strCaption . Empty ( ) ; 

} 

void CGetTextDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CGetTextDlg) 

DDX__Text (pDX, IDC_EDIT_STRING , m_strText) ; 
/ / } } AFX__D ATA_MAP 

} 

BEGIN_MESSAGE_MAP (CGetTextDlg, CDialog) 
// { {AFX_MSG_MAP (CGetTextDlg) 

// } }afx_msg_map 
end_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CGetTextDlg message handlers 

BOOL CGetTextDlg: :OnInitDialog() 

CDialog: : OnlnitDialog ( ) ; 

if ( lm_strCaption.IsEmpty () ) 

SetWindowText (m_strCaption) ; 

UpdateData (FALSE) ; // Initialize Dialog 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
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#if 

! defined (AFX_GETTEXTDLG_H C5 8C7FE4_B5 9C_11D1_80E2_08 00 09B9F3 3 9 INCLUDED_) 

#de f ine AFX GETTEXTDLG H C5 8 C7 FE4_B5 9C_1 1D1_8 0E2_0 8000 9B9F33 9 INCLUDED^ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER 1000 
// GetTextDlg.h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// CGetTextDlg dialog 

class CGetTextDlg : public CDialog 

{ 

// Construction 
public : 

CString m_strCaption; 

CGetTextDlg (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

//{ {AFX_DATA (CGetTextDlg) 
enum { IDD = XDP_GETSTRING } ; 
CString Tn_strText; 
//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAIi (CGetTextDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
/ / { { AFX_MSG (CGetTextDlg) 
virtual BOOL Onini tDialog ( ) ; 

//} }afx_msg 
declare_message_map ( ) 

}; 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined { AFX_GETTEXTDLG_H C58C7FE4_B59C_11D1_80E2_0B0009B9F339 INCLUDED ) 
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// MainFrm.cpp : implementation of the CMainFrame class 
// 

//^=^^^^ = = =. === ===^ = = = ^^ = ^^ = = = = ^ = = ^ = ^^^^^^^ = ^^^^^^^^^^^^^^^^^ 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT NETWORKS INC 

#include " stdaf x . h " 
#include "MapEd . h" 

#include "MainFrm.h" 

#include "MapEdView . h" 
#include "MapListView . h" 
#include "MapEdDoc.h" 

#include "CloseDlg.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FIL,E 

static char THIS__FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame 
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IMP1.EMENT_DYNCREATE (CMainFrame, CFrameWnd) 

BEGIN_MESSAGE_MAP (CMainFrame , CFrameWnd) 

ON_WM_QUERYNEWPALETTE ( ) 

ON_WM_PALETTECHANGED ( ) 

// { { AFX_MSG_MAP (CMainFrame) 

ON_WM_CREATE ( ) 

ON_WM_CLOSE ( ) 

//) }AFX__MSG_MAP 
END_MESSAGE_MAP ( ) 

static UINT indicators [] = 
{ 

ID_SEPARATOR, // status line indicator 

ID_IMDICATOR_CAPS , 
I D_ I ND I CATO R_NUM , 
ID_INDICATOR_SCRL , 

}; 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame construction/destruction 

CMainFrame : : CMainFrame ( ) 

{ 

TRACED ("CMainFrame: : CMainFrame () \n" ) ; 

} 

CMainFrame : : -CMainFrame ( ) 
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TRACED ( "CMainFrame: : -CMainFrame { ) \n" ) ; 



int CMainFrame :: OnCreate (LPCREATESTRUCT IpCreateSt ruct ) 



// CG: This line was added by the Palette Support component 
m_pPalette = NULL; 

if (CFrameWnd :: OnCreate (IpCreateStruct) -1) 
return -1; 

if ( !m_wndToolBar- Create (this) || 

] m_wndToolBar . LoadToolBar ( IDR_iyiAINFRAME ) ) 



TRACEO ( "Failed to create toolbar\n"); 



return -1; 



// fail to create 



if 



( !m_wndStatusBar. Create (this) | | 



!m_wndStatusBar . Setlndicators (indicators , 



sizeof (indicators) /sizeof (UINT) ) ) 



TRACED ("Failed to create status bar\n"); 



return -1; 



// fail to create 



} 



m_wndToolBar . SetFlatLookStyle () ; 



// CFlatToolBar 
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// TODO: Remove this if you don't want tool tips or a resizeable 
toolbar 

m_wndToolBar . SetBarStyle (m_wndToolBar . GetBarStyle ( ) | 
CBRS_TO0LTIPS | CBRS_FLYBY | CBRS__SIZE_DYNAMIC) ; 

// TODO: Delete these three lines if you don't want the toolbar to 
// be dockable 

m_wndToolBar . EnableDocking (CBRS_ALIGN_ANY) ; 
EnableDocking (CBRS_ALIGN_ANY) ; 
DockControlBar (&m_wndToolBar) ; 

return 0 ; 

} 

BOOL CMainFrame : : PreCreateWindow (CREATESTRUCT& cs) 
{ 

/* 

// Create a window without min/max buttons or sizable border 
cs, style = WS_OVERLAPPED | WS_SYSMENU | WS_BORDER; 

// Size the window and center it 

cs.cy = : iGetSystemMetrics (SM_CYSCREEN) - 200; 
cs.cx = : :GetSystemMetrics (SM_CXSCREEN) - 200; 
cs.y = ((cs.cy + 200) - cs.cy) / 2; 
cs.x = ((cs.cx + 200) - cs.cx) / 2; 

*/ 

return CFrameWnd: : PreCreateWindow (cs ) ; 

} 
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///////////////////////////////////////////////////////////////////////////// 
1/ CMainFrame diagnostics 

#ifdef _DEBUG 

void CMainFrame : :AssertValid ( ) const 

{ 

CFrameWnd: : AssertValid { ) ; 

} 

void CMainFrame :: Dump (CDump Contexts do) const 

{ 

CFrameWnd : : Dump ( dc ) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame message handlers 

BOOL CMainFrame : : OnQueryNewPalette ( ) 
{ 

CMapEdDoc* pDoc = (CMapEdDoc* ) GetActiveDocument ( ) ; 
CMapEdView* pMEV = pDoc- >GetMapEdView ( ) ; 
CMapListView* pMLV = pDoc - >GetMapListView () ; 
if (pMEV) 

pMEV->SendMessage (WM_QUERYNEW PALETTE, (WPARAM) 0, (LPARAM) 0) ; 
if (pMLV) 

pMLV->SendMessage ( WM_QUERYNEWP ALETTE , (WPARAM) 0, (LPARAM) 0) ; 
// CG: This function was added by the Palette Support component 




A-624 



MapEd\MainFrm.cpp 

if (m_pPalette == NULL) 
return FALSE ; 

// BLOCK 
{ 

CClientDC dc(this); 

CPalette* pOldPalette = dc . SelectPalette (m_pPalette , 

GetCurrentMessage ( ) ->message == WM_PALETTECHANGED) ; 
UINT nChanged = dc . RealizePalette ( ) ; 
dc . SelectPalette {pOldPalette, TRUE) ; 

if (nChanged == 0) 
return FALSE; 

} 

Invalidate ( ) ; 
return TRUE; 

} 

void CMainFrame : :OnPaletteChanged (CWnd* pFocusWnd) 

{ 

// CG: This function was added by the Palette Support component 
if (pFocusWnd this || IsChild (pFocusWnd) ) 
return; 

// Pass this message on to the active view (OSBVeiw-derived) 
CMapEdDoc* pDoc = (CMapEdDoc* ) GetActiveDocument ( ) ; 
CMapEdView* pMEV = pDoc - >GetMapEdView () ; 
CMapListView* pMLV = pDoc - >Get]yiapLis tView { ) ; 
if (pMEV) 

pMEV->SendMessage (WM_PALETTECHANGED , 

(WPARAM) (pFocusWnd- >GetSaf eHwnd () ) , 
(LPARAM) 0) ; 

if (pMLV) 

// OnPaletteChanged is not public 




A-625 



MapEd\MainFrm.cpp 



pMLV- >SendMessage (WM_PAIjETTECHANGED , 

(WPARAM) (pFocusWnd->GetSafeHwnd ( ) ) , 
(LPARAM) 0) ; 

OnQueryNewPalette () ; 

} 



CPalette* CMainFrame : : SetPalette (CPalette* pPalette) 
{ 

// CG: This function was added by the Palette Support component 

// Call this function when the palette changes. It will 

// realize the palette in the foreground to cause the screen 

// to repaint correctly. All calls to CDC : : SelectPalette in 

// painting code should select palettes in the background. 

CPalette* pOldPalette = m_jpPalette; 
m__pPalette = pPalette; 
OnQueryNewPalette ( ) ; 
return pOldPalette; 

} 



BOOL CMainFrame : rOnCreateClient (liPCREATESTRUCT Ipcs, CCreateContext * 
pContext ) 

{ 

// create a splitter with 1 row, 2 columns 

if ( !m_wndSplitter . CreateStatic (this , 1, 2)) 
{ 

TRACED ("Failed to create static splitters\n" ) ; 
return FALSE; // failed to create 

} 

// add the first splitter pane - the default view in column 0 
if ( !m_wndSplitter .CreateView (0, 0, 

RUNTIME__CLASS (CMapEdView) , CSize(590, 50) , pContext) ) 

{ 

TRACED ( "Failed to create first pane\n"); 
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return 

} 

/ / add the second splitter pane - an input view in column 
if ( !m_wndSplitter.CreateView(0, 1, 

RUNTIME_CLASS (CMapListView) , CSize (0, 0) , pContext) ) 

{ 

TRACED { "Failed to create second pane\n"); 
return FALSE; 

} 

// activate the input view 

SetActiveView ( (CView* ) Tn_wndSplitter . Get Pane (0,1)) ; 
return TRUE; 

} 

void CMainFrame : rOnClose () 
{ 

CCloseDlg dig; 

if (dlg.DoModal {) == IDCANCEL) 

return; 
CFrameWnd: rOnClose () ; 

} 
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// MainFrm.h : interface of the CMainFrame class 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC. 

#if ! defined (AFX_MAINFRM_H 7ECC1EOA_9C09_11D1_80E2_288A06C10000 INCLUDED 

#define AFX_MAINFRM_H 7ECC1EOA_9C0 9_11D1_80E2_2 8 8A06C100 00 INCLUDED^ 

#if _MSC_VER 100 0 

#pragma once 

#endif // _MSC_VER >= 10 0 0 

#include ". . /FlatToolBar . h" 

class CMainFrame : public CFrameWnd 
{ 

protected: // create from serialization only 
CMainFrame ( ) ; 

DECLARE_DYNCREATE (CMainFrame) 

// Attributes 
public : 

/ / Operations 
public : 

void SetStatusBarText (const char* msg) { 
m_wndStatusBar . SetWindowText (msg) ; } 

CPalette* SetPalette (CPalette* pPalette) ; 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMainFrame) 

virtual BOOL PreCreateWindow {CREATESTRUCT& cs) ; 
/ / } } AFX_V I RTUAL 

// Implementation 
public : 

virtual -CMainFrame () ; 
#ifdef _DEBUG 

virtual void AssertValidO const ; 

virtual void Dump (CDumpContext& dc) const; 

#endif 

protected: // control bar embedded members 
CStatusBar m_wndStatusBar ; 

CFlatToolBar m_wndToolBar ; 

// Generated message map functions 
protected : 

CSplitterWnd m_wndSplitter ; 

virtual BOOL OnCreateClient (LPCREATESTRUCT Ipcs, CCreateContext * 
pContext) ; 

afx_msg BOOL OnQueryNewPalette ( ) ; 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
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CPalette* m_pPalette; 
//{ {AFX_MSG (CMainFrame) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 
afx_msg void OnCloseO; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

/ / { {afx__insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

•defined (AFX_MAINFRM_H 7ECC1E0A_9C0 9_11D1 80E2 288A06C10000 INCLUDED ) 
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// MapEd.cpp : Defines the class behaviors for the applicati 
// 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNI CHAT INC 



#include " stdaf x . h " 
iinclude "MapEd . h" 

tinclude "MainFrm.h" 
# include "MapEdDoc.h" 
#include "MapEdView. h" 

#include " . . /Stage . h" 

#ifdef _DEBUG 

#def ine new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
/ / CMapEdApp 

BEGIN__MESSAGE_MAP (CMapEdApp , CWinApp) 
// { {AFX_MSG_MAP (CMapEdApp) 
ON^COMMAND ( ID_APP_ABOUT , OnAppAbout ) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code' 
//} }AFX_MSG_MAP 

// Standard file based document commands 
ON_COMMAND (ID_FILE_NEW, CWinApp: lOnFileNew) 
0N_COMMAND (ID_FILE_OPEN, CWinApp: rOnFileOpen) 
// Standard print setup command 

ON_COMMAND(ID_FILE_PRINT_SETUP, CWinApp: : OnFilePrintSetup) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

// CMapEdApp construction 
CMapEdApp : : CMapEdApp ( ) 

{ 

m_j)Stage = NULL; 
m_bPause = false; 

} 

///////////////////////////////////////////////////////////////////////////// 

// The one and only CMapEdApp object 
CMapEdApp theApp; 

///////////////////////////////////////////////////////////////////////////// 
// CMapEdApp initialization 



A-630 



MapEd\MapEdxpp 




BOOL CMapEdApp: ilnitlnstanceO 
{ 

AfxEnableControlContainer ( ) ; 
// Standard initialization 

//If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

#ifdef _AFXDLL 

Enable3dControls () ; // Call this when using MFC in a 

shared DLL 
#else 

Enable3dControlsStatic 0 / // Call this when linking to MFC 

statically 
#endif 



// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organization. 
SetRegistryKey{_T( "Local AppWizard-Generated Applications")); 

LoadStdProfileSettings 0 ; // Load standard INI file options (includin 

MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views 

CSingleDocTemplate* pDocTemplate ; 
pDocTemplate = new CSingleDocTemplate ( 

IDR_MAINFRAME , 

RUNTIME_CLASS (CMapEdDoc) , 

RUWTIME^CLASS (CMainFrame) , // main SDI frame window 

RUNTIME_CLASS (CMapEdView) ) ; 
AddDocTemplate (pDocTemplate) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdinfo; 
ParseCommandLine (cmdlnf o) ; 

// Dispatch commands specified on the command line 
if { ! ProcessShellCommand (cmdlnf o) ) 
return FALSE; 

// The one and only window has been initialized, so show and update it. 
m_pMainWnd->ShowWindow (SW_SHOW) ; 
m_pMainWnd->UpdateWindow() ; 



return TRUE; 

} 



///////////////////////////////////////////////////////////////////////////// 

// CAboutDlg dialog used for App About 
class CAboutDlg : public CDialoq 

{ 

public : 
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CAboutDlg ( ) ; 

// Dialog Data 

// { {AFX_DATA (CAboutDlg) 
enum { IDD =^ IDD_ABOUTBOX } ; 
//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 

// Implementation 
protected : 

// { { AFX_MSG (CAboutDlg) 

//No message handlers 
//} }AFX_MSG 
DECLARE_MESSAGE_iy[AP ( ) 

CAboutDlg: : CAboutDlg () : CDialog ( CAboutDlg : :IDD) 

//{ {AFX_DATA_INIT (CAboutDlg) 
// } }AFX_DATA_INIT 

void CAboutDlg :: DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CAboutDlg) 
// } } AFX_DATA_MAP 

BEGIN_MESSAGE_MAP (CAboutDlg, CDialog) 
// { {AFX_MSG_MAP (CAboutDlg) 

//No message handlers 

// } }afx_msg_map 
end_message_map ( ) 

/ / App command to run the dialog 
void CMapEdApp : : OnAppAbout { ) 

CAboutDlg aboutDlg; 
aboutDlg.DoModal () ; 

} 

///////////////////////////////////////////////////////////////////////////// 

/ / CMapEdApp commands 

BOOL CMapEdApp : :OnIdle (LONG iCount) 
{ 

// CG: The following code inserted by 'Idle Time Processing- component. 

// Note: Do not perform lengthy tasks during Onldle because your 
// application cannot process user input until Onldle returns. 
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// call the base class 
CWinApp: :OnIdle (ICount) ; 

if (m_bPause) 

return FALSE ; 

/* if (ICount == 0) 

{ 

// TODO : add code to perform important idle time processinq 

} 

else if (ICount === 100) 

{ 

// TODO: add code to perform less important tasks during idle 

else if (ICount 1000) 

{ 

} 

*/ 

// This is the Heart of the Program! 
if (mpStaqe) 

{ 

m_pStage- >TickAll () ; 
return TRUE; 

} 

// return FALSE when there is no more idle processing to do 
return FALSE; 

} 

BOOL CMapEdApp : : PreTranslateMessage (MSG* pMsg) 

return CWinApp: : PreTranslateMessage (pMsg) ; 
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// MapEd.h : main header file for the MAPED application 

// (C) Programmed by Soomin Kim, Feb 1998 

// Information Technology Institute 
// UNI CHAT INC 

#if ! defined (AFX_MAPED_H 7ECC1E06_9C09_11D1_80E2_^288A06C10000 INCLUDED ) 

#define AFX_MAPED_H 7ECC1E06__9C09_11D1_80E2_288A06C10000 INCLUDED^ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include "resource . h" // main symbols 

/////////////////////////////////////////////////////////////////////// 
/ / CMapEdApp : 

// See MapEd.cpp for the implementation of this class 
class CStage; 

class CMapEdApp : public CWinApp 

{ 

public : 

virtual BOOL PreTranslateMessage (MSG* pMsg) ; 
virtual BOOL Onldle (LONG ICount); 
CMapEdApp ( ) ; 

void SetStage(CStage* pStage) { m_pStage = pStage; } 

void SetPause (const BOOL bPause) { m_bPause = bPause; } 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CMapEdApp) 
public : 

virtual BOOL Initlnstance ( ) ; 
// } }AFX_ VIRTUAL 

/ / Implementation 
protected : 

CStage* m_pStage; 

BOOL m_bPause; 

//{ {AFX_MSG (CMapEdApp) 
afx_msg void OnAppAbout ( ) ; 

// NOTE - the ClassWizard will add and remove member functions 



here . 



// DO NOT EDIT what you see in these blocks of generated code 
//} }AFX_MSG 
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DECLARE_MESSAGE MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

/ I { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_MAPED_H 7ECC1E06_9C09_11D1_8 OE2_2 88A06C10000 INCLUDED^) 
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// MapEdDoc.cpp : implementation of the CMapEdDoc class 
// 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 



TT T n lit ^ 


s CQarx . n 


ffmc-Lucie 


riaphjU. . n 


#include 


"MapEdDoc.h" 


#include 


"MapEdView.h" 


#include 


"MapListView.h" 


#include 


" - - /Stage. h" 


#include 


. . /TileMap.h" 


#include 


"PalDlg.h" 


#include 


"MapEnvDlg . h" 


#include 


"GetTextDlg.h" 


#include 


"GetlntDlg.h" 


#include 


" . . /UC2Ani/DIB.h" 


#include 


" . - /UC2Ani/PhSprite 


#include 


" . . /ResMan.h" 


#include 


" . - /Parser .h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE 

#endif 



CParser gParser ( 1024*4 ) ; // to be used as an extern variable in other 

files 

CRe sMan gRe sMan ; 

double GetMapEditorVersion ( ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CMapEdDoc 



IMPLEMENT_D YNCREATE ( CMapEdDoc , CDocument ) 

BEGIN_MESSAGE_MAP (CMapEdDoc , CDocument ) 
// { {afx_MSG_MAP (CMapEdDoc) 
ON_COMM7USrD (ID_VIEW_GRID, OnViewGrid) 

ON_UPDATE_COMMAND_UI ( ID_VIEW_GRID , OnUpdateViewGrid) 
ON_COMMAND (ID_VIEW_EARTH, OnViewEarth) 

ON_UPDATE_COMMAND_UI ( ID__VIEW_EARTH , OnUpdateViewEarth) 

ON_COMMAND (ID_VIEW_PAIiETTE, OnViewPalet te ) 

ON_COMMAND (ID_OPTIONS_ENV, OnOpt ionsEnv) 

ON_COMMAND (ID_FILE_OPEN, OnFileOpen) 

ON_COMMAND (ID_FILE_SAVE, OnFileSave) 

ON_COMMAND {ID_FILE_SAVE_AS, OnFi leSaveAs ) 

ON_COMMAND (ID_EDIT_MODE, OnEditMode) 

ON_UPDATE_COMMAND_UI ( ID_EDIT_MODE , OnUpdateEdi tMode ) 
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ON_COMMAND ( ID_VIEW_MAP_ONLY , OnViewMapOnly ) 

OM_UPDATE_COMMAND_UI ( ID_VIEW_MAP_ONLY , OnUpdateViewMapOnly ) 
ON_COMMAND ( ID_VIEW_GRAPH , OnViewGraph) 

ON_UPDATE_COMMAND_UI ( ID_VIEW_GRAPH , OnUpdateViewGraph) 
ON_COMMAND (ID_EDIT_TILE_COORD, OnEdi tTi leCoord) 

ON_UPDATE_COMMAND_UI ( ID_EDIT_TILE_COORD , OnUpdateEdi tTi leCoord ) 
ON_COMMAND (ID_VIEW_PAUSE, OnViewPause) 

ON_UPDATE_COMMAND_UI { ID_VIEW_PAUSE , OnUpda t eViewPause ) 
ON_COMMAND (ID_MENU_STAGE_TITLE, OnMenuS tageTi t le ) 
ON_COMMAND ( ID_EDIT_STAND , OnEditStand) 

ON_UPDATE_COMMAND_UI ( ID_EDIT_STAND , OnUpdateEdi tStand) 
ON_COMMAND ( ID_EDIT_CREATE_MODE , OnEdi t Great eMode ) 

ON_UPDATE_COiyiMAND_UI ( ID_EDIT_CREATE_MODE , OnUpdateEdi tCreateMode ) 
ON_COMMAND ( ID_MENU_RECALC__DA, OnMenuRecalcDa ) 
ON_COMMAND { ID_MENU_SYNC_EA, OnMenuSyncEa) 
ON_COMRAND ( ID_VIEW_NOELEV , OnViewNoelev) 

ON_UPDATE_COMMAND_UI (ID_VIEW_NOELEV, OnUpdateViewNoelev) 
ON^COMMAND (ID_MENU_STAGE_MUSIC, OnMenuStageMusic ) 
ON_COMMAND { ID_VIEW_EA_GRAPH , OnViewEaGraph) 

ON_UPDATE_COMMAND_UI ( ID_VIEW_EA_GRAPH , OnUpdateViewEaGraph ) 
ON_COMMAND (ID_MENU_ELEVATION, OnMenuElevat ion) 
//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMapEdDoc construction/destruction 



CMapEdDoc : : CMapEdDoc { ) 
{ 

TRACED { "CMapEdDoc : : CMapEdDoc ( ) \n" ) 



m_jDStage 

m_b Vi e wE a r t h 

tn_bViewGraph 

Tn_bViewEAGraph 

m_nEditMode 

m_bCreat eMode 

m_bTi 1 eCoord 

m_bPause 

m bStandEdit 



NULL; 
FALSE; 
FALSE; 
FALSE; 

SPRITE__EDIT_MODE ; 

TRUE ; 

TRUE ; 

FALSE; 

FALSE ; 



CMapEdDoc : : -CMapEdDoc ( ) 
{ 

TRACED ( "CMapEdDoc : : -CMapEdDoc ( ) \n" ) ; 
if (m_j)Stage) 

{ 

EndAnimation ( ) ; 
delete m_pStage; 

} 

} 



BOOL CMapEdDoc : : OnNewDocument ( ) 
{ 

TRACED ( "CMapEdDoc : : OnNewDocument ( } \n" ) ; 
EndAnimation ( ) ; 

if ( ! CDocument : : OnNewDocument ( ) ) 
return FALSE; 
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CMapEdView* pView - GetMapEdView ( ) ; 
ASSERT (pView) ; 

if (m_pStage) 

{ 

m_pStage->DeleteStage () ; 
m_pStage->ClearFilename 0 ; 

} 

else 

{ 

mjStage = new CStage; 
mj>Stage->Initialize (pView) ; 

} 



CMapEnvDlg dlg; 

dlg.m_strDataPath = *gResMan . GetResPath ( ) ; 
dlg.m_strPalFile = *m_j5Stage- >GetPalFileName { ) ; 
CTileMap* pTM = mjStage - >GetTileMap ( ) ; 

CSize szT = pTM ? pTM- >GetTileSize ( ) : CSize(64, 32); 

CSize szScr = pTM ? pTM- >GetScreenSize ( ) : CSize(640, 368); //640 

384); 

dig .m_nTileWidth = szT.cx; 
dlg.m_nTileHeight = szT.cy; 
dlg.m_nScrWidth = szScr.cx; 

dig - m_nScrHeight = szScr.cy; 
if (pTM) 

{ 

if (AfxMessageBox ("Delete current Stage?") IDCANCEL) 

return FALSE; 
m_pStage->ClearFilename 0 ; 
m_pStage->DeleteStage 0 ; 

if (dlg.DoModal 0 == IDOK) 
{ 

szT = CSize (dig. m_nTileWidth, dig . m_nTileHeight ) ; 

szScr = CSize (dig .m_nScrWidth, dig . m_nScrHeight ) ; 
gResMan . SetResPath (dig . m_strDataPath) ; 
m _pStage->SetPalFileName (dlg.m_strPalFile) ; 



if ( !m_pStage->CreateStage (szT, szScr) ) 

return FALSE; 
pView- >Adj ustFrameWindow ( ) ; 
BeginAnimation ( ) ; 



UpdateAl 1 Views (NULL) ; // COSBView : : OnUpdate ( ) - Render & Draw 

// CMapListView: : OnUpdate - 

UpdateList () 

// SetModifiedFlag (FALSE) ; 
return TRUE; 

} 



void CMapEdDoc : :DeleteContents 0 

{ 

TRACE (" CMapEdDoc : : DeleteContent s ( ) \n " ) ; 
SetModifiedFlag (FALSE) ; 
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CDocument : : DeleteContents () ; 

} 

1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 

I / CMapEdDoc serialization 

void CMapEdDoc :: Serialize (CArchiveSc ar) 
{ 

CDocument: : Serialize (ar) ; 
if (ar . IsStoring ( ) ) 

{ 



/* 
*/ 



m_SpriteList . Serialize (ar) ; 

} 

else // Reading 

{ 

/* 

// read the sprite list 
CMapEdView* pView = GetMapEdView ( ) ; 
ASSERT (pView) ; 

m_SpriteList . m_Notif yOb j . SetView (pView) ; 
Tn_SpriteList . Serialize (ar) ; 

SetModifiedFlag (FALSE) ; 
UpdateAll Views (NULL, 0, NULL) ; 

*/ 

} 

} 

///////////////////////////////////////////////////////////////////////////// 
// CMapEdDoc diagnostics 

#ifdef _DEBUG 

void CMapEdDoc : :AssertValid ( ) const 

{ 

CDocument : : AssertValid () ; 

} 

void CMapEdDoc :; Dump (CDumpContext& dc) const 

{ 

CDocument : :Dump (dc) ; 

} 

#endif //_DEBUG 

1 1 1 1 1 / 1 1 11 1 1 1 / 1 1 n I u n 1 1 / 1/ / 1 II 1 1 1 / 1 1 11 1 1 1 1 1 1 / 11 n 1 1 1 III / III 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 

II CMapEdDoc commands 

CMapEdView* CMapEdDoc : : GetMapEdView ( ) 
{ 

POSITION pos ^ GetFirstViewPositionO ; 
ASSERT (pos) ; 

CMapEdView* pView = (CMapEdView* ) GetNextView (pos) ; 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME__CLASS (CMapEdView) ) ) ; 
return pView; 

} 
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CMapListView* CMapEdDoc : : GetMapListView ( ) 
{ 

POSITION pos = GetFirstViewPosition 0 ; 
ASSERT (pos) ; 
GetNextView (pos ) ; 

CMapListView* pView = (CMapListView* ) GetNextView (pos 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME_CLASS (CMapListView) ) ) 
return pView; 

} 

void CMapEdDoc :: SetTitle (LPCTSTR IpszTitle) 

{ 

// UNREFERENCED_PARAMETER (IpszTitle) ; 

CString strTitle; 

strTitle . Format ( "Turtle Quarter View Editor V%.2f 
GetMapEditorVersion 0 ) ; 
if (IpszTitle) 

StrTitle += IpszTitle; 
CDocument : : SetTitle (strTitle) ; 

} 

void CMapEdDoc : : OnOptionsEnv ( ) 
{ 

if ( ! mjStage) 

return ; 
CMapEnvDlg dig; 

dlg.m_strDataPath = *gResMan . GetResPath () ; 
dlg.m_strPalFile = *m_jpStage- >GetPalFileName ( ) ; 
CTileMap* pTM = m_pStage- >GetTileMap () ; 
if (!pTM) 

return ; 

CSize szT (pTM->GetTileSize 0 ) ; 
CSize szScr (pTM- >GetScreenSize () ) ; 
dlg.m_nTileWidth = szT.cx; 
dlg.m_nTileHeight = szT.cy; 
dlg.m_nScrWidth = szScr.cx; 

dlg.m_nScrHeight = szScr.cy; 
dig. SetReadOnly () ; 
if (dlg.DoModal 0 == IDOK) 
{ 

gResMan . SetResPath (dig . m_strDataPath) ; 
m_pStage->SetPalFileName (dig . m_strPalFile) ; 



void CMapEdDoc : : OnFileOpen ( ) 

{ 

if ( im_pStage) 

return; 
EndAnimation ( ) ; 
m_jDStage- >Load ( ) ; 
CMapEdView* pView = GetMapEdView { ) ; 
pView- >AdjustFrameWindow () ; 
BeginAnimation 0 ; 
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UpdateAllViews (NULL) / 
UpdateTitle () ; 

} 

void CMapEdDoc : .-OnFileSave ( ) 

{ 

if ( !m_pStage) 
return; 

m_jpStage->Save ( *m_pStage- >GetFileName { ) ) ; 
CMapListView* pView = GetMapListView ( ) ; 
UpdateAllViews (pView) ; 
UpdateTitle () / 

} 

void CMapEdDoc : rOnFileSaveAs ( ) 
{ 

if ( !m_pStage) 

return ; 
m_jpStage->Save () ; 

CMapListView* pView = GetMapListView () ; 
UpdateAllViews (pView) / 
UpdateTitle 0 ; 

} 

void CMapEdDoc :: UpdateTitle 0 
{ 

CString strTitle; 

CString* pSl = m_j)Stage- >GetFileName ( ) ; 
CString* pS2 = m_pStage- >GetMapFileName { ) ; 
CString* pS3 = m_pStage - >GetPalFileName ( ) ; 
if (pSl) 
{ 

strTitle = "[" + *pSl + "]"; 

} 

if (pS2) 
{ 

StrTitle += " [" ; 
StrTitle += *pS2; 
StrTitle += "] " ; 

} 

if (pS3) 
{ 

StrTitle += " [ " ; 
StrTitle += *pS3 ; 
StrTitle += "] " ; 

} 

SetTitle (StrTitle) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// Edit Mode 

void CMapEdDoc : :OnEditMode ( ) 

{ 

m_nEditMode = (in_nEditMode TILE_EDIT MODE) ? 

SPRITE_EDIT_MODE ; ~ 
TILE_EDIT_MODE ; 
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void CMapEdDoc : : OnUpdateEditMode (CCmdUI* pCmdUI) 

pCmdUI->SetCheck (m_nEditMode == TILE_EDIT_MODE) ; 



void CMapEdDoc: : OnEdi tTileCoord ( ) 

m_bTileCoord = ! m_bTile Coord ; 



void CMapEdDoc : rOnUpdateEdi tTileCoord (CCmdUI* pCmdUI) 
pCmdUI->SetCheck (m_bTileCoord) ; 



void CMapEdDoc :: OnViewNoelev ( ) //No Elevation 

if {!m_pStage) 
return ; 

WORD wRM = m__pStage->GetRenderMode () ; 
wRM ^= RM_ELEV; 

m_pstage- >SetRenderMode (wRM) ; 

m_b Pause = { (wRM & RM_ELEV) ! = RM_ELEV) ; 

PauseAnimation ( ) ; 

CMapListView* pView = GetMapListView ( ) ; 
UpdateAllViews (pView) ; 

} 

void CMapEdDoc : :OnUpdateViewNoelev (CCmdUI* pCmdUI) 
{ 

if ( lm_pStage) 
return; 

WORD wRM = m_pStage->GetRenderMode ( ) ; 
pCmdUI->SetCheck ( (wRM & RM_ELEV) == RM ELEV) ; 

} 

void CMapEdDoc :: OnViewMapOnly ( ) 

{ 

if ( !m_pStage) 
return ; 

WORD wRM ^ m_pStage->GetRenderMode ( ) / 
wRM RM_SPRITE; 
m_jpStage->SetRenderMode (wRM) ; 

m_nEditMode = ( (wRM & RM_SPRITE) RM_SPRITE) ? SPRITE_EDIT_MODE 

TIIiE_EDIT_MODE; ~ 
CMapListView* pView = GetMapLi stView ( ) ; 
UpdateAllViews (pView) ; 

} 

void CMapEdDoc : :OnUpdateViewMapOnly (CCmdUI* pCmdUI) 

if ( !m_pStage) 
return; 

WORD wRM = mjpStage->GetRenderMode 0 ; 
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pCmdUI->Enable ( (wRM & RM_ELEV) != RM_ELEV) ; 
elevation mode 

pCmdUI ->Set Check ( {wRM & RM_SPRITE) RM_SPRITE) 



void CMapEdDoc : : OnViewGraph ( ) 

{ 

m_bViewGraph = 1 m_bViewGraph; 
m_bPause = m_bViewGraph ; 
PauseAnimation { ) ; 

CMapEdView* pView = GetMapEdView ( ) ; 
if (pView) 

pView->Invalidate (FALSE) ; 

} 

void CMapEdDoc : lOnUpdateViewGraph (CCmdUI* pCmdUI) 

{ 

pCmdUI->SetCheck (m_bViewGraph) ; 



void CMapEdDoc : : OnViewEaGraph ( ) 

{ 

m_bViewEAGraph = !m_bViewEAGraph; 
m_bPause = m_bViewEAGraph ; 
PauseAnimation ( ) ; 

CMapEdView* pView = GetMapEdView () ; 
if (pView) 

pView->lnvalidate (FALSE) ; 

} 

void CMapEdDoc : :OnUpdateViewEaGraph (CCmdUI* pCmdUI) 
pCmdUI->Set Check (m_bViewEAGraph) ; 



void CMapEdDoc : :OnViewGr id () 

{ 

if ( ^f"_pStage) 
return; 

WORD wRM = m_j)Stage->GetRenderMode 0 ; 
wRM ^= RM_GRID; 

m_jDStage->SetRenderMode (wRM) ; 
CMapListView* pView = GetMapListView ( ) ; 
UpdateAllViews (pView) ; 

) 

void CMapEdDoc : :OnUpdateViewGr id (CCmdUI* pCmdUI) 

if ( i m_pStage) 
return; 

WORD wRM = mj>Stage->GetRenderMode 0 ; 
pCmdUI->SetCheck ( (wRM & RM_GRID) == RM_GRID) ; 



void CMapEdDoc : : OnViewEarth ( ) 

{ 

} 
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void CMapEdDoc : :OnUpdateViewEarth {CCmdUI* pCmdUI ) 
pCmdUI- > Set Check (m bViewEarth) ; 

} 



void CMapEdDoc : :OnViewPalette ( ) 
{ 

CPalDlg palDlg; 

CMapEdView* pView = GetMapEdView ( ) ; 
if (pView) 

palDlg.SetPalette (pView- >GetOSBPalette () ) ; 
palDig .DoModal () ; 

} 

void CMapEdDoc :: OnViewPause ( ) 

{ 

m_bPause = !m_bPause; 
PauseAnimation ( ) ; 

} 

void CMapEdDoc : :OnUpdateViewPause (CCmdUI* pCmdUI) 
pCmdUI->SetCheck (m bPause) ; 

} 



void CMapEdDoc: : OnMenuStageTi tie ( ) 

{ 

if ( !m_pStage) 

return; 
CGetTextDlg dig; 

dig . m_st rCapt ion . LoadString { IDS_ENTER_STAGE_TITLiE) ; 

CString strTi tie ( *m_pStage- >GetTi tie ( ) ) ; 

CString strFile ( *m_pStage - >GetFileName () ) ; 

gResMan. MakeResName (strFile) ; 

if (strTitle . IsEmpty {) ) 

{ 

StrTitle. Format (" [u2/%s] " , strFile) ; 

} 

else 
{ 

int i =r StrTitle . Find (•/') ; 

if (i <= 0) 

{ 

if (StrTitle [0] === ■[•) // [U2] or [u2] 
CString strTemp; 

int nCount = strTitle . GetLength () ; 

if (nCount >= 4) 

{ 

StrTemp = strTitle . Right (nCount -4 ) 
StrTemp . TrimLef t ( ) ; 

StrTitle . Format ( " [u2/%s] " , strFile 
StrTitle += strTemp; 

} 
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} 

} 

dlg.m_strText = strTitle; 
if (dlg.DoModal {) == IDOK) 

m_pStage->SetTitle (dig . m_strText ) ; 



void CMapEdDoc: : OnMenuStageMusic ( ) 

if (!m_pStage) 

return ; 
CGetTextDlg dlg; 

dlg . m_strCapt ion . LoadString ( IDS_ENTER__STAGE_MUSIC) ; 
dlg.m_strText = *m_pStage - >GetMusicSeq ( ) ; // " [U2] " 
if (dlg.DoModal () IDOK) 
^ m_pStage->SetMusicSeq(dlg.m_strText) ; 

void CMapEdDoc : lOnEditStand ( ) 
{ 

m_bStandEdit = i m_bStandEdit ; 
if (!m_pStage) 
return; 

WORD wRM = m_jpStage->GetRenderMode 0 ; 
if (m_bStandEdit) 

wRM 1= RM_GRID; 

else 

wRM Sc= -RM_GRID; 
m_pStage->SetRenderMode (wRM) ; 
CMapListView* pView = GetMapListView ( ) ; 
UpdateAllViews (pView) ; 



void CMapEdDoc : rOnUpdateEditStand (CCmdUI* pCmdUI) 
pCmdUI->SetCheck (m^bStandEdit) ; 



void CMapEdDoc : : OnEdi tCreateMode ( ) 

m_bCreateMode = ! m_bCreateMode ; 



void CMapEdDoc : :OnUpdateEdi tCreateMode (CCmdUI* pCmdUI) 
pCmdUI->SetCheck{m_bCreateMode) ; 



void CMapEdDoc : : OnMenuRecalcDa ( ) 

CMapEdView* pView = GetMapEdView ( ) ; 
pView->RecalculateDA() ; 

CMapListView* pMLV = GetMapListView () ; 
UpdateAllViews (pMLV) ; 

AfxMessageBox( "Recalculating DA(Direction Attribute) - Done") 
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void CMapEdDoc : :OnMenuSyncEa {) 

CMapEdView* pView = GetMapEdView ( ) ; 
pView->SynchronizeEA() ; 

CMapListView* pMLV = GetMapListView { ) ; 
UpdateAllViews (pMLV) ; 

AfxMessageBox ( "Synchronizing EA (Elevation for Actor) 
elevation - Done"); 



void CMapEdDoc: : OnMenuElevation ( ) 
{ 

CGetlntDlg dlg; 

dlg .m_strCaption.LoadString (IDS_ENTER_TILE_ELEVS) ; 
dig . m_nNew = 0 ; 

if (dlg.DoModal () != IDOK) 

return; 

CTileMap* pTM = m_pStage - >GetTileMap () ; 

pTM- >IncreaseElevations (dig .m_nNew * ELEVATION UNIT) 

CMapListView* pView ^ GetMapListView () ; 
UpdateAllViews (pView) ; 
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// MapEdDoc.h : interface of the CMapEdDoc class 
// 

// = = = ^^ = ^ = ^^^^^=.^ = = ^ = ^ = ^=^^ = = ^^^ = ^^ = ^ = ^^^^^^^^^^ 
II (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

// = = = = = = = = = .=. = = = = ... = = = = .^ = === = ^^.^ = = = = ^ = = = ^ = = ^^ 



#if ! defined ( AFX_MAPEDDOC_H 7ECC1E0C_9C09_11D1_80E2_288A06C10000 INCLUDED 

#def ine AFX_MAPEDDOC_H 7ECC1EOC_9C09_11D1_8 0E2_2 8 8A06C10000 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CDIB; 
class CMapEdView; 
class CMapListView; 
class CResMan; 
class CTiles; 
class CStage; 



enum MAP_EDIT_MODE 
{ 

TILE_EDIT_MODE , 
S PR I TE_ED I T_MODE , 
S TAND_ED I T_MODE 

}; 



class CMapEdDoc : public CDocument 

{ 

protected : / / create from serialization only 
CMapEdDoc ( ) ; 

DECLARE_DYNCREATE (CMapEdDoc) 



// Attributes 
public : 

CMapEdView* 

CMapListView* 

CStage* 

void 

BOOL 

BOOL 

BOOL 
BOOL 
BOOL 
BOOL 

// Operations 
public : 

void 

} 

void 

bTC; } 

void 



{ return m_pStage; } 



GetMapEdView ( ) ; 
GetMapListView ( ) ; 

GetStage { ) 
UpdateTitle () ; 
IsTileEditMode { ) const 

{ return (m_nEditMode == TILE_EDIT_MODE) 
IsStandEditMode ( ) const 

{ return m_bStandEdit ; } 
IsViewGraph 0 const { return m_bViewGraph ; } 
IsViewEAGraphO const { return m_bViewEAGraph ; 
IsTileCoordMode ( ) const { return m_bTileCoord; 
IsCreateMode 0 const { return m_bCreateMode ; } 



SetEditMode (const int nMode) { m_nEditMode = nMode; 
SetTileCoordMode (const BOOL bTC) { m_bTileCoord - 

BeginAnimation ( ) const 
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{ { (CMapEdApp*) AfxGetAppO ) - 

>Set Stage (m_pStage) ; } 

void EndAnimat ion ( ) const 

{ ( (CMapEdApp* ) Af xGetApp ( ) ) - >SetStage (NULL) 
void PauseAnimation ( ) const 

{ ( (CMapEdApp*) AfxGetAppO ) - 

>SetPause {m_bPause) ; } 



private : 

BOOL 
BOOL 
BOOL 
int 



Edit 



BOOL 
BOOL 
BOOL 
BOOL 
CStage^ 



m_bViewEarth; 
m__bViewGr aph ; 
m_bViewEAGraph ; 

m__nEdi tMode ; 

m_bStandEdit ; 
m_bCreateMode ; 
m_bTileCoord; 
m__bPause ; 

m_pStage; 



// 0: Tile Edit, 1: Sprite 

// LBUTTONDONW Create sprite 
// Pause Animation 



// Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CMapEdDoc) 
public : 

virtual BOOL OnNewDocument ( ) ; 
virtual void Serialize (CArchiveSc ar) ; 
virtual void SetTitle (LPCTSTR IpszTitle) ; 
virtual void DeleteContents { ) ; 
// } } AFX_VIRTUAL 

// Implementation 
public : 

virtual -CMapEdDoc () ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Contexts dc) const; 

#endif 



protected : 



// Generated message map functions 
protected : 

// { { AFX_MSG (CMapEdDoc) 

afx_msg void OnViewGrid ( ) ; 

afx__msg void OnUpdateViewGrid (CCmdUI * pCmdUI) ; 
afx_msg void OnViewEarth ( ) ; 

afx_msg void OnUpdateViewEarth (CCmdUI* pCmdUI) ; 

afx_msg void OnViewPalette ( ) ; 

afx__msg void OnOpt ionsEnv ( ) ; 

afx_msg void OnFileOpen ( ) ; 

afx_msg void OnFileSave () ; 

afx__msg void OnFileSaveAs ( ) ; 

afx_msg void OnEditMode ( ) ; 

afx_msg void OnUpdateEdi tMode (CCmdUI* pCmdUI) ; 
afx_msg void OnViewMapOnly ( ) ; 

afx_msg void OnUpdateViewMapOnly (CCmdUI* pCmdUI) ; 
afx_msg void OnVi ewGraph ( ) ; 
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afx_msg void OnUpdateViewGraph (CCmdUI * pCmdUI) ; 
afx_Tnsg void OnEdi tTileCoord ( ) ; 

afx_msg void OnUpdateEditTileCoord (CCmdUI* pCmdUI) ; 
afx_msg void OnViewPause ( ) ; 

afx_msg void OnUpdateViewPause (CCmdUI * pCmdUI) / 
afx_Tnsg void OnMenuStageTitle () ; 
afx_msg void OnEditStand () ; 

afx_msg void OnUpdateEditStand {CCmdUI * pCmdUI) ; 
afx_msg void OnEditCreateMode ( ) ; 

afx_msg void OnUpdateEditCreateMode (CCmdUI* pCmdUI); 
afx_msg void OnMenuRecalcDa { ) ; 
af x_Tnsg void OnMenuSyncEa { ) ; 
afx_msg void OnViewNoelev ( ) ; 

afx_msg void OnUpdateViewNoe lev (CCmdUI* pCmdUI) ; 
afx_msg void OnMenuStageMusic ( ) ; 
afx_msg void OnViewEaGraph ( ) ; 

afx_msg void OnUpdateViewEaGraph (CCmdUI* pCmdUI) ; 
afx_msg void OnMenuElevation ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_MAPEDDOC_H 7ECC1EOC_9C09_11D1_80E2 288A06C10000 INCLUDED ) 
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// MapEdView . cpp : implementation of the CMapEdView class 
// 

//^^^ = = = = ^^ = = ^^^ = = ^^^^ = ^^ = = =.^ = ^ = = ^^ = ^^^^^^^^^ = = ^^^ = = = ^^^^ 
II (C) Programmed by Kim, Feb 199 8 

// Information Technology Institute 
// UNICHAT INC 



#include " stdaf x . h" 
# i nclude " MapEd . h " 



# include " MapEdDoc . h " 
#include "MapEdView . h" 
#include "MapListView . h " 
#include "MainFrm.h" 
#include " . ./ResMan.h" 
#include " . . /TileMap . h" 
#include " . . /Stage . h" 
#include "Get IntDlg . h" 
#include "GetTextDlg . h" 

#include " . . /UC2Ani/DIB . h" 
#include . /UC2Ani/DIBPal . h" 
#include " . . /UC2Ani/PhSprite . h' 

#include "resource. h" 



#ifdef _DEBUG 
#define new DEBUG__NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



extern CResMan gResMan; 

///////////////////////////////////////////////////////////////////////////// 
// CMapEdView 



IMPLEMENT_DYNCREATE (CMapEdView, COSBView) 



BEGIN_MESSAGE_MAP (CMapEdView, COSBView) 
// { { AFX_MSG_MAP (CMapEdView) 
ON_WM_LBUTTONDOWN ( ) 
ON_WM_LBUTTONUP ( ) 
ON_WM_MOUSEMOVE ( ) 
ON_WM_LBUTTONDBLCLK ( ) 
ON_WM_RBUTTONDOWN ( ) 

ON_COMMAND ( ID_SPRITE__DELETE , OnSpri teDelete ) 
ON_COMMAND (ID_SPRITE_ELEVATION, OnSpri teElevat ion) 
ON_COMMAND (ID_SPRITE_FLIP, OnSpri teFl ip ) 
ON_COMMAND (ID_SPRITE_OPACITY10 0, OnSpriteOpacitylOO ) 
ON_COMMAND ( ID_SPRITE_OPACITY12 , OnSpri teOpacityl2 ) 
ON_COMMAND (ID_SPRITE_OPACITY2 5 , OnSpri teOpacity2 5 ) 
ON_COMMAND {ID_SPRITE_OPACITY50 , OnSpri teOpacityS 0 ) 
ON_COMMAND (ID_SPRITE_VERTICAL, OnSpri teVertical) 
ON_COMMAND (ID_SPRITE_FLIPVERT, OnSpriteFlipvert ) 
ON_COMMAND (ID_SPRITE_TYPE, OnSpri teType ) 
ON_COMMAND ( ID_MENU_ANI_REPEAT, OnMenuAniRepeat ) 
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ON_COMMAND ( ID_MENU__ANI_FADE , OnMenuAniFade ) 
ON_COMMAND ( ID_MENU_NOANI , OnMenuNoani ) 
ON_COMMAND (ID_SPRITE_OPACITY75, OnSpri teOpacity75 ) 
ON_COMMAND { ID_ACTOR_ELEVATION, OnActorElevat ion ) 
ON^COMMAND ( ID_MENU_ANI_RANDOM , OnMenuAni Random) 
ON_WM_SETCURSOR { ) 

ON_COMMAND ( ID_MENU_DA_FR , OnMenuDaFr ) 
ON_COMMAND ( ID_MENU_DA_BL , OnMenuDaBl ) 
ON_COMMAND { ID_MENU_DA_BR , OnMenuDaBr ) 
ON_COMMAND ( ID_MENU_DA_FL , OnMenuDaFl ) 
01sr_C0MMAND ( ID_MENU_DA_OPEN, OnMenuDaOpen) 
ON_COMMAND ( ID_MENU_DA_CIiOSED , OnMenuDaClosed ) 
ON_COMMAND {ID_MENU_EXIT_POINT, OnMenuExit Point ) 
ON_COMMAND ( ID_MEmj_ENTRY_POINT , OnMenuEntryPoint ) 
// } }AFX_MSG_MAP 

/ / Standard printing commands 

ON_COM^4AND (ID_FILE_PRINT, CView: rOnFilePrint ) 
ON_COMMAND{ID_FILE_PRINT_DIRECT, CView: : OnFilePrint ) 
0N_C0MMAND(ID_FILE_PRINT__PREVIEW, CView: : OnFi lePrint Preview) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMapEdView construction/destruction 

CMapEdView: : CMapEdView ( ) 



{ 



TRACED ("CMapEdView: : CMapEdView () \n " ) ; 
m_bMouseCaptured = FALSE; 

m_pCS - NULL; // LBUTTONDOWN 

m__pMS = NULL; // RBUTTONDOWN 

m_wCurResType = 0 ; 



TRACE ("* sizeof(CDIB) 
TRACE ("* sizeof (CSprite) 
TRACE ("* sizeof (CPhasedSprite) 

sizeof (CPhasedSprite) ) ; 

} 

CMapEdView: : -CMapEdView ( ) 



= %d bytes\n", sizeof (CDIB) ) ; 
= %d bytes\n", sizeof (CSprite) ) 
- %d bytes\n" , 



TRACED ("CMapEdView: : -CMapEdView () \n") 



BOOL CMapEdView: : PreCreateWindow(CREATESTRUCTSc cs) 



TRACED ("CMapEdView: : PreCreateWindow ( ) \n") ; 

// TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 



} 



return CView: : PreCreateWindow (cs) ,- 



///////////////////////////////////////////////////////////////////////////// 
// CMapEdView drawing 

void CMapEdView: :OnDraw(CDC* pDC) 

{ 
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} 



CMapEdDoc* pDoc - GetDocument ( ) ; 
ASSERT_VALID (pDoc) ; 

COSBView: :OllDraw(pDC) ; 

CStage* pStage = pDoc - >GetStage ( ) ; 
if (IpStage) 
return ; 

CTileMap* pTM = pStage - >GetTileMap ( ) ; 
if (!pTM) 

return; 
if (pDoc->IsViewGraph() ) 

pTM->DrawElevationGraph (pDC) ; 
if (pDoc->IsViewEAGraph ( ) ) 

pTM->DrawActorElevationGraph (pDC) ; 



///////////////////////////////////////////////////////////////////////////// 
// CMapEdView printing 

BOOL CMapEdView: :OnPreparePrinting (CPrint Info* pinfo) 

// default preparation 

return DoPreparePrinting (pinf o) ; 

void CMapEdView: lOnBeginPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
^ // TODO: add extra initialization before printing 

void CMapEdView: rOnEndPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
^ // TODO: add cleanup after printing 

///////////////////////////////////////////////////////////////////////////// 

// CMapEdView diagnostics 
#ifdef _DEBUG 

void CMapEdView: :AssertValid() const 
{ 

CView: :AssertValid ( ) ; 

} 

void CMapEdView: : Dump (CDumpContext& dc) const 
CView : :Dump(dc) ; 

} 

CMapEdDoc* CMapEdView: : GetDocument () // non-debug version is inline 

ASSERT (m_pDocument->IsKindOf (RUNTIME_CLASS (CMapEdDoc) ) ) ; 
^ return (CMapEdDoc* ) m__pDocument ; 

#endif // DEBUG 
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/////////////////////////////////////////////////////////////////////,/////// 

I / CMapEdView message handlers 

/ / Create a new buffer and palette to match a new background DIB 

BOOL CMapEdView: :CreateOSB (CDIB* pDIB) 

{ 

m_jpCS = NULL; 
m_pMS ^ NULL; 



// Create a new buffer and palette 
if ( ICOSBView: .-CreateOSB (pDIB) ) 
return FALSE ; 



// Map the colors of the background DIB to 

// the identity palette we just created for the background 
pDIB->MapColorsToPalette ( (CPalette* ) GetOSBPalette () ) ; 

// Resize the main frame window to fit the background image 
GetParent Frame ( ) - >RecalcLayout ( ) ; 

ResizeParentToFit (FALSE) ; // Try shrinking first 

ResizeParentToFit (TRUE) ; // Let's be daring 

Render 0; // Render the entire scene to the off -screen buffer 
// DrawOSBO; // Paint the off -screen buffer to the window 
Invalidate (FALSE) ; 



return TRUE; 

} 



// Render the scene to the off -screen buffer pClipRect defaults to NULL 
void CMapEdView: : Render (CRect* pClipRect) 

CStage* pStage = GetDocument ( ) - >GetStage ( ) ; 
if (pStage) 

pStage->Render (pClipRect) ; 

void CMapEdView: rOnLButtonDown (UINT nFlags , CPoint point) 

if (m_bMouseCaptured) 
return; 

CClientDC dc{this); 

OnPrepareDC(&dc) ; // CScrollView changes the viewport origin and 
mapping mode . 

CPoint Ipt (point) ; 
dc -DPtoLP (&lpt) ; 



CMapEdDoc* pDoc = GetDocument () ; 
CStage* pStage = pDoc->GetStage ( ) ; 
if (IpStage) 
return; 

CTileMap* pTM = pStage- >GetTileMap () ; 
if (!pTM) 

return; 
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// See if it hit a sprite 

CPhasedSprite* pSprite; 

if (pDoc->IsTileEditMode ( ) ) 

{ 

pSprite = (CPhasedSprite*) pStage- >TileHitTest (Ipt) ; 

} 

else 

{ 

WORD wRM = pStage- >GetRenderMode ( ) ; 

if ( (wRM & RM^ELEV) 1= RM_ELEV) // No Elevation mode 

{ 

if ( !pDoc->IsStandEditMode {) ) // OnLButtonDblClk 
{ 

AfxMessageBox { " You can edit only tiles in No 

Elevation Mode 1 " ) ; 

} 

return; 

} 

pSprite = (CPhasedSprite*) pStage- >SpriteHitTest (Ipt) ; 
if (pSprite {pSprite- >GetSrcType () SPRITE_TILE) ) 

{ 

pSprite = NULL; 

} 

} 

if (pSprite) 

{ 

m_bMouseCaptured = TRUE; 
if (m_pCS pSprite) 

{ 

m_pCS = pSprite; 

TRACE ( "Sprite %8.8XH Selected ( %04x) \n" , m_pCS , m__pCS- 

>GetType 0 ) ; 

} 

SetCapture ( ) ; 

m_wCurResType = m_j)CS - >GetSrcType ( ) ; 

CSize SEP (m_j)CS- >GetEarthPoint ( ) ) ; 
m_sOffset = Ipt - SEP; 
// Showlnfo (Ipt) ; 

} 

else if (pDoc- >IsCreateMode ( ) ) // Insert New Sprite 

{ 

CMapListView* pMLV = pDoc- >GetMapListView ( ) ; 
ASSERT (pMLV) ; 

m_wCurResType = pMLV- >GetSelectedResType ( ) ; 
if (m_wCurResType === 0) 

return; 
if (pDoc->IsTileEditMode 0 

( (m_wCurResType & SPRITE_SRC_MASK) != SPRITE_TILE) ) 
{ // Change Edit Mode 

// pDoc->SetEditMode ( SPRITE_EDIT_MODE) ; 

return; 

} 
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CString strName; 

if (pMLV- >GetSelectedResName (strName) < 0) 
return; 

// Resource Allocation via Resource Manager 

CPhasedSprite* pPS = gResMan . LoadPhasedSprite (strName , 

(m wCurResType != 
SPRITE_ACTOR) ) ; ~ 

if (IpPS) 

{ 

StrName += " not found!"; 
AfxMessageBox (strName) ; 
return; 

} 

if ( (m_wCurResType === SPRITE_PHASED) | | 
(m_wCur Res Type == SPRITE ACTOR) ) 

{ 

pPS->SetType (m_wCurResType , SPRITE_ANI_REPEAT) ; 
pPS->SetMSPT (150L) ; 

} 

pPS->SetCell (pMLV->m_nCellID) ; 

if (pDoc->IsTileEditMode () ) 
{ 

pPS- >MoveToCenter (Ipt) ; 

pStage->InsertTile (pPS) ; // AddDirtyRegion 

WORD wRM = pStage->GetRenderMode ( ) ; 

if ( (wRM & RM_ELEV) RM ELEV) // No Elevation mode 

{ 

int nElev = pPS - >GetElevation () ; 
if (nElev) 

{ 

CRect rc ; 

pPS->GetRect (rc) ; 

rc.top += nElev; 

rc. bottom +- nElev; 

AddDirtyRegion (&rc) ; 

} 

} 

} 

else 
{ 

CPoint ptTID(pTM->GetNearestTileIndex(lpt) ) ; 
CPoint ptC = pTM->GetCenter (ptTID) ; 
int nElev ^ pTM- >GetElevation (ptTID) ; 

if ( (m_wCurResType & SPRITE_SRC_MASK) SPRITE_WALL) 

if ( (m_wCurResType & SPRITE_ACTOR) == SPRITE_ACTOR) 
pPS->SetElevation (pTM->GetEA(ptTID) ) ; 

else 

pPS->SetElevation (nElev) ; // Normal Sprites 

} 

pPS->MoveToEarth (pDoc->IsTileCoordMode 0 ? ptC : Ipt); 

if (pPS->GetSrcType 0 == SPRITE_TILE) // m sprite edit 

mode 
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pPS->SetSrcType (SPRITE_STATIC) ; // We put tile as 

a normal sprite 

pPS->SetZByEarth {) ; 

pStage->InsertSprite (pPS) ; // AddDirtyRegion 

//we need to put more walls for elevated tile... 

if {nElev && ( (m_wCurResType & SPRITE_SRC_MASK) == 

SPRITE_WAIiL) ) 

{ 

int n = nElev / ELEVATION_UNIT; 

for (int e=l; e < n; e++) 

{ 

CPhasedSprite* pWall = 
gResMan . LoadPhasedSprite (strName) ; 

if (IpWall) 
{ 

StrName += " not found!"; 
AfxMessageBox (strName) ; 
return; 

} 

pWall->SetCell (pMLV- >m_nCellID) ; 
pWall->SetElevation (e * ELEVATION_UNIT) ; 
pWall->MoveToEarth (ptC) ; 
pWall->SetZByEarth 0 ; 

pStage->InsertSprite (pWall) ; // AddDirtyRegion 

} 

} 

RenderAndDrawDirtyList ( ) ; 
// Showlnfo (Ipt) ; 

} 

// COSBView: :OnLButtonDown (nFlags, point) ; 

} 



void CMapEdView: :OnLButtonUp (UINT nFlags, CPoint point) 
if (m_bMouseCaptured) 

{ 

: : ReleaseCapture () ; 
m_bMouseCaptured = FALSE; 
m_pCS = NULL; 
m_pMS = NULL; 

} 

// COSBView: : OnLButtonUp (nFlags , point) ; 
} 

void CMapEdView: lOnMouseMove (UINT nFlags, CPoint point) 
CClientDC dc(this); 

OnPrepareDC (&dc) ; // CScrollView changes the viewport origin and 
mapping mode . 

CPoint Ipt (point) ; 
dc.DPtoLP(&lpt) ; 



CMapEdDoc* pDoc = GetDocument ( ) ; 
CStage* pStage = pDoc - >GetStage ( ) ; 
if (IpStage) 
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return ; 

CTileMap* pTM = pS tage - >GetTi leMap { ) ; 
if (!pTM) 

return; 

CPoint ptTID (pTM->GetNearestTileIndex (Ipt ) ) 
Showinf o { Ipt , ptTID) ; 

if ( !m_bMouseCaptured) 

return; 
ASSERT (m_pCS) ; 

if (pDoc->IsTileEditMode () ) 



{ 
} 

else // Sprite edit mode 



pStage->MoveTileSpriteTo (m__pCS, Ipt) ; 



// Render 



{ 



if (pDoc- >IsTileCoordMode ( ) ) 
{ 

CPoint ptC (pTM->GetCenter (ptTID) ) ; 

if ( (m_wCurResType & SPRITE_ACTOR) == SPRITE ACTOR) 



Actors 



break; 
break; 
break; 



m _pCS ->SetElevation(pTM->GetEA (ptTID) ) ; // for 

switch (pTM->GetDA (ptTID) ) 
{ 

case DA_OPEN: m_jDCS - >SetOpacity (OPACITY_100 ) ; 

case DA^CLOSED: m__pCS - >SetOpaci ty (OPACITY_25 ) ; 

m_pCS->SetOpacity (OPACITY 100); 



default : 



} 

} 

else if ( (m_wCur Res Type & SPRITE_WALL) ]= SPRITE_WALL) 



for Sprites 



m_j)CS->SetElevation (pTM- >GetElevation (ptTID) ) 

} 

m_pCS->MoveToEartli(ptC) ; 



// 



} 

else // Free coord, mode 
{ 

CPoint ptNewdpt - m_sOffset) 
m_pCS->MoveToEarth (ptNew) ; 



} 

m_pCS->SetZByEarth () ; 

// For sprites inserted into CSpriteList, SetZ() adds dirty reqion fc 
itself. 

} 

RenderAndDrawDirtyList () ; 
// GetDocument 0 ->SetModif iedFlag (TRUE) ; 

// COSBView: :OnMouseMove (nFlags, point) ; 



void CMapEdView: :ShowInfo (const CPoint& point, const CPoint& ptTID) 
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// Show current state in the status bar 

CMainFrame* pFrame = (CMainFrame * ) (Af xGetApp ( ) - >m__pMainWnd) ; 
ASSERT (pFrame) ; 
int nS=0; 
int nA=0; 

CMapEdDoc* pDoc = GetDocument ( ) ; 
CStage* pStage = pDoc - >GetStage ( ) ; 
if (pStage) 

{ 

nS = pStage- >GetNumSprites 0 ; 
nA =r pStage - >GetNumAniSprites 0 ; 



char buf [256] ; 

wsprintf (buf , "(%d,%d) T[%d,%d] Sprites :%d Ani:%d", 

point. X, point. y, ptTID.x, ptTID.y, nS , nA) ; 
pFrame- >SetStatusBarText (buf ) ; 



void CMapEdView: :OnLButtonDblClk(UINT nFlags , CPoint point) 
CClientDC dc(this); 

OnPrepareDC(&dc) ; // CScrollView changes the viewport origin 
mapping mode . 

CPoint Ipt (point); 
dc .DPtoIiP (&lpt ) ; 

CMapEdDoc* pDoc = GetDocument () ; 
CStage* pStage = pDoc- >GetStage () ; 
if (IpStage) 
return; 

CTileMap* pTM = pStage - >GetTileMap () ; 
if (ipTM) 

return; 

if (pDoc->IsStandEditMode () ) 

{ 

m_jptHit = Ipt; 

OnMenuDirectionAttribute (DA_CLOSED) ; 
return; 

} 

// See if it hit a sprite 
CPhasedSprite* pSprite; 
if (pDoc->IsTileEditMode () ) 
{ 

pSprite = (CPhasedSprite*)pStage->TileHitTest (Ipt) ; 
if (pSprite) 

{ 

CPoint ptTID(pTM->GetNearestTileIndex(lpt) ) ; 
pTM- >IncEA (ptTID, ELEVATION_UNIT) ; 

} 

else 

{ 

pSprite = (CPhasedSprite*)pStage->SpriteHitTest (Ipt) ; 
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if (pSprite (pSprite - >GetSrcType ( ) SPRITE_TILE) ) 

pSprite = NULL; 

} 

} 

if (pSprite) 

{ 

pSprite- >IncElevation (ELEVATION_UNIT) ; 
pSprite->MoveBy (0 , -ELEVATION_UNIT) ; 
pSprite- >SetZByEarth 0 ; 
if (pDoc->IsViewGraph() ) 

Invalidate (FALSE) ; // To update DrawElevationGraph ( ) 

RenderAndDrawDirtyList 0 ; 

} 

COSBView; : OnLButtonDblClk (nFlags , point) ; 



void CMapEdView: lOnRButtonDown (UINT nFlags, CPoint point) 
CClientDC dc(this); 

OnPrepareDC(&dc) ; // CScrollView changes the viewport origin and 
mapp i ng mode . 

CPoint Ipt (point) ; 
dc .DPtoLP (&lpt) ; 

CMapEdDoc* pDoc = GetDocument () ; 
CStage* pStage = pDoc - >GetStage ( ) ; 
if ( ipStage) 
return; 

if (pDoc->IsStandEditMode () ) 
{ 

CTileMap* pTM = pStage- >GetTileMap () ; 
if (!pTM) 

return ; 

CPoint ptTID(pTiy[->GetNearestTileIndex(lpt) ) ; 
CMenu menu; 

VERIFY (menu . LoadMenu ( IDR_MENU_GRID) ) ; 
CMenu* pPopup = menu . GetSubMenu ( 0 ) ; 
m__ptHit = Ipt; 

WORD wDA = pTM->GetDA (ptTID) ; 
if ( (wDA Sc DA_FR) DA_FR) 

pPopup->CheckMenuItem (ID_MENU_DA_FR, MF CHECKED); 
if ( (wDA £c DA__FL) DA_FL) ~ 

pPopup->CheckMenuItem (ID_MENU_DA_FL, MF_CHECKED) ; 
if ( (wDA Sc DA_BR) DA__BR) 

pPopup->CheckMenuItem (ID_MENU_DA__BR, MF_CHECKED) ; 
if ( (wDA & DA_BL) DA_BL) 

pPopup->CheckMenuItem (ID_MENU_DA_BL, MF_CHECKED) ; 
if (wDA DA_OPEN) 

pPopup->CheckMenuItem (ID__MENU_DA_OPEN, MF_CHECKED) ; 
else if (wDA DA_CLOSED) 

pPopup->CheckMenuItem (ID_MENU_DA_CLOSED, MF_CHECKED) ; 
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ClientToScreen (ficpoint) ; 

pPopup->TrackPopupMenu {TPM_LEFTAL I GN | TPM_RIGHTBUTTON, po 
point . y , this) ; 

return; 

} 

// See if it hit a sprite 
CPhasedSprite* pSprite; 
if (pDoc->IsTileEditMode () ) 
{ 

^ pSprite = (CPhasedSprite*) pStage->TileHitTest (Ipt) ; 

else 
{ 

pSprite = (CPhasedSprite*) pStage->SpriteHitTest (Ipt) ; 
if (pSprite && (pSprite- >GetSrcType () == SPRITE_TILE) ) 

pSprite = NULL; 

} 

} 

if (IpSprite) 
return; 

CMenu menu ; 

VERIFY (menu . LoadMenu ( IDR_MENU_TILE) ) ; 
CMenu* pPopup = menu . GetSubMenu ( 0 ) ; 
ASSERT (pPopup) ; 
m_pMS = pSprite; 
m_ptHit = Ipt; 

CString strName { *pSprite->GetName ( ) ) ; 
gResMan.MakeResName (strName) ; 
CString strZ; 

strZ . Format ( " [%d] " , pSprite - >GetZ () ) ; 

StrName += strZ; 

CString strType; 

switch (pSprite ->GetSrcType () ) 

{ 

case SPRITE_TILE: strType = "Tile"; break; 

case SPRITE_WALL: strType = "Wall"; break; 

case SPRITE_STATIC: strType = "Sprite"; break; 

case SPRITE_PHASED : StrType = "Phased"; breaks- 

case SPRITE_ACTOR: strType = "Actor"; break; 

switch (pSprite ->GetAniType () ) 
{ 

case SPRITE_ANI_REPEAT: strType += "(Repeat)"; break; 
case SPRITE_ANI__FADE: StrType += "(Fade)"; breaks- 
case SPRITE_ANI_ACTOR: strType += "(Actor)"; break]- 

StrName +~ strType; 

pPopup->InsertMenu (0, MF_BYPOSITION | MF_STRING, ID_SPRITE__TYPE , 
StrName) ; ~" 
CString strText ; 

strText . Format { "Elev=%d" , pSprite- >GetElevat ion ( ) ) ; 

pPopup - >Modi fyMenu (ID_SPRITE_ELEVATION, MF_BYCOMMAND | MF STRING, 
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ID_SPRITE_ELEVATION, strText) ; 
if (pSprite->GetSrcType () ^= SPRITE_TILE) 
{ 

CTileMap* pTM - pStage - >GetTileMap ( ) ; 

if (pTM) 

{ 

CPoint ptTID (pTM->GetNearestTileIndex (Ipt) ) ; 
StrText . Format ( "A. Elev=%d" , pTM- >GetEA (ptTID) ) ; 
pPopup->InsertMenu (ID_SPRITE_ELEVATION, MF_BYCOMMAND | 

MF_STRING, 

ID_ACTOR_ELEVATION , s t rText ) 

if (pSprite- >HasHyperlink ( ) ) 

{ 

if (pSprite- >GetLinkType ( ) == 
CPhasedSprite : : HLINK_U2_ENTRY) 

{ 

pPopup - >Modi f yMenu ( ID_MENU_ENTRY_POINT , 

MF_BYCOMMAND | MF_STRING, 

ID_MENU_ENTRY_POINT, *pSprite- >GetHyperlink ( ) ) ; 

p Popup ->CheckMenuItem(I D_MENU_ENTR Y_ PO INT, 

MF_CHECKED) ; 

} 

else 

{ 

p Popup - >Mod i f yMenu ( ID_MENU_EX I T_PO INT , 

MF_BYCOMMAND | MF_STRING, 

ID_MENU_EXIT_POINT, *pSprite - >GetHyperl ink () ) ; 

pPopup - >CheckMenuI tern ( ID_MENU_EXIT_POINT , 

MF CHECKED) ; 



} 

else 

{ 

MF_STRING) ; 
} 



} 



pPopup - >RemoveMenu ( ID_MENU_ENTRY_PO INT , MF_B YCOMMAND | 

pPopup- >RemoveMenu ( ID_MENU_EXIT_POINT , MF__BYCOMMAND | MF__STRING) 



if (pSprite->IsImageFlip ( ) ) 

pPopup - >CheckMenuI tern (ID__SPRITE_FLIP , MF_CHECKED) ; 
if (pSprite- >IsImageVertical 0 ) 

pPopup ->CheckMenuI tern (ID_SPRITE_VERTICAli, MF_CHECKED) ; 
if (pSprite->IsImageFlip ( ) pSprite- >Is ImageVertical () ) 

pPopup- >CheckMenuItem (ID__SPRITE_FLIPVERT, MF_CHECKED) ; 

switch (pSprite- >GetAniType { ) ) 
{ 

case SPRITE_ANI_REPEAT : 

pPopup ->CheckMenuI tern (ID_MENU_ANI_REPEAT, MF_CHECKED) ; 

break ; 

case SPRITE_ANI_FADE : 

pPopup- >CheckMenuI tern (ID_MENU_ANI_FADE, MF_CHECKED) ; breaks- 
case SPRITE ANI RANDOM: 
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pPopup- >CheckMenuItem{ ID__MENU_ANI_RANDOM, MF_CHECKED) ; 

break; 
} 

WORD wimOp = pSprite->GetImOp 0 / 
switch (wImOp & 0PACITY_I4ASK) 

{ 

case OPACITY_100: 

pPopup->CheckMenuItem (ID_SPRITE_OPACITY10 0 , MF_CHECKED) 

breaks- 
case OPACITY_75: 

pPopup->CheckMenuItem (ID_SPRITE_0PACITY75 , MF_CHECKED) ; 

break; 

case OPACITY_50: 

pPopup->CheckMenuItem (ID_SPRITE_OPACITY5 0, MF_CHECKED) ; 

break; 

case OPACITY_2 5: 

pPopup->CheckMenuItem(ID_SPRITE_OPACITY2 5 , MF_CHECKED) ; 

break; 

case OPACITY_12 : 

pPopup~>CheckMenuItem(ID_SPRITE_OPACITY12 , MF_CHECKED) ; 

break; 

} 

ClientToScreen (ficpoint) ; 

pPopup->TrackPopupMenu (TPiy!_LEFTALIGN | TPM_RIGHTBUTTON, point 
point .y, this) ; 

// COSBView: : OnRButtonDown (nFlags , point) ; 

void CMapEdView: : OnSpriteDelete ( ) 
{ 

if (!m__pMS) 

return; 

CMapEdDoc* pDoc = GetDocument ( ) ; 
CStage* pStage = pDoc- >GetStage ( ) ; 
if (IpStage) 
return; 

if (pDoc->IsTileEditMode {) ) 

pStage->DeleteTile (m_pMS) ; 

else 

pStage~>DeleteSprite (m_pMS) ; 
m_j5CS = NULL; 
m_pMS = NULL; 
RenderAndDrawDirtyList () ; 

} 

1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 / 1 1 / 1 / 1 1 1 1 1 / 1 1 / 1 1 / 1 / 1 1 1 

II Elevation 

void CMapEdView : : OnSpriteElevation ( ) 

{ 

if {!m_pMS) 

return; 

CMapEdDoc* pDoc = GetDocument () ; 

int nElevOld = m_pMS- >Get Elevation () ; 
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CGetlntDlg dig; 

dig . m_st rCapt ion . LoadStr ing ( IDS__ENTER_ELEVATION) ; 
dlg.m_nNew = nElevOld; // / ELEVATION_UNIT ; 
if (dlg.DoModal 0 != IDOK) ~ 
re turn ; 

m_pMS->SetElevation (dlg.m_nNew) ; // * ELEVATION UNIT); 

m_pMS->MoveBy (0, nElevOld - dig . m__nNew) ; // * ELEVATION ' UNIT) ; 
m_pMS - >Se t ZByEarth ( ) ; 

if (m__pMS->GetSrcType ( ) == SPRITE_TILE) 

CStage* pStage = pDoc- >GetStage { ) ; 

if (pStage) 

{ 

CTileMap* pTM = pStage - >GetTileMap () ; 
if (pTM) 

{ // call GetNearestTilelndexO after MoveBy 

CPoint ptTID (pTM->GetNearestTileIndex (m__pMS) ) 
pTM->SetEA{ptTID, m_pMS- >Get Elevation ( ) ) ; 

} 

} 

RenderAndDrawDirtyList () ; 
if {pDoc->IsViewGraph () ) 
^ Invalidate (FALSE) ; // To update DrawElevat ionGraph ( ) 

void CMapEdView: : OnActorElevat ion ( ) 
{ 

if (im_pMS) 

return; 

CMapEdDoc* pDoc - GetDocument ( ) ; 
CStage* pStage = pDoc- >GetStage ( ) ; 
if (ipStage) 
return; 

CTileMap* pTM = pStage- >GetTileMap () ; 
if ( !pTM) 

return; 

// m_pMS is tile 

CPoint ptTID (pTM->GetNearestTileIndex (m_pMS) ) ; 
CGetlntDlg dig; 

dlg.m_strCaption.LoadString (IDS_ENTER_ACTOR_ELEVATION) ; 
dlg.m_nNew = pTM- >GetEA (ptTID) ; 
if (dig .DoModal 0 != IDOK) 
return; 

pTM->SetEA (ptTID, dig . m_nJsrew) ; 
if (pDoc->IsViewEAGraph 0 ) 
^ Invalidate (FALSE) ; // To update DrawElevat ionGraph ( ) 

void CMapEdView: :ChangeSpriteImOp (const int nMenu) 
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break; 
break; 



if (!Tn_pMS) 

return; 

WORD wlmOp = m_jpMS->GetImOp ( ) ; 
switch (nMenu) 
{ 

case ID_SPRITE_FLIP : 

wlmOp ^= IMAGE_FLIP; 
case ID_SPRITE_VERTICAL : 

wImOp ^= IMAGE^VERTICAL; 
case ID_SPRITE_FLIPVERT : 

if (m_pMS->IsImageFlip 0 m_pMS - >IsImageVertical ( ) ) 

wImOp -ORIENT__MASK; 

else 

wImOp 1= (IMAGE_FLIP | IMAGE_VERTICAIj) ; break 
case ID_SPRITE_OPACITY10 0 : 

wImOp = (wImOp & -OPACITY^MASK) 

break; 

case ID_SPRITE_OPACITY75 : 

wImOp - (wImOp & -OPACITY_MASK) 

break; 

case ID_SPRITE_OPACITY50 : 

wImOp = (wImOp & -OPACITY_MASK) 

break; 

case ID_SPRITE_OPACITY2 5 : 

wImOp = (wImOp & -'OPACITY_MASK) 

break; 

case ID_SPRITE_OPACITY12 : 

wImOp = (wImOp & ~OPACITY_MASK) 

break; 

} 

m_pMS->SetImOp (wImOp) ; 



OPACITY 100; 



OPACITY 75; 



OPACITY 50; 



OPACITY 25; 



OPACITY 12 



AddDirtyRegion (m_pMS) ; 
RenderAndDrawDirtyList () ; 

} 

void CMapEdView: :OnSpriteFlip 0 { 

ChangeSpritelmOp (ID_SPRITE_FLIP) ; } 
void CMapEdView: :OnSpriteVertical {) { 

ChangeSpritelmOp ( ID__SPRITE_VERTICAL) ; } 
void CMapEdView: rOnSpriteFlipvert {) { 

ChangeSpritelmOp ( ID_SPRITE_FLIPVERT) ; } 

void CMapEdView: :OnSpriteOpacitylOO 0 { 

ChangeSpritelmOp (ID_SPRITE__OPACITY100) ; } 
void CMapEdView: :OnSpriteOpacity75 0 { 

ChangeSpritelmOp (ID_SPRITE_OPACITY75) ; } 
void CMapEdView: :OnSpriteOpacity50 0 { 

ChangeSpritelmOp (ID_SPRITE_OPACITY50) ; } 
void CMapEdView: :OnSpriteOpacity25 0 { 

ChangeSpritelmOp (ID_SPRITE_OPACITY25) ; } 
void CMapEdView: :OnSpriteOpacityl2 0 { 

ChangeSpritelmOp (ID__SPRITE_OPACITY12) ; } 

/* 

void CMapEdView: :OnKeyDown(UINT nChar, UINT nRepCnt , UINT nFl 
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{ 

// switch for input key 
switch (nChar) 

{ 





case 


VK_ 


_UP 




pDoc - >SendCommand { CMD 


_MOVE_ 


_NORTH) ; 


break 




case 


vk' 


_LEFT : 


pDoc->SendCommand (CMD 


'move_ 


_WEST) ; 


break 




case 


VK_ 


DOWN: 


pDoc - >SendCommand ( CMD 


move] 


_SOUTH) ; 


break 


// 


case 


VK_ 


RIGHT: 


pDoc - >SendCommand ( CMD 


move" 


EAST) ; 


break 


case 


VK_ 


_F5 




SetMode (0) ; 


break 










// 


case 


VK_ 


'f6 




SetMode (1) ; 


break 










// 


case 


VK_ 


"f7 




SetMode (1) ; 


break 










// 


case 


VK_ 


'_F8 




SetMode (2) ; 


break, 










// 


case 


VK_ 


'f9 




SetMode (3) ; 


break, 










// 


case 


VK_ 


FIO : 


SetMode (4) ; 


break. 











} 



// Show current state in the status bar 
// CMainFrame* pFrame = (CMainFrame* ) {Af xGetApp ( ) - >TnpMainWnd) - 
// ASSERT (pFrame ) ; 

// pFrame - >m_wndStatusBar . SetWindowText (buf) ; 

COSBView: : OnKeyDown (nChar , nRepCnt, nFlags) ; 

*/ 

void CMapEdView: :OnSpriteType ( ) 

CMapEdDoc* pDoc = GetDocument ( ) ; 
CMapListView* pMLV = pDoc - >GetMapListView ( ) ■ 
ASSERT (pMLV) ; 

if {lm_pMS) 

return; 

CString strName ( *m__pMS -> Get Name () ) ; 
gResMan.MakeResName (strName) ; 
int i = gResMan.GetSpritelD (strName) ; 
if (i >= 0) 

pMLV->SetSelectedItem(i) ; 

} 

void CMapEdView: :AnimateSprite (CPhasedSprite* pPS, const WORD wAniType) 

CStage* pStage = GetDocument {)- >GetStage () ; 
if (IpStage) 
return; 

CGetlntDlg dig; 

dig .m_strCaption. LoadString (IDS_ENTER_MSPT) ; 
dlg.m_nNew = pPS - >GetMSPT { ) ? pPS- >GetMSPT () : 100; 

if (dlg.DoModal 0 != IDOK) 
return; 

pPS->SetMSPT (dlg.m_nNew) ; // includes SetAlarmTick ( ) / 

pPS->SetAniType ( WAniType) ; 
pStage->InsertAniSprite (pPS) ; 

void CMapEdView: :OnMenuAniRepeat {) 
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{ 

if { ! m_pMS ) 

return ; 

AnimateSprite (m_pMS, SPRITE_7U^I_REPEAT) ; 

void CMapEdView : : OnMenuAniFade ( ) 
{ 

if { !m__pMS) 

return; 

AnimateSprite (m_pMS, SPRITE ANI FADE) ; 
} " " 

void CMapEdView : : OnMenuAni Random ( ) 
{ 

if ( !m_pMS) 

re turn ; 

AnimateSprite (m__pMS, SPRITE_ANI_RANDOM) ; 

void CMapEdView: rOnMenuNoani 0 
{ 

if ( !m_pMS) 

return; 

CStage* pStage = GetDocument ( ) - >GetStage ( ) ; 
if (IpStage) 
return ; 

// est ring strName ( *m_pMS- >GetName ( ) ) ; 

// m_j)MS->SetType (gResMan.GetSpriteTypeByName (strName) ) ; // Restore 

m_pMS->SetAniType (0) ; 
^ pStage->RemoveAniSprite (m_j)MS) ; // Multiple calls possible 

void CMapEdView: : AdjustFrameWindow ( ) 
{ 

CMainFrame* pMF = (CMainFrame* ) Get ParentFrame ( ) ; 
ASSERT (pMF) ; 
// pMF->SetFreeze (FALSE) ; 

pMF->SetPalette ( (CPalette* ) GetOSBPalette { ) ) ; 

return; 

/* 

CDIB* pDIB = GetOSBO; 

if CpDIB) 

{ 

CClientDC dc (this) ; 

int nWidth = min (dc . GetDeviceCaps (HORZRES) - 40, pDIB- 
>GetWidth{) ) ; 

int nHeight = min (dc . GetDeviceCaps (VERTRES) - 40, pDIB- 
>GetHeight () ) ; 

if ( ( {pDIB->GetWidth() + 40) >= dc . GetDeviceCaps (HORZRES ) ) || 
( (pDIB->GetHeight 0 + 40) >= dc . GetDeviceCaps (VERTRES )) ) 
pMF->SetWindowPos (&wndTopMost , 0, 0, nWidth, nHeight 

SWP_N020RDER) ; 

else 
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pMF->SetWindowPos (&wndTopMost , 0, 0, nWidth, nHeight, 
SWP_NOMOVE I SWP_NOZORDER) ; 

} 

// Resize the main frame window to fit the background image 
pMF->RecalcLayout ( ) ; 

ResizeParentToFit (FALSE) ; // Try shrinking first 

ResizeParentToFit (TRUE) ; // Let's be daring 

// pMF->SetFreeze ( ) ; 

*/ 

} 

void CMapEdView: : OnMenuEntryPoint ( ) 
SetEntryExitPoint (TRUE) ; 

} 



void CMapEdView: : OnMenuExi tPoint ( ) 
{ 

SetEntryExitPoint (FALSE) ; 

} 

void CMapEdView: : SetEntryExitPoint (const BOOL bEntry) 

if (!m_pMS) 

returns- 
extern const char* STAGEFILE_FILTER ; 

CString strFilename ( *m_jpMS- >GetHyperlink ( ) ) ; 

: :SetCurrentDirectory (*gResMan.GetResPath() ) ; 

// Show a File Save dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, //No default extension 
StrFilename, // initial file name 

OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY , 
STAGEFILE_FILTER) ; 

if (dlg.DoModal 0 == IDOK) 

{ 

StrFilename = dig . GetPathName ( ) ; 
if ( ! StrFilename . IsEmpty ( ) ) 

gResMan.MakeResName (strFilename) ; 
CString strHL; 

strHL.Format ("%c:%s", bEntry ? 'e' : 'x', strFilename) 
m_pMS ->SetHyperl ink ( StrHL) ; 

} 

} 

else 

{ 

if ( ! StrFilename . IsEmpty ( ) ) 
^ m__pMS->GetHyperlink() ->Empty 0 ; // Erase 

if (GetDocument () - >IsViewGraph ( ) ) 

Invalidate (FALSE) ; // To update DrawElevationGraph ( ) 

CGetTextDlg dlg; 

dlg . m_strCaption . LoadString ( IDS_ENTER_STAGE_LINK) ; 
CString* pStr = m_j)MS - >GetHyperlink ( ) ; 
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if ( lpStr->IsEmpty {) ) 

dig . m_strText = *pStr; 
if (dlg.DoModal 0 IDOK) 
{ 

if ( !dlg.m_strText . IsEmpty () ) 

m_pMS- >SetHyperlink (dig . m_strText ) ; 



} 

BOOL CMapEdView: : Onset Cursor (CWnd* pWnd, UINT nHitTest, UINT message) 

CMapEdDoc* pDoc = GetDocument ( ) ; 
if (pDoc->IsTileEditMode {) ) 

{ 

: : SetCursor (Af xGetApp ( ) - >LoadCursor (m_bMouseCaptured ? 
IDC_GREP_DOWN : IDC_GREP_UP) ) ; 

return TRUE; 

} 

else 

^ return COSBView : : OnSetCursor (pWnd, nHitTest; message); 

// On Direction Attribute: Forward Right 

void CMapEdView: rOnMenuDaFr () { OnMenuDirect ionAt tribute (DA_FR) 

void CMapEdView: lOnMenuDaBl {) { OnMenuDirectionAttribute (DA_BL,) 

void CMapEdView: :OnMenuDaBr ( ) { OnMenuDirectionAttribute (DA_BR) 

void CMapEdView: :OnMenuDaFl 0 { OnMenuDirect ionAttribute (DA_FL) 

void CMapEdView: : OnMenuDaOpen ( ) { ~ 

OnMenuDirectionAttribute (DA_OPEN) ; } 

void CMapEdView: :OnMenuDaClosed 0 { OnMenuDirect ionAttribute (DA_CLOS ED) ; } 

void CMapEdView: : OnMenuDirectionAttribute (const WORD wDA) 
{ 

CMapEdDoc* pDoc = GetDocument () ; 
CStage* pStage = pDoc - >GetStage ( ) ; 
if ( IpStage) 
return ; 

CTileMap* pTM = pStage - >GetTileMap () ; 
if (!pTM) 

return; 



CPoint ptTID (pTM->GetNearestTileIndex(m_jDtHit) ) ; 
CPoint ptCtr (pTM->GetNearestTileCenter (m_ptHit) ) ; 



// Assign 



WORD wDirAttr; 

if ( (wDA =^ DA_OPEN) | | (wDA == DA_CLOSED) ) 
wDirAttr = wDA; 

} 

else 
{ 

WDirAttr = pTM- >GetDA (ptTID) ; 

WDirAttr wDA; // toggle only the specified bit 



pTM->SetDA (ptTID, wDirAttr) ; 
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CRect rcDirty; 

rcDirty.SetRect (ptCtr .x-64, ptCtr.y-32, ptCtr.x+64, ptCtr.y+32) 
AddDirtyRegion (&rcDirty) ; 
RenderAndDrawDirtyList () ; 

} 

void CMapEdView: :RecalculateDA() 
{ 

CStage* pStage = GetDocument ( ) - >GetStage ( ) ; 
if ( IpStage) 
return; 

CTileMap* pTM = pS tage - >GetTileMap ( ) ; 
if (!pTM) 

return ; 
pTM->RecalculateDA ( ) ; 

} 

void CMapEdView: :Synchroni 2 eEAO 
{ 

CStage* pStage = GetDocument ( ) - >GetStage ( ) ; 
if (IpStage) 
return ; 

CTileMap* pTM = pStage - >GetTileMap () ; 
if (!pTM) 

return; 
pTM->SynchronizeAllEA() ; 
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// MapEdView.h : interface of 
// 

/ /==^=^==========^=^^===^^^^= 

II (C) Programmed by Kim, 

/ / Information Technology 
// UNICHAT INC 




the CMapEdView class 



Feb 1998 
Institute 



#if 

! defined (AFX_^4APEDVIEW_H 7ECC1EOE_9C0 9_11D1_80E2_2 88A06C10000 INCLUDED^) 

#def ine AFX_MAPEDVIEW_H 7ECC1EOE_9C09_11D1_80E2_2 8 8A06C100 0 0 INCLUDED_ 

#if _MSC_VER >= 10 0 0 
#pragma once 

#endif // _MSC_VER >= 10 00 

#include . /UC2Ani/0SBView. h" 

class CSprite; 
class CPhasedSprite; 
class CMapEdDoc; 
class CStage; 

class CMapEdView : public COSBView 
{ 

protected: // create from serialization only 
CMapEdView 0 ; 

DECLARE_DYNCREATE (CMapEdView) 

// Attributes 
public : 

CMapEdDoc* GetDocument ( ) ; 

/ / Operations 
public : 

virtual BOOL CreateOSB (CDIB* pDIB) ; // COSBView 

virtual void Render (CRect * pClipRect-NULL) ; // COSBView 

CPhasedSprite* GetCapturedSprite ( ) { return m_pCS; } 
void AdjustFrameWindow( ) ; 

void RecalculateDAO ; 

void SynchronizeEA ( ) ; 

private : 

void SetEntryExitPoint (const BOOL bEntry) / 

void Showlnfo (const CPointS: point, const CPoint& ptTID) ; 

BOOL m_bMouseCaptured; // TRUE if mouse captured 

CPhasedSprite* m_jpCS; // pointer to captured 
sprite (for drag) 

*^Si2:e m_sOffset; // offset into hit sprite 

CPhasedSprite* m_jpMS; // pointer to current 

sprite 

CPoint mjtHit; // Hit point 

WORD m_wCurResType; // Current Resource Type 

/ / Overrides 

// ClassWizard generated virtual function overrides 
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// { {AFX_VIRTUAL (CMapEdView) 
public : 

virtual void OnDraw(CDC* pDC) ; // overridden to draw this view 
virtual BOOL PreCreateWindow (CREATESTRUCTSc cs); 
protected : 

virtual BOOL OnPreparePrint ing (CPrint Inf o* pinfo) ; 
virtual void OnBeginPrinting (CDC* pDC, CPrintlnfo* pInfo) ; 
virtual void OnEndPrinting (CDC* pDC, CPrintlnfo* pInfo) ; 
/ / } } AFX_ V I RTUAL 

// Implementation 
public : 

virtual -CMapEdView () ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump ( CDump Contexts dc) const; 

#endif 

// Generated message map functions 
protected : 

void ChangeSpritelmOp (const int nMenu) ; 

void AnimateSprite (CPhasedSprite* pS , const WORD wTVniType) ; 
void OnMenuDirectionAttribute (const WORD wDA) ; 

// { {AFX_MSG (CMapEdView) 

afx_msg void OnLButtonDown (UINT nFlags, CPoint point) ; 

afx__msg void OnLButtonUp (UINT nFlags, CPoint point); 

afx__msg void OnMouseMove (UINT nFlags, CPoint point); 

afx_msg void OnLButtonDblClk (UINT nFlags , CPoint point); 

afx_msg void OnRButtonDown (UINT nFlags , CPoint point); 

afx_msg void OnSpriteDelete ( ) ; 

afx_msg void OnSpriteElevation ( ) ; 

afx_msg void OnSpriteFlip ( ) ; 

afx_msg void OnSpriteOpacitylOO ( ) ; 

afx_msg void OnSpri teOpacityl2 ( ) ; 

afx_msg void OnSpriteOpaci ty25 ( ) ; 

afx_msg void OnSpriteOpacitySO ( ) ; 

afx_msg void OnSpriteVertical {) ; 

afx_msg void OnSpriteFlipvert ( ) ; 

afx_msg void OnSpri teType () ; 

afx_msg void OnMenuAniRepeat ( ) ; 

afx_msg void OnMenuAniFade ( ) ; 

afx_msg void OnMenuNoani ( ) ; 

afx_msg void OnSpriteOpaci ty75 () ; 

afx_msg void OnActorElevat ion ( ) ; 

afx_msg void OnMenuAn i Random () ; 

afx_msg BOOL OnSetCursor (CWnd* pWnd, UINT nHitTest, UINT message) 

afx_msg void OnMenuDaFr () ; 

afx_msg void OnMenuDaBl ( ) ; 

afx_msg void OnMenuDaBr ( ) ; 

afx_msg void OnMenuDaFl ( ) ; 

afx_msg void OnMenuDaOpen ( ) ; 

afx_msg void OnMenuDaClosed ( ) ; 

afx_msg void OnMenuExitPoint ( ) ; 

afx_msg void OnMenuEntryPoint ( ) ; 

//} }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 
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}; 

#ifndef _DEBUG // debug version in MapEdView. cpp 
inline CMapEdDoc* CMapEdView : : GetDocument ( ) 

{ return (CMapEdDoc* ) mjDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// { {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

1 defined CAFX_MAPEDVIEW_H 7ECC1E0E_9C09_11D1_80E2_2 88A06C10000 INCLUDED ) 
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// MapEnvDlg . cpp : implementation file 
// 

// = = = = = = = ^ = = =.^^ = = = = :.^ = = = = ^^^ = = ^^^ = = ^^ = = = ^ = = ^ = = = ^ = = ^^= = ^^^^ = ^ 

II (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

//=^====.========^==========^==^^^^=^^^^^^^^^^^^^^^^^^^^^^^^ 

#include " stdaf x . h" 

#include "MapEd . h" 

# include "MapEnvDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMapEnvDlg dialog 



CMapEnvDlg : : CMapEnvDlg (CWnd* pParent /*=MULL*/) 
: CDialog (CMapEnvDlg: :IDD, pParent) 

// { {afX_DATA_INIT (CMapEnvDlg) 
m_nTileHeight ^ 0; 
m_nTileWidth = 0; 
m_nScrHeight = 0; 
m_nScrWidth = 0; 
m_strDataPath = _T ( " " ) ; 
m_strPalFile ^ _T ( " " ) ; 
// } }AFX_DATA_INIT 
m_bReadOnly = FALSE; 

} 



void CMapEnvDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CMapEnvDlg) 

DDX_Text (pDX, IDC_EDIT_TILE_H, m__nTi leHeight ) ; 
DDV_MinMaxInt (pDX, m_nTileHeight , 4, 480); 
DDX_Text (pDX, IDC_EDIT_TILE_W, m_nTi leWidth) ; 
DDV_MinMaxInt (pDX, m_nTileWidth , 4, 640); 
DDX_Text (pDX, 1DC_EDIT_SCREEN_H, m__nScrHeight) ; 
DDV_MinMaxInt (pDX, m_nScrHeight , 32, 768); 
DDX_Text (pDX, IDC_EDIT_SCREEN_W, m_nScrWidth) ; 
DDV_MinMaxInt (pDX, m_nScrWidth, 64, 1024); 
DDX_Text (pDX, IDC_EDIT_DATA_PATH, m_s trDataPath) ; 
DDX_Text (pDX, IDC_EDIT_PALFILE, m_strPalFile) ; 
DDV_MaxChars (pDX, m_strPalFile , 12) ; 
// } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CMapEnvDlg, CDialog) 
// { {AFX_MSG_MAP (CMapEnvDlg) 
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// } } AFX_MSG_MAP 
END MESSAGE MAP ( ) 



///////////////////////////////////////////////////////////////////////////// 
11 CMapEnvDlg message handlers 

BOOL CMapEnvDlg: lOnlnitDialog () 

CDialog: : Onini tDialog ( ) ; 

if (m_bReadOnly) 
{ 

GetDlgItem(IDC_EDIT_TILE_W) - >EnableWindow ( FALSE) ; 
GetDlgItem(IDC_EDIT_TILE_H) - >EnableWindow ( FALSE) ; 
GetDlgItem(IDC_EDIT_SCREEN_W) - >EnableWindow ( FALSE) ; 
GetDlgItem(IDC_EDIT_SCREEN_H) - >EnableWindow (FALSE) ; 



} 

return TRUE; 



// return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 
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#if 

! defined (AFX_MAPENVDLG_H 18238822_A15C_11D1_80E2_080009B9F33 9 INCLUDED ) 

#define AFX_MAPENVDLG_H 182 3 8 822_A15C_11D1_80E2_08 00 09B9F3 3 9 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// MapEnvDlg.h : header file 
// 

/ / (C) Programmed by Kim, Feb 1998 

/ / Information Technology Institute 
// UNI CHAT INC 

= = = = = = = = = = - = - = = = - = — = - = = = = = = - = = = - = = = = = = = = = = = = = = = = = 

///////////////////////////////////////////////////////////////////////////// 

// CMapEnvDlg dialog 

class CMapEnvDlg : public CDialoo 

{ 

// Construction 
public : 

CMapEnvDlg (CWnd* pParent = NULL); // standard constructor 

void SetReadOnly 0 { m_bReadOnly = TRUE; } 

// Dialog Data 

// { {AFX_DATA (CMapEnvDlg) 
enum { IDD = IDD_ENVIRONMENT } ; 
int m_nTileHeight ; 

int m_nTileWidth; 
int m_nScrHeight ; 

int m_nScrWidth; 
CString m_strDataPath ; 

CString m_strPalFile ; 

//} }afx_data 



/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX__VIRTUAL (CMapEnvDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV s 

// } }AFX_VIRTUAL 

/ / Implementation 
protected : 

BOOL m_bReadOnly; 

// Generated message map functions 
// { {AFX_MSG (CMapEnvDlg) 
virtual BOOL Onini tDialog () ; 
//} }AFX_MSG 
DECLARE MESSAGE MAP ( ) 
}; " ~ 

// { {afx_insert_location} } 
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// Microsoft Developer Studio will insert additional declarations immediatel 
before the previous line. 

#endif // 

! defined {AFX_MAPENVDLG_H 1823 8 822_A15C_11D1_80E2_08000 9B9F33 9 INCLUDED ) 
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// MapListView. cpp : implementation file 
// 

// (C) Programmed by Kim, Feb 1998 

/ / Information Technology Institute 
// UNI CHAT INC 

// = = =^ = = ^ = ^ = = = = = ^^ = ^ = = ^^ = = ^^ = = = = = = ^ = = ^ = ^^^^^^^^^^^^^^^^^^^^^^ 

#include " stdaf x . h " 
#include "MapEd.h" 
#include "MapListView . h " 
#include " MapEdView , h " 
#include "MapEdDoc . h" 
#include ./ResMan.h" 
#include . /UC2Ani/PhSprite . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

extern CResMan gResMan; 

///////////////////////////////////////////////////////////////////////////// 

I / CMapListView 

IMPLEMENT_DYNCREATE (CMapListView, CFormView) 

CMapListView: : CMapListView ( ) 

: CFormView (CMapListView: rIDD) 

{ 

TRACED ("CMapListView: : CMapListView () \n" ) ; 

// { {AFX_DATA_INIT (CMapListView) 

m_strCellInf o ^ _T ( " " ) ; 

m_nCellID = 0; 

// } } AFX_DATA_INIT 

m_ilObject .Create (IDB_IL_OBJECT, 16, 1, CLR_NONE) ; 
m_nlndex = -l; 
m_nCellID = 0; 
m_j)PS = NULL; 

m_bFirst = TRUE; 

} 

CMapListView: : -CMapListView () 
{ 

TRACED ( "CMapListView: : -CMapListView {) \n" ) ; 
if (m_pPS) 

delete m pPS; 

} 

void CMapListView: :DoDataExchange (CDataExchange* pDX) 

CFormView: : DoDataExchange (pDX) ; 
//{ {AFX_DATA_MAP (CMapListView) 

DDX_Control (pDX, IDC_LIST_OB J, m_lcObject) ; 
DDX_Text (pDX, IDC_ST_CELL_INFO , m_strCellInfo) ; 
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DDX_Scroll (pDX, IDC_SB_CELL_ID , m_nCellID) ; 
// } } AFX_DATA_^4AP 

} 

BEGIN_MESSAGE_MAP (CMapListView, CFormView) 
// { {AFX_MSG_MAP (CMapListView) 

ON_NOTIFY (NM_CLICK, IDC_LIST_OB J , OnClickLi s tOb j ) 
ON_WM_HSCROLL ( ) 

ON_NOTIFY (NM^DBLCLK, IDC_LIST_OB J , OnDblclkLis tOb j ) 
ON_WM_LBUTTONDOWN ( ) 
ON_WM_MOUSEMOVE ( ) 
ON_WM_KEYDOWN ( ) 
ON_WM_QUERYNEWPALETTE ( ) 

on_wm_palettechanged ( ) 

//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMapListView diagnostics 

#ifdef _DEBUG 

void CMapListView: :AssertValid ( ) const 

{ 

CFormView: : AssertValid ( ) ; 

} 

void CMapListView: : Dump (CDumpCon text & dc) const 

{ 

CFormView: :Dump(dc) ; 

} 

CMapEdDoc* CMapListView :: GetDocument ( ) // non-debug version is inline 

ASSERT (m_pDocument->IsKindOf (RUNTIME_CLASS (CMapEdDoc) ) ) ; 
return (CMapEdDoc* ) m_pDocument ; 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CMapListView message handlers 

// CDocument : :UpdateAllViews () will call this function 

// Multiple calls possible 

void CMapListView: : Onini tialUpdate ( ) 

{ 

CFormView: : Onlnit ialUpdate ( ) ; 
if (m_bFirst) 

{ 

Initialize ( ) ; 
m_bFirst = FALSE; 

} 

UpdateList () ,- 

} 

void CMapListView: : Initialize ( ) 

{ 
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// Prepare List Control for Channels list 
m^lcObject -SetlmageList ( &m_ilObj ect , LVSIL_SMALL) ; 

char* szColumnLl = {"SPRITE", "CxR"}; 
int nWidth[] = {120, 50} ; 

LV_COLUMN IvC; // list view column structure 

IvC.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM; // 

valid members 

IvC-fmt = LVCFMT_L.EFT; // left -align column 

/ / Add the columns . 

for (int i = 0; i < sizeof (nWidth) /sizeof (nWidth [0] ) ; i + + ) 

{ 

IvC.cx - nWidth[i] ; // width of column in 

pixels 

IvC.iSubltem = i; 

IvC.pszText - ssColumn[i]; 

if (m_lcObj ect . InsertColumn ( i , &:lvC) === -1) 
return; 

} 



CScrollBar* pSB = (CScrollBar* ) GetDlgltem ( IDC_SB_CELL__ID) ; 
CRect rc; 

pSB- >GetWindowRect (Sere) ; 

m_rcDraw = CRect (5, 2 08, 5+rc . Width ( ) , 4 80); 
pSB- >ShowWindow (FALSE) ; 



void CMapListView: :UpdateList ( ) 

{ 

// Initialize 

m_lcObj ect . DeleteAllItems ( ) ; 
m_nlndex = -1; 
m_nCellID = 0 ; 
if {m_pPS) 
{ 

delete m__pPS; 
m_pPS = NULL; 

} 

InvalidateRect (S:m_rcDraw) ; 



int nSprites = gResMan . GetNumSprites ( ) ; 
for (int i=0; i < nSprites ; i++) 

{ 

LV_ITEM IvI; // list view item structure 
: : ZeroMemory (&:lvl , sizeof (IvI) ) ; 

Ivl.mask = LVIF_TEXT | LVIF_IMAGE | LVIF_PARAM | 

LVIF_STATE; 

IvI. State = 0; 

IvI . stateMask = 0; 



IvI. litem = i; 

IvI.iSubltem = 0; 

CString* pStr = gResMan . GetSpriteName ( i ) ; 
IvI.pszText = pStr->GetBuf fer (17) ; 

IvI . cchTextMax = 17; 
switch (gResMan . GetSpriteType (i) ) 
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{ 

case SPRITE_TILE: Ivl.i Image = 0; break; 
case SPRITE_WALL: Ivl.i Image = 1; breaks- 
case SPRITE_STATIC: Ivl.i Image ^ 2; breaks- 
case SPRITE_PHASED : IvI . i Image = 3; breaks- 
case SPRITE_ACTOR: Ivl.ilmage = 4; break; 
} 

CSize szCell (gResMan . GetSpriteColRow (i) ) ; 

IvI.lParam = (LPARAM) ( szCell . cx * szCell.cy); // # 

cells 

m_lcObject . Insert Item ( &:lvl ) ; 
CString strCell; 

strCell .Format ("%dx%d" , szCell .cx, szCell . cy) ; 
m_lcObject . SetltemText (i, 1, strCell) ; 

} 

} 

// Update Items and Images 

void CMapListView : :UpdateItemImage (const int nindex) 
{ 

int nCells ^ ( int ) m_lcObj ect . GetltemData (nindex) ; 

CString strName = m_lcObj ect . GetltemText (nindex, 0); // Subltem 
m__strCellInfo. Format (■•%s {%d/%d)", strName, 0, nCells); 
UpdateData (FALSE) ; 

CScrollBar* pSB = (CScrollBar* ) GetDlgltem { IDC_SB_CELL_ID) ; 
pSB->SetScrollRange (0, nCells-1) ; 
pSB->SetScrollPos (0) ; 

pSB->ShowWindow (nCells > 1); // // Hide for STATIC SPRITE 
// We'll not reuse DIB here: 

// Since this image is not need to be resident in memory. 
CPhasedSprite* pPS = gResMan . LoadPhasedSprite ( strName , FALSE); 
if (IpPS) 
{ 

delete pPS; 

StrName += " not found!"; 
AfxMessageBox (strName) ; 
return; 

} 

if (m__pPS) 

delete m_pPS; // Delete previously allocated resource 

m_jpPS = pPS; 
m_nCellID = 0; 
mj)PS->SetCell (m_nCellID) ; 
if (m_pPS->GetSrcType () SPRITE_TILE) 

GetDocument () - >SetEditMode (TILE_EDIT_MODE) ; 

else 

GetDocument () - >SetEditMode (SPRITE_EDIT_MODE) ; 
InvalidateRect (&m_rcDraw) ; 

} 

void CMapListView: : OnClickListObj (NMHDR* pNMHDR, LRESULT* pResult) 
DWORD dwPos : :GetMessagePos ( ) ; 
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CPoint point ( (int ) LOWORD (dwPos) , (int) HIWORD (dwPos) ) ; 
m_lcObject . ScreenToCl ient (ficpoint) ; 

int nHitlndex = m_lcObj ect . HitTest (point ) ; 
if (nHitlndex == -1) 

return; 
if (m_nlndex != nHitlndex) 

{ 

m_n Index ~ nHit Index ; 
Updateltemlmage (m_n Index) ; 

} 

*pResult = De- 



void CMapIiistView : : OnDblclkListObj (NMHDR* pNMHDR, LRESULT* pResult) 

{ 

DWORD dwPos = : :GetMessagePos ( ) ; 

CPoint point ( (int) LOWORD (dwPos) , (int) HIWORD (dwPos) ) ; 
m_lcObject . ScreenToClient (&point) ; 

int nHitlndex = m_lcObj ect . HitTest (point ) ; 
if (nHitlndex == -1) 

return; 
if (m_n Index nHitlndex) 

{ 

m_n I ndex = nH i 1 1 ndex ; 
Updateltemlmage (m_nlndex) ; 

} 

*pResult = 0; 



void CMapListView: rOnHScroll (UINT nSBCode , UINT nPos , CScrollBar* pScrollBar) 

CScrollBar* pSB = (CScrollBar* ) GetDlgltem (IDC_SB_CELL_ID) ; 
if (pScrollBar == pSB) 

{ 

if (m__nlndex < 0) 
return ; 

int nCells = ( int ) m_lcOb j ect . GetltemData (m_nlndex) ; 

CString strName = m_lcObj ect . GetltemText (m_nlndex, 0); // 

Subltem=0 

int nMin, nMax; 

pSB->GetScrollRange (&nMin, &:nMax) ; 
switch (nSBCode) 

{ 

case SB_THUMBPOSITION: 

m_nCellID = nPos ; 

pSB->SetScrollPos (nPos) ; 

break; 
case SB_LINELEFT: 

m_nCellID = pSB- >GetScrollPos () - 1; 

if (m_nCellID < nMin) 

m_nCellID = nMax; // Wrap 

pSB->SetScrollPos (m_nCellID) ; 

break; 
case SB_LINERIGHT : 

m__nCellID = pSB- >GetScrollPos ( ) + 1; 
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if (m_nCellID > nMax) 

m__nCellID ^ nMin; // Wrap 
pSB->SetScrollPos (m_nCellID) ; 
break ; 
case SB_PAGELEFT: 

m_nCellID - pSB- >GetScrollPos ( ) - (nMax - nMin) / 5; 
if (Tn_nCellID < nMin) 

m_nCellID = nMin; 
pSB->SetScrollPos (m_nCellID) ; 
break; 
case SB_PAGERIGHT: 

m_nCellID = pSB- >GetScrollPos { ) + (nMax - nMin) / 5; 
if (m_nCellID > nMax) 

m_nCellID = nMax; 
pSB->SetScrollPos (m_nCellID) ; 
break; 

} 

if (m_pPS) 
{ 

InvalidateRect (&m_rcDraw, FALSE) ; 

/* 

/ / Synchronize the sprite in CMapEdView with this selection 

CMapEdView* pMEV = GetDocument ( ) - >GetMapEdView ( ) ; 
CPhasedSprite* pSV = pMEV- >GetCapturedSpri te ( ) ; 
if (m_pPS->IsSameDIB (pSV) ) 
{ 

pSV->SetCell (m_nCellID) ; 
pMEV->RenderAndDrawDirtyIjist () ; 

*/ 

} 

m_strCellInfo. Format ("%s (%d/%d)", strName, m_nCellID, nCells) 
UpdateData (FALSE) ; 

} 

^ CFormView: rOnHScroll (nSBCode, nPos , pScrollBar) ; 

void CMapListView: rOnDraw (CDC* pDC) 
// CFormView: :OnDr aw (pDC) ; 

// OnPrepareDC(pDC) ; // CScroll changes the viewport origin and mapping 
mode . 

CRect rcDraw (m_rcDraw) ; 
// pDC->DPtoLP (&rcDraw) ; // THIS WAS THE KEY I 

if (!m_pPS II (m_nlndex < 0)) 
return; 

// If we have a palette, select and realize it. 
CPalette* pPalOld = MULL; 
CMapEdDoc* pDoc = GetDocument () ; 
CMapEdView* pMEV = pDoc- >GetMapEdView ( ) ; 
CPalette* pPal - (CPalette* ) pMEV->GetOSBPalette () ; 
if (pPal) 

{ 

pPalOld = pDC->SelectPalette (pPal, FALSE); // 
bForceBackground = FALSE 
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pDC->RealizePalette {) ; // we realize in response to 
WM_QUERYNEWPALETTE 

} 

CPoint ptLT(rcDraw.TopLef t 0 ) ; 

if (gResMan.GetSpriteType (m nindex) == SPRITE TILE) 
{ 

int nCells = Tn_pPS - >GetNumCells ( ) ; 
int w = m_pPS->GetWidth ( ) + 2; 
int h = m_pPS->GetHeight {) + 2; 
for (int i-0; i < nCells; i++) 
{ 

ptLT.y = rcDraw.top + h * (i/3); 
ptLT.x = rcDraw.left + w * (i%3); 
m_pPS->SetCell (i) ; 
m_pPS->Draw{pDC, ptLT) ; 
if (i — m_nCellID) 
{ 

CPen pen (PS_SOLID, 1, PALETTERGB ( 2 55 , 0 , 0 ) ) ; 
pDC->SelectObject (&pen) ; 
pDC->MoveTo (ptLT) ; 

pDC->LineTo (ptLT.x+w-3 , ptLT.y) ; 
pDC->LineTo (ptLT.x+w-3 , ptLT.y+h-3) ; 
pDC->LineTo (ptLT.x, ptLT.y+h-3) ; 
pDC->LineTo (ptLT) ; 

} 

} 

} 

else 
{ 

m_pPS->SetCell (m_nCellID) ; 

Tn_pPS->Draw(pDC, ptLT) ; 

// Draw Earth point 

CSize sE (m_jpPS->GetEarth 0 ) ; 

CPen pen (PS_SOLID, 1, PALETTERGB {255 , 0 , 2 5 5 ) ) ; // Magenta 
pDC->SelectObject (&pen) ; 
pDC->MoveTo (ptLT.x, ptLT.y + sE . cy) ; 

pDC->LineTo (ptLT.x + m_pPS - >GetWidth () , ptLT.y + sE.cy); 
pDC->MoveTo (ptLT.x + sE.cx, ptLT.y); 

pDC->LineTo (ptLT.x + sE.cx, ptLT.y + m_pPS - >GetHeight () ) ; 

// Select old palette if we altered it. 
if (pPalOld) 

^ pDC->SelectPalette (pPalOld, FALSE) ; 

int CMapListView: :GetSelectedResName (CStringSc strName) const 

if (m_nlndex >= 0) 

StrName ^ m_lcObj ect . Get ItemText (m^nlndex , 0); // Subltem 
return m_nlndex; 

} 

WORD CMapListView: :GetSelectedResType 0 const 

^ return ( (m_n Index >= 0) ? gResMan . GetSpriteType {m_nlndex) : 0) ; 
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void CMapListView: :OnLButtonDown (UINT nFlags, CPoint point) 

{ 

if (!m_pPS II (m_nlndex < 0) || 1 m_rcDraw . PtInRect (point ) ) 
return ; 

: rSetCursor (AfxGetApp ( ) - >LoadCursor ( IDC_GREP_DOWN) ) ; 
if (GetSelectedResType ( ) SPRITE_TILE) 

{ 

int X = m_rcD raw . left ; 
int y = m_rcDraw . top ; 
int w = m__pPS->GetWidth 0 + 2; 
int h = m_pPS->GetHeight ( ) + 2; 
int i = { (point. y - m_rcDraw. top) /h) * 3 + 
( (point. X - m_rcDraw. lef t) /w) ; 
if (i < m_jpPS->GetNumCells ( ) ) 
{ 

m_nCellID = i; 
m_pPS~>SetCell (m_nCellID) ; 

CScrollBar* pSB = (CScrollBar* ) GetDlgl tern ( IDC_SB_CELL_ID) 
OnHScroll(SB_THUMBPOSITION, m_nCellID, pSB) ; 

} 

} 

CFormView: : OnLButtonDown (nFlags , point) ; 

} 

void CMapListView :: OnMouseMove (UINT nFlags , CPoint point) 

{ 

if (m_pPS && (m_nlndex >= 0) && mrcDraw. PtInRect (point) ) 
{ 

: :SetCursor (AfxGetApp () ->LoadCursor (IDC GREP UP) ) ; 

} 

CFormView: : OnMouseMove (nFlags , point) ; 

} 

// Document Window calls this 

void CMapListView: :OnUpdate (CView* pSender, LPARAM IHint, CObject* pHint) 

if (m_lcObject .GetSaf eHwnd ( ) ) // Invalidates any calls before 
OnlnitialUpdate ( ) 

UpdateList 0 ; 

} 

void CMapListView: lOnKeyDown (UINT nChar, UINT nRepCnt , UINT nFlags) 
/* 

// switch for input key 
switch (nChar) 

{ 

case VK_UP: pDoc - >SendCoTnmand (CMD_MOVE_NORTH) ; break 

case VK_LEFT: pDoc - >SendCoTnmand (CMD_MOVE_WEST) ; break 

case VK_DOWN: pDoc - >SendCommand (CMD_MOVE_SOUTH) ; break 

case VK_RIGHT: pDoc - >SendCommand ( CMD MOVE EAST); break 

} 



*/ 
} 



CFormView: lOnKeyDown (nChar, nRepCnt, nFlags); 
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void CMapListView: iSetSelectedltem (const int nindex) 
{ 

if (m_nlndex == nindex) 
return; 

m_lcObject . SetltemState (m_nlndex, 0, LVIF_STATE) ; 
m_lcObject -SetltemState (nindex, LVIS__SELECTED | LVIS_FOCUSED , 
LVIF_STATE) ; 

m_n Index = nindex; 

Updat extern I mage (m_nlndex) ; 

} 

void CMapListView: :OnPaletteChanged (CWnd* pFocusWnd) 

CFormView: : OnPalet teChanged (pFocusWnd) ; 

if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

BOOL CMapListView: : OnQueryMewPalet te ( ) 
{ 

TRACE ( "CMapListView: : OnQueryNewPalette () \n" ) ; 
CMapEdDoc* pDoc = GetDocument ( ) ; 
CMapEdView* pMEV ^ pDoc- ^Ge tMapEdView ( ) ; 
if {pMEV->GetOSBPalette ( ) ) 
{ 

CDC* pdc = GetDCO; 

CPalette* poldpal = pdc- >SelectPalette ( (CPalette* ) pMEV- 
>GetOSBPalette () , 

FALSE) ; // foreground 

UINT u = pdc->RealizePalette 0 ; 
if (poldpal) 

pdc->SelectPalette (poldpal , FALSE) ; 
ReleaseDC (pdc) ; 
if (u) 

{ // Some colors changed so we need to do a repaint . 

Invalidate () ; // Repaint the lot. 
return TRUE; // Say we did something. 

} 

return CFormView: : OnQueryNewPalette () ; 

} 
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#if 

! defined (AFX_MAPLISTVIEW_H 7ECC1E16_9C09_11D1_8 0E2_2 8 8A06C100 0 0 INCLUDED^) 

#def ine AFX_MAPLISTVIEW_H 7ECC1E16_9C0 9_11D1_8 0E2_2 88A06C100 0 0 INCLUDED^ 

#if _MSC_VER >= 10 00 
#pragma once 

#endif // _MSC_VER >= 1000 

// MapListView.h : header file 

// 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

//= = = =^^ = = ^^^^ = ^ = ^ = = ^ = ^^=: = ^^ = = = ^^ = ^^^ = ^^ = :=::.^ = ^ = = =.^^^ = ^^ = ^^ = = = 

///////////////////////////////////////////////////////////////////////////// 

// CMapListView form view 

#ifndef AFXEXT_H 

#include <afxext.h> 
#endif 

class CMapEdDoc; 
class CPhasedSprite; 

class CMapListView : public CFormView 

{ 

protected : 

CMapListViewO ; // protected constructor used by dynamic 

creation 

DECLARE_DYNCREATE (CMapListView) 

enum 
{ 

IL_TILE=0, 
IL_STATIC, 
IL__ANIMATED, 
I L_ AVATAR 
} OBJECT_IL_INDEX; 

// Form Data 
public : 

/ / { { AFX_DATA ( CMapL i s t Vi e w ) 

enum { IDD = IDD_DIALOG_VIEW } ; 

CListCtrl m_lcObject ; 

CString m_s trCellInf o ; 

int m_nCellID; 

//} }AFX_DATA 

// Attributes 
public : 

CMapEdDoc* GetDocument ( ) ; 

int GetSelectedResName (CString& strName) const; 

WORD GetSelectedResType ( ) const; 

// Operations 
publ ic : 
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void UpdateList ( ) ; 

^^^<^ Updateltemlmage (const int nindex) ; 

^oid SetSelectedltem (const int nindex) ; 

/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CMapListView) 
public : 

virtual void Onini tialUpdate ( ) ; 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

virtual void OnDraw(CDC* pDC) ; 

virtual void OnUpdate (CView* pSender, LPARAM iHint, CObiect* pHint) - 
/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

virtual -CMapListView ( ) ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Contexts dc) const* 

#endif 

protected ; 

void Initialize {) ; 
CImageList m_i lOb j ect ; 

m_nlndex; // Current selected item 
CPhasedSprite* m_j>PS; // Selected item's image 

CRect m_rcDraw; // Draw Region 

// Generated message map functions 
// { {AFX_MSG (CMapListView) 

afx_msg void OnClickListOb j (NMHDR* pNMHDR, LRESULT* pResult) ; 
afx_msg void OnHScroll (UINT nSBCode, UINT nPos , CScrollBar* 
pScrollBar) ; 

afx_msg void OnDblclkListObj (NMHDR* pNMHDR, LRESULT* pResult) ; 
afx_msg void OnLButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnMouseMove (UINT nFlags, CPoint point); 
afx_msg void OnKeyDown (UINT nChar, UINT nRepCnt , UINT nFlags); 
afx_msg BOOL OnQueryNewPalette ( ) ; 
afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
//}}AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

BOOL m_bFirst; 

}; 

#ifndef _DEBUG // debug version in MapEdView . cpp 
inline CMapEdDoc* CMapListView :: GetDocument ( ) 

{ return (CMapEdDoc*) m_pDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 

//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 
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ttendif // 

!defined{AFX_MAPLISTVIEW_H_7ECClE16_9C09_llDl_80E2_288A06C10000 INCLUDED 
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// PalDlg.cpp : implementation file 
// 

// = = ^ = ^ = = ^^^^^ = ^ = = ^^ = = = = ^= = = = =^^ = ^^^^^^ 
II (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNI CHAT INC 



#include " stdaf x . h" 

#include "MapEd.h" 

#include "PalDlg.h" 

#include "MapEdView . h" 

#include " . . /UC2Ani/DIBPal .h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 



class CDIBPal; 

/''''^//'/^'iii'ii/'iillliiiiiiliiliiiiiiiiiiiiiiiiiiiiiiiiiiiiini//^ 

// CPalDlg dialog 

Ml 

Hf CPalDlg: : CPalDlg (CWnd* pParent /*=NULL*/) 

: CDialog (CPalDlg: : IDD, pParent ) 

Rl' { 

□I // { { AFX_DATA_INIT (CPalDlg) 

m_bShowIndex = FALSE ; 
W= m_StRGB = _T (••"); 

m_sbBlue = 0; 
m_sbGreen = 0 ; 
m_sbRed = 0 ; 
/ / } } AFX__DATA_INIT 
m bCaptured = FALSE; 

} 



ill 
m 



void CPalDlg: iDoDataExchange (CDataExchange* pDX) 

CDialog: rDoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CPalDlg) 

DDX_Check(pDX, IDC_CHECK_SHOW_INDEX , m_bShowIndex) ; 
DDX_Text (pDX, IDC_ST_PAL_RGB, m_stRGB) ; 
DDX_Scroll (pDX, IDC_SB_PAL_BLUE , m_sbBlue) ; 
DDX_Scroll(pDX, IDC_SB_PAL_GREEN, m_sbGreen) ; 
DDX_Scroll (pDX, IDC__SB_PAL_RED , m_sbRed) ; 
/ / } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CPalDlg, CDialog) 
// { {AFX_MSG_MAP (CPalDlg) 
ON_WM_PAINT ( ) 
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ON_BN_CLICKED (IDC_CHECK_SHOW_INDEX, OnCheckShowIndex ) 
ON_WM_LBUTTONDOWN { ) 
ON_WM_LBUTTONUP ( ) 
ON_WM_MOUSEMOVE ( ) 
//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CPalDlg message handlers 

BOOL CPalDlg: :OnInitDialog() 

CDialog: : OnlnitDialog ( ) ; 

GetClientRect (&:m_rcPal) ; 

CWnd* pW = GetDlgItem(IDC_SB_PAL_RED) ; 
ASSERT (pW) ; 
CRect rcSB; 

pW->GetClientRect (&rcSB) ; 

m_rcPal .right -= (rcSB.WidthO + 10); 

return TRUE; // return TRUE unless you set the focus to a control 
^ // EXCEPTION: OCX Property Pages should return FALSE 

void CPalDlg: :OnPaint () 
{ 

CPaintDC dc(this); // device context for painting 

if { ! m_pPal ) 

return; 



m_pPal->Draw{&dc, m_rcPal, FALSE, m_bShowIndex) ; 
^ //Do not call CDialog :: OnPaint ( ) for painting messages 

void CPalDlg: : OnCheckShowIndex ( ) 
{ 

CButton* pB = (CButton*)GetDlgltem{IDC_CHECK SHOW INDEX) - 
ASSERT (pB) ; ~ 
m_bShowIndex = (pB- >GetCheck ( ) == 1); 
^ InvalidateRect (&:m_rcPal, FALSE); 

void CPalDlg :: ShowRGB (CPoint point) 

HDC hDC = : :GetDC (NULL) ; 
ClientToScreen (&point) ; 

COLORREF crRGB = : : GetPixel (hDC , point. x, point. y); 
: iReleaseDC (NULL, hDC); 

char buf [64] ; 

char name [3 0]=""; 

int r = GetRValue (crRGB) ; 

int g = GetGValue (crRGB) ; 
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int b = GetBValue (crRGB) ; 
int i = -1; 
if (m_pPal) 

i = (BYTE) m_pPal->GetNearestPaletteIndex (crRGB) ; 



(r:= = 0 && g= = 0 
Sc8c g= = 0 



if 

"%s" , "Black") ; 

else if (r==128 
"%s" , "Dark Red") ; 

else if (r==0 && g==128 && b==0) 
Green" ) ; 

else if (r==128 g-=128 b==0) 

"Dark Yellow") ; 

else if (r= = 0 && g= = 0 && b==:128) 

"Dark Blue" ) ; 

else if (r= = 128 && g= = 0 b^^3_28) 

"%s", "Dark Magenta"); 

wsprintf (name , "%s", "Dark 



&& b==0) wsprintf (name , 

&& b==0) wsprintf (name , 

wsprintf (name , "%s", "Dark 
wsprintf (name , "%s", 
wsprintf (name , "%s", 
wsprintf (name, 



else if 


(r= = 0 ScSc 




— 128 f:,}^ h- 


:=128) 


Cyan") ; 












else if 


{r==192 




ScSc g= = 192 


ScSc 


b==192 ) 


"Light Gray" 


) ; 










else if 


(r==192 




ScSc g==220 


ScSc 


b==192) 


"Money Green 


") ; 










else if 


(r==166 




g==202 


ScSc 


b==240) 


"Sky Blue" ) ; 












else if 


(r==255 




&& g-=251 


ScSc 


b==240) 


"Cream" ) ; 












else if 


(r==160 




ScSc g= = 160 


ScSc 


b==164) 


"Medium Gray 


") ; 










else if 


(r==:128 




ScSc g= = 128 


ScSc 


b--128) 


"Dark Gray") 












else if 


(r==255 




ScSl g= = 0 




ScSc b 


•'%s", "Red") 












else if 


(r==0 && 


g= 


=255 5c& b= 


= 0) 




"Green") ; 












else if 


(r==255 




ScSc g==255 


ScSc 


b= = 0) 


"Yellow") ; 












else if 


(r==0 


g= 


= 0 


ScSc 


b==255) 


"Blue") ; 












else if 


(r==255 




ScSc g= = 0 




ScSc h'. 


"%s" , "Magenta") ; 










else if 


(r= = 0 ScSc 


g= 


= 255 ScSc b= 


= 255) 


else if 


(r==255 




&& g==255 




b==255) 


"White") ; 












wsprintf (buf , "#% 


;d 


(%03d, %03d, %03d) 


%s", i, 



wsprintf (name , "%s", 

wsprintf (name , " %s " , 

wsprintf (name , "%s", 

wsprintf (name , "%s", 

wsprintf (name, "%s", 

wsprintf (name , "%s", 

=0) wsprintf (name, 

wsprintf (name , "%s", 

wsprintf (name, "%s", 

wsprintf (name , "%s", 

=255) wsprintf (name , 

wsprintf (name , "%s", "Cyan") 

wsprintf (name , "%s". 



} 



SetWindowText (buf ) ; 



void CPalDlg : lOnLButtonDown (UINT nFlags, CPoint point) 

: :SetCursor (AfxGetApp () - >LoadCursor ( IDC_PIXEIi) ) ; 
SetCapture ( ) ; 
m_bCaptured = TRUE; 
ShowRGB (point) ; 

CDialog: : OnLButtonDown (nFlags , point) ; 
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void CPalDlg: lOnLButtonUp (UINT nFlags, CPoint point) 
if (m_bCaptured) 

{ 

ReleaseCapture () ; 
m_bCaptured = FALSE; 
// SetWindowText ( "SysPal") ; // Restore title. 

} 

^ CDialog: : OnLButtonUp (nFlags , point) ; 

void CPalDlg: :OnMouseMove (UINT nFlags, CPoint point) 

if (m_bCaptured) 
{ 

: rSetCursor (AfxGetApp 0 - >LoadCursor ( IDC_PIXEL) ) ; 
ShowRGB (point ) ; 

} 

CDialog: rOnMouseMove (nFlags, point) ; 
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#if ! defined {AFX_PALDLG_H E036BF42_A18D_11D1_80E2_080009B9F339 INCLUDED_) 

#def ine AFX_P7VLDLG_H E036BF42_A18D_11D1_80E2__080009B9F33 9 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // __MSC_VER >= 10 0 0 
// PalDlg.h : header file 
// 

// (C) Programmed by Kim, Feb 1998 

// Information Technology Institute 
// UNICHAT INC 

class CDIBPal; 

///////////////////////////////////////////////////////////////////////////// 
// CPalDlg dialog 

class CPalDlg : public CDialog 

// Construction 
public : 

CPalDlg (CWnd* pParent = NULL); // standard constructor 

void SetPalette (CDIBPal* pPal) { m_pPal - pPal; } 

// Dialog Data 

//{ {AFX_DATA (CPalDlg) 

enum { IDD = IDD_PALETTE } ; 

BOOL m_bShowlndex; 

CString m_stRGB; 

int m_sbBlue; 

int m_sbGreen; 

int m_sbRed; 

//} }afx_data 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CPalDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

//} }AFX_VIRTUAL 

// Implementation 
protected : 

void ShowRGB (CPoint point) ; 

CDIBPal* mj)Pal; 
CRect m_rcPal/ 
BOOL m_bCaptured; 

// Generated message map functions 

// { {AFX_MSG (CPalDlg) 

virtual BOOL OnlnitDialog ( ) ; 

afx^msg void OnPaint () ; 

afx_msg void OnCheckShowIndex ( ) ; 
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afx_msg void OnLButtonDown (UINT nFlags, CPoint point); 
afx_msg void OnLButtonUp (UINT nFlags , CPoint point); 
afx_msg void OnMouseMove (UINT nFlags , CPoint point); 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

/ / { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

[defined (AFX_PALDLG_H E0 3 6BF4 2_A18D_11D1_8 0E2_0 800 0 9B9F3 3 9 INCLUDED_) 
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MICROSOFT FOUNDATION CLASS LIBRARY : MapEd 



AppWizard has created this MapEd application for you. This application 
not only demonstrates the basics of using the Microsoft Foundation classes 
but is also a starting point for writing your application- 

This file contains a summary of what you will find in each of the files that 
make up your MapEd application. 

MapEd . h 

This is the main header file for the application. It includes other 
project specific headers (including Resource. h) and declares the 
CMapEdApp application class. 

MapEd . cpp 

This is the main application source file that contains the application 
class CMapEdApp. 

MapEd . rc 

This is a listing of all of the Microsoft Windows resources that the 
program uses. It includes the icons, bitmaps, and cursors that are 
stored 

in the RES subdirectory. This file can be directly edited in Microsoft 
Developer Studio. 

res\MapEd . ico 

This is an icon file, which is used as the application's icon. This 
icon is included by the main resource file MapEd. rc. 

res\MapEd . rc2 

This file contains resources that are not edited by Microsoft 

Developer Studio. You should place all resources not 

editable by the resource editor in this file. 

MapEd . clw 

This file contains information used by ClassWizard to edit existing 
classes or add new classes. ClassWizard also uses this file to store 
information needed to create and edit message maps and dialog data 
maps and to create prototype member functions. 

///////////////////////////////////////////////////////////////////////////// 

For the main frame window: 

MainFrm.h, MainFrm.cpp 

These files contain the frame class CMainFrame, which is derived from 
CFrameWnd and controls all SDI frame features. 

res\Toolbar . bmp 

This bitmap file is used to create tiled images for the toolbar. 
The initial toolbar and status bar are constructed in the 
CMainFrame class. Edit this toolbar bitmap along with the 
array in MainFrm.cpp to add more toolbar buttons. 
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///////////////////////////////////////////////////////////////////////////// 

AppWizard creates one document type and one view: 

MapEdDoc.h, MapEdDoc . cpp - the document 

These files contain your CMapEdDoc class. Edit these files to 

add your special document data and to implement file saving and loading 

(via CMapEdDoc: : Serialize) . 

MapEdView.h, MapEdView . cpp - the view of the document 
These files contain your CMapEdView class. 
CMapEdView objects are used to view CMapEdDoc objects. 



///////////////////////////////////////////////////////////////////////////// 
Other standard files : 

StdAfx.h, StdAfx.cpp 

These files are used to build a precompiled header (PCH) file 
named MapEd.pch and a precompiled types file named StdAfx.obj. 

Resource . h 

This is the standard header file, which defines new resource IDs. 
Microsoft Developer Studio reads and updates this file. 

///////////////////////////////////////////////////////////////////////////// 
Other notes : 

AppWizard uses "TODO:" to indicate parts of the source code you 
should add to or customize. 

If your application uses MFC in a shared DLL, and your application is 
in a language other than the operating system's current language, you 
will need to copy the corresponding localized resources MFC4 0XXX.DLL 
from the Microsoft Visual C++ CD-ROM onto the system or system32 directory, 
and rename it to be MFCLOC.DLL. ("XXX" stands for the language abbreviation. 
For example, MFC40DEU.DLL contains resources translated to German.) If you 
don't do this, some of the UI elements of your application will remain in the 
language of the operating system. 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 
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// { {no_dependencies} } 

// Microsoft Developer Studio generated include file 



// Used 


by MapEd . rc 




// 






#def ine 


IDD_ABOUTBOX 


100 


#def ine 


DIB_GRID_64X32 


101 


#def ine 


ID_SPRITE_TYPE 


104 


#def ine 


ID_ACTOR_ELEVATION 


105 


#def ine 


IDB_SPLASH 


106 


#def ine 


DIB_ROOMKEY 


107 


#def ine 


IDR_MAINFRAME 


128 


#def ine 


IDR_MAPEDTYPE 


129 


#def ine 


IDS_ENTER_MSPT 


129 


#def ine 


IDD_DIALOG_VIEW 


130 


#def ine 


I D S_ENTER_ELEVAT I ON 


131 


#def ine 


IDS_ENTER_ACTOR_ELEVATION 


132 


#def ine 


IDS_ENTER_TIIiE__ELEVS 


133 


#def ine 


IDR_MENU_TILE 


134 


#def ine 


IDS_ENTER_STAGE_TITLE 


135 


#def ine 


IDS_ENTER_STAGE_MUS I C 


136 


#def ine 


IDS__ENTER_STAGE_IiINK 


137 


#def ine 


IDB_IL_OBJECT 


138 


#def ine 


XDD_ENV 1 RONMENT 


139 


#def ine 


IDC_PIXEI. 


140 


#def ine 


IDD_CLOSE 


141 


#def ine 


IDD_GETINT 


142 


#def ine 


IDD_GETSTRING 


143 


#def ine 


IDD_PALETTE 


144 


#def ine 


IDR_MENU_GRID 


145 


#def ine 


IDC_GREP_UP 


159 


#def ine 


IDC_GREP_DOWN 


160 


#def ine 


IDC_LIST_OBJ 


1000 


#def ine 


IDC_SB_PAL__RED 


1000 


#def ine 


IDC_ST_CELL_INFO 


1001 


#def ine 


IDC_SB_PAL_GREEN 


1001 


#def ine 


IDC_SB_CELL_ID 


1002 


#def ine 


IDC_SB_PAL_BLUE 


1002 


#def ine 


IDC_ST_PAL_RGB 


1003 


#def ine 


IDC_ED I T_S CREEN_W 


1003 


#def ine 


IDC_CHECK_SHOW_INDEX 


1004 


#def ine 


IDC_EDIT_SCREEN_H 


1004 


#def ine 


I D C_ED I T_T I L.E_W 


1005 


#def ine 


IDC_EDIT_TILE_H 


1006 


#def ine 


I D C_ED I T_D AT A_P ATH 


1007 


#def ine 


IDC_EDIT_PALFILE 


1008 


#def ine 


IDC_SPIN1 


1011 


#def ine 


1DC_ST_CXJRRENT_INT 


1013 


#def ine 


IDC_EDIT_NEW_INT 


1014 


#def ine 


IDC_EDIT_STRING 


1015 


#def ine 


IDS_RIT_NO__BEHAVIORS 


1058 


#def ine 


IDS_RIT_NO_SPRITES 


1059 


#def ine 


I DS_R I T_NO_WAVE S 


1060 


#def ine 


IDS_RIT_NO_MIDIS 


1061 


#def ine 


IDS_RIT_NO_STAGES 


1062 


#def ine 


I D S_R I T_NO_ SERVERIPS 


1063 


#def ine 


ID_FILE_LOADBKGND 


32771 


#def ine 


ID FILE LOADSPRITE 


32772 
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#def ine 


ID_VIEW_GRID 


32776 


#def ine 


ID_FILE_LOAD RIT 


32 777 


#def ine 


ID_FILE LOAD STAGE 


32 77 9 


#def ine 


ID_VIEW EARTH 


32 783 


#def ine 


ID_FILE_LOAD MAP 


32 7 84 


#def ine 


ID_FILE SAVE STAGE 


32785 


#def ine 


ID FILE SAVE MAP 


3 2 7 8 6 


#def ine 


ID_VIEW_PALETTE 


3278 7 


#def ine 


ID_OPTI0NS E^^V 


3 2 7 92 


#def ine 


ID_EDIT MODE 


32 7 94 


#def ine 


ID SPRITE ELEVATION 


3 2 7 96 


#def ine 


ID SPRITE FLIP 


"3 9 7 Q T 


#def ine 


ID SPRITE VERTICAL 


'a 9 7 Q o 


#def ine 


ID SPRITE OPACITYIOO 


T 9 7 Q Q 


#def ine 


ID SPRITE OPACITY50 


T 9 Q n n 

J ^ O Lf VJ 


#def ine 


ID_SPRITE_OPACITY2 5 


32801 


#def ine 


I D_S PR I TE_OP AC I T Y 1 2 


32802 


#def ine 


ID_S PR I TE_DELETE 


32803 


#def ine 


I D_S PR I TE_FL I P VERT 


32804 


#def ine 


ID_VIEW_MAP_ONLY 


32805 


#def ine 


ID_VIEW_GRAPH 


32808 


#def ine 


I D_ED I T_T I L E_CO ORD 


32810 


#def ine 


I D_V I E W_P AUS E 


32812 


#def ine 


I D_MENU_AN I MAT I ON 


32814 


#def ine 


ID_MENU_ANI_REPEAT 


32815 


#def ine 


ID_MENU_ANI FADE 


32816 


#def ine 


I D_MENU_NO AN I 


32817 


#def ine 


ID_S PR I TE_0 P AC I T Y 7 5 


32818 


#def ine 


ID_MENU__ANI RANDOM 


32819 


#def ine 


ID_MENU_STAGE TITLE 


32820 


#def ine 


I D_ED I T_S TAND 


32822 


#def ine 


ID_MENU_DA_FR 


32825 


#def ine 


I D_MENU_DA_FL 


32826 


#def ine 


ID_MENU_DA BL 


32827 


#def ine 


ID_MENU_DA_BR 


32829 


#def ine 


ID_ED I T_CREATE_MODE 


32830 


#def ine 


I D_MENU_RE C AL C_D A 


32832 


#def ine 


ID_MENU_DA_OPEN 


32833 


#def ine 


I D_MENU_DA_CLO S ED 


32834 


#def ine 


ID__MENU_SYNC EA 


32835 


#def ine 


ID_VIEW_NOELEV 


32836 


#def ine 


ID_MENU_STAGE MUSIC 


32837 


#def ine 


ID_VIEW_EA_GRAPH 


32838 


#def ine 


I D_MENU_ELE VAT I ON 


32840 


#def ine 


ID_MENU_EXIT_POINT 


32841 


#def ine 


ID_MENU_ENTRY_POINT 


32842 



// Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED 

#ifndef APSTUDIO_READONLY_SYMBOLS 

#define _APS_3D_CONTROLS 1 

#define _APS_NEXT_RESOURCE__VALUE 14 5 

#define _APS_NEXT_COMMAND_VALUE 3 2 843 

#define _APS_NEXT_CONTROL_VALUE 1016 
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ttdefine _APS_NEXT_SYMED_VALUE 108 

#endif 

ttendif 




m 

m 
ill 

01 



m 
m 
m 

a 
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// stdafx.cpp : source file that includes just the standard includes 
// MapEd.pch will be the pre-compi led header 

// stdafx.obj will contain the pre-compiled type information 
#include "stdafx.h" 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

/ / are changed infrequently 

// 

#if ! defined (AFX_STDAFX_H 7ECC1E08_9CO 9_11D1_8 0E2_2 8 8A06C10000 INCLIIDED_) 

#define AFX_STDAFX_H 7ECC1E0 8_9C0 9_11D1_8 0E2_2 88A06C1 0000 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // MSG VER >= 1000 



#define VC_EXTRALEAN 
headers 



// Exclude rarely-used stuff from Windows 



#include <afxwin.h> // MFC core and standard components 

#include <afxext.h> // MFC extensions 

#include <afxdisp.h> // MFC OLE automation classes 

#include <afxinet.h> 

#ifndef _AFX_NO_AFXCMN_SUPPORT 

#include <afxcmn.h> // MFC support for Windows Common 

Controls 

#endif // _AFX_NO_AFXCMN_SUPPORT 
#include " . . /UC2Messages . h" 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediatel 
before the previous line. 

#endif // 

1 defined {AFX_STDAFX_H 7ECC1E08_9C09_11D1_8 0E2_2 88A06C10000 INCLUDED ) 
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// 

// CBaseSocket class 
// 

// (C) Programmed by Kim 

// UNICHAT Media Lab 

// Information Technology Institue 

// UNICHAT 

// 

// Copyright (C) 1996 Microsoft Corporation 

// All rights reserved. 

// 

// Modified and trouble -shooted for MFC 

// : :CreateThread > CWinThread* Af xBeginThread 

// 

// Modified by Hojun Park. Feb 18 

// 1. Add FQueryListAllUsers 0 , FQueryLis tChannels ( ) to this class. 

// 

#include "stdafx.h" 
#include " PXMessages . h" 
#include "BaseSock.h" 




//DWORD stdcall DwSocketThreadProc (PVOID pvData) ; 



CBaseSocket : : CBaseSocket ( ) 

{ 



mj)ics 

m_p Factory 

m_p Thread 

m_hThread 

m_bCanceled 

m_nPICSRef 

m_bQueryOK 

m_IjastQType 

m_iltem 

m_hNotif y 



= NULL; 
NULL; 
NULL; 
NULL; 
FALSE ; 
0; 

TRUE ; 

Q_LIST_USERS; 

= 0; 
NULL; 



CBaseSocket : : -CBaseSocket ( ) 

{ 



} 



Cleanup () ; 



// Close the socket and kill the worker thread. 

void CBaseSocket : : Cleanup ( ) 

{ 

if ( !m_bCanceled) 

FCloseChatSocket () ; 



if (m_pFactory) 

{ 

m__pFactory->Release () ; 

} 

if (m_j>ics) 

{ 

m_pics->Release 0 ; 

} 
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WaitForMsgThread { ) ; 

} 

// We need to make sure to wait for the thread to exit, so we 
// can be sure all the resources have been cleaned up. 
void CBaseSocket : : WaitForMsgThread ( ) 

{ 

if (m_hThread) 

{ 

TRACE ( "CBaseSocket - : : WaitForSingleOb j ect ( Ox%lx , lOOOL) ;\n'\ 

m_hThread) ; 



DWORD dwRc = : : WaitForSingleObject {m_hThread, lOOOL) ; 

switch (dwRc) 

{ 

case WAIT_OBJECT__0 : 

TRACEO ( "Thread: WAIT_OBJECT_0\n " ) ; 

break; 
case WAIT_ABANDONED: 

TRACEO { "Thread : WAIT_ABANDONED\n" ) ; 

breaks- 
case WAIT_TIMEOUT : 

TRACEO ( "Thread Hung I Deleting . . . \n" ) ; 
// delete m__pThread; 

break; 
case WAIT_FAILED: 

TRACE ( "Thread : WAIT_FAILED " ) ; 

break; 
default : 

TRACEO ( "Thread Hung ! \n" ) ; 

break ; 

} 

// ; rCloseHandle (m_hThread) ; 

m_pThread = NULL; // CWinThread auto-deleted 
m_hThread = NULL; 

} 

} 

/ / Log off and close the socket . 
BOOL CBaseSocket: : FCloseChatSocket ( ) 
{ 

if (m__pics) 

{ 

Tn_j)ics - >HrLogOf f ( ) ; 

// After a successful log off, 

// the IChatSocket : :HrWaitForMsg method will return a 
CS_E_QUEEMPTY message, 

// You should then terminate your message loop. 
WaitForMsgThread ( ) ; // Soomin Kim 

m_pics->HrCloseSocket {) ; // A thread in ChatSock.dll exits 

(0x800046010 

m_pics- >Release () ; 

if (m_nPICSRef) 
{ 
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m_pics - >Re lease () 
m_nPICSRef - - ; 



m_pics = NULL; 



return TRUE; 

} 

PICS CBaseSocket : : PChatSocket () 
{ 

ASSERT {m_pics) ; 

if (m__pics) 

m_pics->AddRef {) ; 
return m_jpics; 

} 



// Initialize the object. We create the socket factory here, so we can 
// allow disconnecting during the process of connecting; a connection attemp 
// can take a long time, so if the caller wants to cancel the process, 
//it can call HrDisconnect ( ) in another thread. 
BOOL CBaseSocket : :FInit 0 
{ 

if (m_pics) 



{ 



} 



// we already have it. 
return FALSE; 



if (m_pFactory) 
{ 

//We already have it, just Release () it. 
m_pFactory- >Release { ) ; 

TRACED ("CBaseSocket : : : HrCreateChatSocketFactory ( IID CHATSOCKVERl 
&m_pFactory) \n" ) ; ~ 

HRESULT hr = :: HrCreateChatSocketFactory ( IID CHATSOCKVERl, 
&:m_pFactory) ; 

if (FAILED (hr)) 
{ 

// If we failed to get the interface IChatSocketFactory . 
FOnSocketError (hr) ; // virtual function call 

m_pFactory = NULL; 
return FALSE; 

} 

return TRUE; 

} 

// Connecting to a chat server via ChatSock is a 2 -step process. 
// Since we don't know if the chat server is a MIC or IRC server, 
//we call the socket factory and let it sort out the protocol issues. 
// The socket factory will create a socket. 

// Once we have the socket, we can then connect and log into the server. 
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BOOL CBaseSocket : : FConnect (PEC_CONNINFO pclnfo, HWND hNotifyWnd) 
{ 

HRESULT hr = NOERROR; 

BOOL fDoneBak = FALSE; // Have we tried the backup nick? 

BOOL fLoop = TRUE; 

TCHAR cBackupIDSuf f ix = ' 0 ' ; 

ASSERT (pclnfo m_pFactory) ; 

if (FConnected 0 ) 
return TRUE; 

// If we have a window to which we notify event. We notify the event t 
the window. 

// CMD_CONNECT_CONNECTING is a predefined message defined in 
PXMessage . h . 

if (hNotifyWnd) 
{ 

m_hNotify = hNotifyWnd; 

:: PostMes sage (hNotifyWnd, CMD CONNECT CONNECTING, 0, 0); 

} 

m_bCanceled = FALSE; 

TRACE ("CBaseSocket : m_pFactory- >HrMakeSocket (%s, %lx) \n" , pclnfo- 
>szServer, &:m__pics) ; 

hr = m_j)Factory->HrMakeSocket (pclnfo- >szServer, Scm_pics) ; 
if (FAILED (hr)) 

goto LReturn; 

if (m_pics->HrIsMicSocket ( ) != NOERROR) 

{ 

// whether we connect to MIC Server. If NO . 

: :MessageBox (NULL, "This is not an MIC socket!\n", "CBaseSocket" 

MB_OK) ; 

goto LReturn; 

} 

// If we have a window to which we notify event. We notify the event t 
the window. 

// CMD_CONNECT_LOGIN is a predefined message defined in PXMessage. h. 
if (hNotifyWnd) 

:: PostMessage (hNotifyWnd, CMD_CONNECT_LOGIN, 0, 0); 

CS_CONNINFO cinfo; 

: : ZeroMemory (ficclnf o, sizeof (CS_CONNINFO) ) ; 

cinfo.dwcb = sizeof (CS_CONNINFO) ; 

cInfo.bType = pcinf o- >f Authenticate ? CS__CONNECT_AUTHENTICATE : 

CS_CONNECT_ANONYMOUS ; 

cInfo.pvNick = (PVOID) pclnfo - >szNick; 

cinf o .pvUser = (PVOID) pclnfo- >szUserName ; 

cinf o .pvPass = (PVOID) pclnfo- >szPass ; 

// Loop till we have a result on the login 
while (fLoop) 

{ 

hr = m_pics->HrLoginA(&cInfo) ,- 
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if (FAILED (hr) ) 
{ 

goto LReturn; 

} 

// Now check the Wait Q for acknowledgement 
PCS_MSGBASE pcsMsg; 

hr = m_pics- >HrWaitTillMsgType (CSMSG_TyPE_LOGIN, &pcsMsg, pclnfo- 

>dwTimeOut) ; 

if (FAILED (hr) ) 
{ 

// Did we log in or get an error? 

if (hr == CS_E_ILLEGALUSER) 

{ 

FOnSocketError (hr) ; 
continue ; 

} 

if ( (hr == CS_E_ALIASIMUSE} && I f DoneBak && pclnfo- 

>szNickBak) 

{ 

int n = Istrlen (pcinf o->szNickBak) ; 
pclnfo- >szNickBak [n-1] = cBackupIDSuf f ix; 
clnfo.pvNick = (PVOID) pclnfo- >szNickBak; 
if (cBackupIDSuf fix++ >= '9') 

{ 

f DoneBak = TRUE; 

} 

if (hNotifyWnd) 

{ 

: :PostMessage (hNotifyWnd, CMD_CONNECT_BACKUPID, 

0 , 0 ) ; 

} 

continue ; 




} 

goto LReturn; 



FOnLogin 0 ; // call the virtual function 

fLoop = FALSE; 

: : HrPreeMsg (pcsMsg) ; 



LReturn : 

// If successful, save the socket 

if (SUCCEEDED (hr) ) 

{ 

// Start a thread to read messages from the message queue. 

if ( ! FStartMessageThread ( ) ) 

{ 

FOnSocketError (E_OUTOFMEMORY) ; // virtual function 

call 

Cleanup (} ; 
return FALSE; 
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return TRUE; 

} 

// Failure 

//On Cancel, m_pics - >HrCloseSocket ( ) may already been called by 
FCloseChatSocket () . 

if ( lm_bCanceled && m_pics) 

TRACEO ( "CBaseSocket : : FConnect : m_pics - >HrCloseSocket {) \n") ; 
m_pics->HrCloseSocket() ; 

TRACEO ( "CBaseSocket : : FConnect : m_pics - >Release 0 \n") ; 
m_pics - >Release ( ) ; 
m_pics ^ NULL; 

} 

// FOnSocketError (hr) ; 
for OnCancel . . . 
// TRACEO ( "CBaseSocket 

return FALSE ; 

} 

// Disconnect from the server. 

// Cancels any in-progress connection attempts or other blocking operati 

BOOL CBaseSocket : rFDisconnect 0 

{ 

//As long as m_pFactory is alive, HrCancelMakeSocket ( ) will have 

// the same effect as calling HrCloseSocket ( ) on a ChatSocket . 

m_bCanceled = TRUE; 

FCloseChatSocket ( ) ; 

if (m_pFactory) 

{ 

TRACEO ("CBaseSocket : m_pFactory- >HrCancelMakeSocket ( ) \n" ) ; 
HRESULT hr = m _pFactory- >HrCancelMakeSocket ( ) ; 
// mj)Factory->Release C ) ; 

// m_pFactory = NULL; // to prevent calling mpFactory- 

>HrCancelMakeSocket ( ) again 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

} 

// m_pThread = NULL; 
// m_hThread = FALSE; 

return TRUE; 

} 

// Does this server support anonymous logins? 
BOOL CBaseSocket : : FCanAnonymous () 

// Grab security details. 
PCS_SECURITY pcsSecurity; 

HRESULT hr = m_pics->HrGetSecurityInfo (&:pcsSecurity) ; 
if (FAILED (hr)) 

{ 

return TRUE; // failed to get the correct answer, just 

assume that anon. 



// virtual function call // Doesn't work 

: : FConnect returned FALSE\n") ; 
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} 

return pcsSecurity->f AnonAllowed; 

} 

// Uses m_pics->HrCreateChannelA( ) to create a channel; 
// If a channel with the specified name already exists, 
// This function simply joins that channel. 

BOOL CBaseSocket : : FCreateJoinChannel {PEC CHANNELINFO pChanlnfo) 
{ 

ASSERT (pChanlnfo) ; 
ASSERT {m_j5ics) ; 

CS_CINFO cinfo; // defined in csface.h 
: :FillMemory (Scclnfo, sizeof (CS_CINFO) , 0) ; 

cinfo.dwcb = sizeof (CS_CINFO) ; 

cInfo.dwType ^ pChanInf o- >dwType ; 

cInfo.dwFlags = pChanlnfo- >dwFlags / 

// if channel exists, join it, else create a new one. 
cinf o.bCreateFlags = CS_CHANNEL_CREATE_JOIN; 

cinf o .pvChannelName = ( PVOID) pChanlnfo- >szName , • 
cInfo.pvTopic = (PVOID) pChanlnfo- >szTopic; 

clnf o .pvPassword = pChanInf o- >szPass ; 
cinf o . dwcUserMax = pChanlnfo- >cUsersMax ; 

HRESULT hr = m__pics - >HrCreateChannelA ( &clnf o) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

BOOL CBaseSocket : .-FConnectedO 
{ 

^ return (m_pics && (NOERROR == ni_pics- >HrIsConnected ( ) ) ) ; 

BOOL CBaseSocket : :ChangeNick (LPCSTR nick) 
{ 

ASSERT (m_pics) ; 

HRESULT hr = m_pics - >HrChangeNickA (( char* ) nick) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

// Waits for a message to arrive on the message queue. 

// Calling FCloseChatSocket on the socket will cause this method to return 
FALSE immediately. 

// Dispatches the received message using the overrideable virtual methods 
of CBaseSocket . 
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BOOL CBaseSocket: : FWaitForMessage ( ) 

if { !m pics) 

return FALSE; 

m_pics->AddRef {) ; // increase the ref count so that 

we can be sure that 

TRACEO("m_pics->AddRef 0 ;\n") ; // the socket object doesn't go 

away until this function ends... 
m_nPICSRef ++ ; 

PCS_MSGBASE pcsMsg; 

while (SUCCEEDED (m_jpics->HrWaitForMsg C&pcsMsg, INFINITE) ) ) 

TRACE("-> CBaseSocket : :FWaitForMessage\n", pcsMsg- >csMsgType ) ; 
switch (pcsMsg- >csMsgType) // BYTE 

case CSMSG_TYPE_ERROR : 
{ 

TRACE ("CSMSG_TyPE_ERROR\n") ; 

PCS_ERROR pErr = MSGBASE_TO_MSG (pcsMsg , PCS_ERROR) 
FOnSocketError (pErr->hr) ; // virtual function 

call 

if (pErr->hr CS E NOMATCHES) 

{ 

SetQueryOK ( ) ; 
: : SendMessage (m_hNotify , 
CMD_QUERY_CHANNELS_END, (WPARAM) 0 , (LPARAM) 0) ; 

TRACE ( "No Matches ! \n" ) ; 

} 

break ; 

case CSMSG_TYPE_ADDCHANNEL : 
{ 

PCS^MSGCHANNEL pMsgCh = MSGBASE TO MSG(pcsMsq, 
PCS_MSGCHANNEL) ; - - ^ 

FOnAddChannel (pMsgCh) ; // virtual function 

call; Ref++ 

} 

break; 

case CSMSG_TYPE_PRIVATEMSG- 
{ 

PCS_MSGPRIVATE pMsgPrivate = MSGBASE TO MSG (pcsMsq 
PCS_MSGPRIVATE) ; - - f 

FOnPrivateMsg(pMsgPrivate) ; // virtual function 

call 

} 

break; 

case CSMSG_TYPE_QUERYDATA : 

{ 

TRACE ( " CBaseSocket : : FWaitForMessage- - 
>CSMSG_TYPE_QUERYDATA\n") ; 



A-709 



MonToolVBaseSock.cpp 



PCS_PROPERTY pcsProp - MSGBASE TO MSG (pcsMsq 

PCS_PROPERTY) ; - - 

FParseQueryData (pcsProp) ; // virtual function 

call 

} 

breaks- 
case CSMSG__TYPE_INVITE : 
{ 

PCS_MSGINVITE pcslnvite 

PCS_MSGINVITE) ; 

FOnlnvite (pcslnvite) ; 

call 

} 

break ; 
default : 

FUnknownMessage (pcsMsg) ; // virtual function call 

break; 

} 

: :HrFreeMsg (pcsMsg) ; 
if (m_j>ics) 

{ 

m_jpics- >Release ( ) ; 
m_nPICSRef ; 

TRACEO ("m_pics->Release 0 ;\n") ; // the socket object doesn't 

go away until this function ends... 
// mj)ics ^ NULL; 

} 

TRACEO ( "End of CBaseSocket : : FWai tForMessage ( ) \n" ) ; 
return TRUE; 

} 

/ / Performs default parsing on query data messages . 

//If this method is not overridden, it will call FOnPropString and 

FOnPropBuf f er 

//as appropriate for the query data. 

BOOL CBaseSocket: : FParseQueryData (PCS_PROPERTY pcsProp) 

BOOL fRet = TRUE; 

ASSERT (pcsProp) ; 

if ( !pcsProp->picsProperty) 

{ 

// Null Property pointers indicate that 

// this is the last record in a data set returned by a query 
SetQueryOKO ; 
return TRUE; 

} 

switch (GetLastQueryType ( ) ) 

{ 

case Q_LIST_CHANNELS : 
{ 

TRACE { "Q_LIST_CHANNELS\n" ) ; 

: : SendMessage (m_hNotif y, CMD_QUERY_CHANNELS , 0 , 
(LPARAM) pcsProp- >picsProperty) ; 



= MSGBASE_TO__MSG (pcsMsg, 
// virtual function 
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m_iltenn++ ; 

if (pcsProp- >f LastRecord) 
{ 

TRACE ( "Q_LIST_CHANNELS-->f LastRecored\n" ) ; 

SetQueryOKO ; 

: : SendMessage (m_hNotif y , 

CMD_QUERY_CHANNELS_END , ( WPARAM) m_i I tern , 

(L.PARAM) 0) ; 

} 

} 

break; 
case Q_LIST_USERS : 

case Q_CHANNEL_MEMBERS : // CMemberDlg inqures 
{ 

TRACE ("Q_CHANNEL_MEMBERS\n") ; 

: : SendMessage (m_hNotif y , CMD_QUERY_MEMBERS , 0 , 

(LPARAM) pcsProp- >picsProperty) ; 
m_iIteTn++ ; 

if (pcsProp- >f LastRecord) 
{ 

TRACE ( "Q_CHANNEL_MEMBERS - - >f LastRecord\n" ) ; 
SetQueryOK 0 ; 

: : SendMessage (m_hNotify, CMD_QUERY_MEMBERS_END , 
(WPARAM) m_i It em, (LPARAM) 0) ; 

} 

} 

break; 

case Q_GET_REALNAME : // CSINDEX_PROP_REALNAME_NAME 

{ 

CS_PROPDATA cspd; 

if (FAILED (pcsProp- >picsProperty- >HrGetProperty (&cspd, 
CSINDEX_PROP_REALNAME_REALNAME) ) ) 

return FALSE; 
CHAR* szName = (CHAR*) cspd .pbData ; 
: : SendMessage (m_hNotify, 

CSMSG_CMD_QUERYDATA , 0 , ( LPARAM ) s zName ) ; 
TRACE ( "Q_GET_REALNAME => (%s) \n" , szName) ; 
SetQueryOKO ; 

} 

break; 
default : 

break; 

) 

return fRet; 

} 

BOOL CBaseSocket: : FStartMessageThread () 

{ 

WaitForMsgThreadO ; 

m_pThread = AfxBeginThread (SocketThreadProc , (LPVOID) this) ; 
ASSERT (m_pThread) ; 

m__hThread = m__pThread- >m_hThread; // Save the handle 
return (m_jpThread != NULL); 

} 
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// this function must be static and prototyped like this. 
UINT CBaseSocket : : SocketThreadProc (LPVOID pvData) 

{ 

ASSERT (pvData) ; 

CBaseSocket* pbasesocket = (CBaseSocket *) pvData ; 
return pbasesocket - >FWaitForMessage ( ) ; 

///////////////////////////////////////////////////////////////////////////// 
// Operations via Chat Socket 

BOOL CBaseSocket : iFSendPrivAnsiText (char* szNickTo, char* szText) 
ASSERT (m_pics ) ; 
CS_PRI VMSGINFO msg ; 

msg.dwcb = sizeof (CS^PRIVMSGINFO) ; 

msg-dwUserlD =0; // 0 if not available 

msg.pvNickTo = szNickTo; // name of the user to send 

this msg to 

msg. f Data = FALSE; // 

msg.pbData = (BYTE* ) szText ; // data to send 

msg.dwcbData =0; // 0 means null terminated 

string 

HRESULT hr = m_pics - >HrSendPrivMsgA ( &msg) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

return TRUE; 

} 

BOOL CBaseSocket :: FSendPrivData (char* szNickTo, BYTE* pbData, DWORD dwcb) 
ASSERT (m_jpics) ; 
CS__PRIVMSGlNFO msg ; 

msg. dwcb = sizeof {CS_PRIVMSGINFO) ; 

msg.dwUserlD =0; // 0 if not available 

msg.pvNickTo = szNickTo; // name of the user to send this 

msg to 

msg. f Data = TRUE; // 

msg. pbData = pbData; // data to send 

msg.dwcbData = dwcb; // o means null terminated 

string 

HRESULT hr = m_pics - >HrSendPrivMsgA ( &msg) ; 

if (FAILED (hr)) 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE ; 

} 

return TRUE; 

} 

BOOL CBaseSocket : :FQueryListAllUsers (char* szFind) 
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TRACE { "CBaseSocket : : FQueryLis tAl lUsers\n " ) ; 

ASSERT (m__pics) ; 

if ( lIsQueryOKO ) 
{ 

: rMessageBox (NULL, "Receiving Data.... QueryLis tAllUsers " , 
"Socket Report", 

MB_OK I MB_ICONEXCLAMATION) ; 
return FALSE; 

} 

HRESULT hr = Tn__pics - >HrListAl lUsersA ( szFind , CSPROP QUERY CONTAINS) - 
if (FAILED (hr)) ~ ~ 

{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

SetLastQueryType (Q_LIST_USERS ) ; 
return TRUE; 

} 

// Lists all channels that meet the following criteria: 
// a) the channel name must contain szChannel, and 

// b) the channel must have a number of members within the specified 
range . 

BOOL CBaseSocket : iFQueryListChannels (char* szChannel, DWORD dwcMin, DWORD 
dwcMax) 

{ 

TRACE ( "CBaseSocket : : FQueryLis tChanne Is \n" ) ; 
// Default 

// char* szChannel=NULL, DWORD dwcMin=l, DWORD dwcMax=1000 
ASSERT (m_pics) ; 

if ( ! IsQueryOKO ) 
{ 

TRACE ("IsQueryOKO is FALSE\n"); 

: :MessageBox(NULL, "Receiving Data... QueryListChannels " , "Socket 
Report", MB_OK | MB_ICONEXCLAMATION) ; 
return FALSE; 

) 

HRESULT hr = m_pics - >HrListAllChannelsA (dwcMin , dwcMax, szChannel 
CSPROP_QUERY_CONTAINS) ; 
if (FAILED (hr)) 
{ 

FOnSocketError (hr) ; // virtual function call 

return FALSE; 

} 

SetLastQueryType (Q_LIST_CHANNELS) ; 
return TRUE; 

} 

void CBaseSocket :: SetLastQueryType (const int nType) 
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TRACE { "CBaseSocket : : SetLastQueryType\n " ) ; 

m_LastQType = nType ; 
SetQueryOK (FALSE) ; 
m__iltem = 0; 

} 

mm/////////////////////////////////////////////////////////////////////// 

1 1 Debugging 
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// 

// CBaseSocket class 
// 

// Copyright (C) 1996 Microsoft Corporation 

// All rights reserved. 

// 

// Modification for MFC 
// (C) Programmed by Kim 

// 

// Information Technology Institue 

// UNICHAT INC 

// Modified by Hojun Park. Feb 18 

// 1. Add FQueryListAllUsers 0 , FQueryList Channels ( ) to this class. 

// 

#ifndef __BASESOCK_H 
#define _BASESOCK_H 

#include <micmsg.h> // MIC protocol header 

#include <csface.h> // ChatSock header 

#include <cserror.h> // ChatSock errors 

///////////////////////////////////////////////////////////////////////////// 
// class CBaseSocket 




// Pointer to this structure is passed to CBaseSocket :: HrConnect 

typedef struct conninfo 

{ 

char* szServer; // server to connect to 

char* szNick; // Nickname to use 

char* szNickBak; // A backup nick - optional 

char* szUserName; // user name to use 

char* szPass; // if szUserName is provided, so must 

szPass 

BOOIi f Authenticate; // should the connection be authenticated? 

DWORD dwTimeOut; 
} EC_CONNINFO , * PEC_CONNINFO ; 

// Pointer to this structure is passed to CBaseSocket :: HrCreateJoinChannel 

typedef struct channelinfo 

{ 

CHAR* szName; // name of the channel to join 

CHAR* szTopic; // if channel did not exist, and was therefore 

// created for you, set the topic 

to this value 

CHAR* szPass; // password on this channel 

DWORD cUsersMax; // how many users at max...O if default 

DWORD dwType; // channel type 

DWORD dwFlags; // channel flags. 

} EC_CHANNELINFO, *PEC_CHANNELINFO ; 

// CBaseSocket 

// CBaseSocket is a wrapper around IChatSocket . It provides message-handling 
code 

// and wrappers around some IChatSocket functionality. If you need more 

// functionality from ChatSock, use CBaseSocket :: PSocket ( } to obtain a socket 

// interface and then call ChatSock directly. 

// Note: if you intend to keep that pointer around in other data structures. 
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// you should AddRef ( ) it and then Release () it when that particular data 
structure 

// goes away. This will make your cleanup logic a lot more robust . 
class CBaseSocket : public CObject 

{ 

public : 

BOOL ChangeNick (LPCSTR nick) ; 

CBaseSocket ( ) ; 

virtual -CBaseSocket () ; 

enum 
{ 

Q_LIST_USERS, 
Q_LIST_CHANNELS , 
Q_CHANNEL_MEMBERS , 
Q GET REAIjNAME 



IsQueryOKO const { return 

SetQueryOK (const BOOL bQOK=TRUE) { m__bQueryOK = 

GetLastQueryType 0 const { 
SetLastQueryType {const int nType) ; 
FInit {) ; 

FConnect (PEC_CONNINFO pclnfo, HWND hNotif yWnd=NULL} 
FDisconnect ( ) ; 
FCloseChatSocket ( ) ; 

FCreateJoinChannel (PEC_CHANNELINFO pChanlnfo) ; 

FCanAnonymous ( ) ; 
FConnected () ; 
PChatSocket () ; 

FSendPrivAnsiText (char* szNickTo, char* szText) ; 
FSendPrivData (char* szNickTo, BYTE* pbData, DWORD 

FQueryListChannels (char* szChannel^NULL , DWORD 
1000) ; 

FQueryListAllUsers (char* szFind=NULL) ; 




) QUERY_TYPE; 

BOOL 
m_bQueryOK; } 

void 
bQOK; } 

int 

return m_LastQType; } 
void 

BOOL 
BOOL 
BOOL 
BOOL 

BOOL 

BOOL 
BOOL 
PICS 

BOOL 
BOOL 

dwcb) ; 

BOOL 

dwcMin=l, DWORD dwcMax= 
BOOL 



// Overrideables 
virtual BOOL 

return TRUE; } 

virtual BOOL 

TRUE ; } 



// 



virtual BOOL 
virtual BOOL 
virtual BOOL 
virtual BOOL 



return TRUE ; } 



FOnLogin ( ) 

FOnSocketError (HRESULT hr) 



{ 

{ return 



FOnAddChannel (PCS_MSGCHANNEL pMsg) 
FOnPrivateMsg (PCS_MSGPRIVATE pMsg) 
FOnlnvite ( PCS_MSGINVITE pes Invite) 
FOnPropString (CSPROP_TYPE csType, char* sz) 



{ return TRUE 
{ return TRUE 
return TRUE 



{ 



{ 
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// virtual BOOL FOnPropBuf f er (CSPROP_TYPE csType, BYTE* pbBuffer, 

DWORD dwcb) { return TRUE; } 

virtual BOOL FParseQueryData {PCS_PROPERTY pcsProp) ; 

// and if we got something we don't really handle.. 



virtual BOOL 

protected : 

static UINT 
void 

void 
BOOL 
BOOL 
void 

PICS 
*PICS; 

PICS_FACTORY 
* P I CS_FACTOR Y ; 
CWinThread* 
HANDLE 
for : : WaitSingleObj ect 
BOOL 
int 

BOOL 
answer yet . . . 
int 

type? 

int 
HWND 

}; 



FUnknownMessage (PCS_MSGBASE pMsg) { return TRUE; } 

SocketThreadProc (LPVOID pvData) ; 
Cleanup 0 ; 

SetSocket (PICS pics); 
FStartMessageThreadO ; 
FWaitForMessage ( ) ; 
WaitForMsgThread ( ) ; 

m_pics; // typedef IChatSocket 

m_jpFactory; // typedef IChatSocketFactory 

mjThread; // Message Thread. 

m_hThread; // Save the handle of the Thread 

m__bCanceled; 

m_nPICSRef; // for Reference counting. 

^__t)QueryOK; // Limit query if we didn't get the 

m_LastQType; // What was the last query 

m_iltem; // current item 

m_hNotify; // window's handle to notify to. 



#endif // BASESOCK H 
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// MainFrm.cpp : implementation of the CMainFrame class 
// 

#include " stdaf x . h " 

#include "MonTool.h" 

ttinclude "MainFrm.h" 

#include "MonToolDoc . h" 

#include "MonListView . h" 

#include "MonToolView . h" 

#include "pxmessages . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame 

IMPLEMENT_DYNCREATE (CMainFrame , CFrameWnd) 

BEGIN__MESSAGE_MAP (CMainFrame, CFrameWnd) 
// { {AFX_MSG_MAP (CMainFrame) 
ON_WM_CREATE ( ) 
ON_WM_TIMER ( ) 
// } }AFX_MSG_MAP 
// User-Defined Messages 

//0N_MESSAGE (CSMSG_CMD_ADDCHANNEL, OnCsAddChannel) 

//0N_MESSAGE (CSMSG_CMD_PRIVATEMSG, OnCsPrivateMsg) 
OW_MESSAGE ( CSMSG_CMD_QUERYDATA, OnCsQueryData ) 

0N_MESSAGE (CMD_QUERY_MEMBERS , OnCs Query Members ) 

ON_MESSAGE (CMD_QUERY_MEMBERS_END , OnCsQueryMembersEnd) 

ON_MESSAGE ( CMD_QUERY_CHANNELS , OnCsQueryChannels ) 

ON__MESSAGE (CMD_QUERY_CHANNELS_END , OnCsQueryChannelsEnd) 
//ON_MESSAGE (CSMSG_CMD_im/ITE, OnCs Invite) 

//ON_MESSAGE (CSMSG_CMD_GOTMEMLIST, OnCsGotMemLi st ) 
//ON_MESSAGE { CSMSG_CMD_ADDMEMBER , OnCsAddMember ) 

//ON_MESSAGE ( CSMSG_CMD_DELMEMBER , OnCsDelMember ) 

//ON_MESSAGE ( CSMSG_CMD__DELCHANNEL , OnCsDelChannel ) 

/ / ON_MES SAGE ( CSMSG_CMD_MODEMEMBER , OnC sModeMembe r ) 

/ /ON_MESSAGE ( CS MS G_CMD_MODE CHANNEL , OnCsModeChannel ) 
//ON_MESSAGE ( CSMSG_CMD_TEXT_A, OnCsTextA) 
//ON_MESSAGE ( CSMSG_CMD_DATA , OnCsData) 
//ON_MESSAGE ( CSMSG_CMD_WHISPERTEXT_A, OnCsWhisperText ) 

//ON_MESSAGE ( CSMSG_CMD_WHISPERDATA, OnCsWhisperData ) 
//ON_MESSAGE (CSMSG_CMD_NEWTOPIC, OnCsNewTopic ) 

//ON_MESSAGE ( CSMSG_CMD_NEWNICK, OnCsNewNick) 
END_MESSAGE_MAP ( ) 

static UINT indicators [] = 
{ 

ID_SEPARATOR, // status line indicator 

ID_INDICATOR_CAPS , 
I D_ I ND I C ATO R_NUM , 
ID_INDICATOR_SCRL, 
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}; 

///////////////////////////////////////////////////////////////////////////// 

// CMainFrame construction/destruction 
CMainFrame : : CMainFrame { ) 

{ 

// TODO: add member initialization code here 

} 

CMainFrame : : -CMainFrame () 

{ 

} 

int CMainFrame : :OnCreate (LPCREATESTRUCT IpCreateStruct ) 

if {CFrameWnd : :OnCreate (IpCreateStruct) -1) 
return -1; 

if ( !m_wndToolBar. Create (this) || 

! m^wndToolBar . LoadToolBar ( IDR MAINFRAME) ) 

{ 

TRACED ("Failed to create toolbar\n"); 
return -l; // fail to create 

} 

if ( !m_wndStatusBar. Create (this) || 

im__wndStatusBar. Set Indicators (indicators, 
sizeof (indicators) /sizeof (UINT) ) ) 

{ 

TRACED ("Failed to create status bar\n"); 
return -1; // fail to create 

} 

// TODO: Remove this if you don't want tool tips or a resizeable 
toolbar 

m_wndToolBar . SetBarStyle {m_wndToolBar . GetBarStyle ( ) | 
CBRS_TOOLTIPS | CBRS_FLYBY | CBRS__SIZE_DYNAMIC ) ; 

// TODO: Delete these three lines if you don't want the toolbar to 
// be dockable 

m_wndToolBar . EnableDocking (CBRS_ALIGN_ANY) ; 
EnableDocking (CBRS_ALIGN_ANY) ; 
DockControlBar (&m_wndToolBar) ; 

return 0; 

} 

BOOL CMainFrame : :PreCreateWindow(CREATESTRUCT& cs) 

{ 

// TODO: Modify the Window class or styles here by modifying 

// the CREATESTRUCT cs 

cs. style -FWS_ADDTOTITIiE; 

return CFrameWnd: : PreCreateWindow { cs ) ; 

} 
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///////////////////////////////////////////////////////////////////////////// 
I / CMainFrame diagnostics 

#ifdef _DEBUG 

void CMainFrame : :AssertValid ( ) const 

{ 

CFrameWnd: : AssertValid ( ) ; 

} 

void CMainFrame :: Dump (CDumpContext& dc) const 

{ 

CFrameWnd: :Dump{dc) ; 

} 

#endi f / /_DEBUG 

II III III 11 / III 1 11 III I II III /iiiii 1/111/ iiii/m/ 1 mil III /I III/ /I/Ill II 111/11/ 

// CMainFrame message handlers 

BOOL CMainFrame: :OnCreateClient (LPCREATESTRUCT Ipcs, CCreateContext * 
pContext ) 

{ 

// CG: The following block was added by the Split Bars component 

/* 

{ 

if ( !m_wndSplitter .Create (this, 

1/2, // TODO: adjust the 

number of rows , columns 

CSizedO, 10), // TODO: adjust the 

minimum pane size 

pContext) ) 

{ 

TRACEO ("Failed to create split bar "); 
return FALSE; // failed to create 

} 



} 



return TRUE; 



if ( !m_wndSplitter .CreateStatic (this, 1, 2) || 

!m_wndSplitter .CreateView(0, 1, RUNTIME_CLASS (CMonListView) , 
CSize(0, 0), pContext) || 

!m_wndSplitter.CreateView(o, 0, RlINrTIME_CLASS (CMonToolView) , 
CSizeOOO, 0), pContext)) 
return FALSE; 

return TRUE; 



///////////////////////////////////////////////////////////////////////// 
// ChatSock Message Handler 

LRESULT CMainFrame : :OnCsQueryData (WPARAM wParam, LPARAM iParam) 
{ 

TRACE ( "CMainFrame : : OnCsQueryData\n " ) ; 
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CMonToolDoc* pDoc - ( CMonToolDoc* ) GetAct iveDocument ( ) ; 
return pDoc - >OnCsQueryData ( wParam, iParam) ; 

} 

LRESULT CMainFrame : :OnCsQueryMembers (WPARAM wParam, LPARAM iParam) 
TRACE ("CMainFrame: : OnCsQueryData\n" ) ; 

CMonToolDoc* pDoc = (CMonToolDoc* ) Get Act iveDocument () ; 
return pDoc - >OnCsQueryMembers (wParam, IParam) ; 

LRESULT CMainFrame : lOnCsQueryMembersEnd (WPARAM wParam, LPARAM IParam) 

{ . 

TRACE ("CMainFrame: : OnCsQueryData\n " ) ; 

CMonToolDoc* pDoc = (CMonToolDoc* ) Get Act iveDocument () ; 
return pDoc - >OnCsQueryMembersEnd (wParam, IParam) ; 

LRESULT CMainFrame: rOnCsQueryChannels (WPARAM wParam, LPARAM IParam) 
TRACE ( "CMainFrame : : OnCsQueryData\n" ) ; 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument () ; 
^ return pDoc - >OnCsQueryChannels (wParam, IParam); 

LRESULT CMainFrame : rOnCsQueryChannelsEnd (WPARAM wParam, LPARTU^ IParam) 
TRACE ( "CMainFrame : : OnCsQueryData\n" ) / 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument () ; 
return pDoc - >OnCsQueryChannelsEnd (wParam, IParam) ; 

/* 

LRESULT CMainFrame : :OnCsAddChannel (WPARAM wParam, LPARAM IParam) 
{ 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
^ return pDoc - >OnCsAddChannel (wParam, IParam); 

LRESULT CMainFrame : rOnCsPrivateMsg (WPARAM wParam, LPARAM iParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
return pDoc- >OnCsPrivateMsg (wParam, IParam); 




LRESULT CMainFrame : :OnCsInvite (WPARAM wParam, LPARAM IParam) 

{ 

CMonToolDoc* pDoc = ( CMonToolDoc* ) GetAct iveDocument () ; 
^ return pDoc - >OnCsInvite (wParam, IParam); 

LRESULT CMainFrame : :OnCsGotMemList (WPARAM wParam, LPARAM iParam) 
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{ 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument ( ) ; 
^ return pDoc->OnCsGotMemList (wParam, iParam) ; 

LRESULT CMainFrame: :OnCsAddMember (WPARAM wParam, LPARAM iParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument () ; 
^ return pDoc->OnCsAddMember (wPar am, IParam) ; 

LRESULT CMainFrame: :OnCsDelMember (WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument () ; 
^ return pDoc->OnCsDelMember (wParam, IParam) ; 

LRESULT CMainFrame: :OnCsDelChannel( WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
^ return pDoc->OnCsDelChannel (wParam, IParam); 

LRESULT CMainFrame : rOnCsModeMember (WPARAM wParam, LPARAM iParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
^ return pDoc->OnCsModeMember (wParam, IParam) ; 

LRESULT CMainFrame: :OnCsModeChannel (WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
^ return pDoc->OnCsModeChannel (wParam, IParam); 

LRESULT CMainFrame: :OnCsTextA (WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
^ return pDoc->OnCsTextA (wParam, IParam); 

LRESULT CMainFrame: lOnCsData (WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument () ; 
return pDoc - >OnCsData (wParam, IParam); 

} 

LRESULT CMainFrame: :OnCsWhisperText (WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc - (CMonToolDoc* ) GetActiveDocument () ; 
^ return pDoc->OnCsWhisperText (wParam, IParam); 

LRESULT CMainFrame: :OnCsWhisperDat a (WPARAM wParam, LPARAM IParam) 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
return pDoc- >OnCsWhisperData (wParam, IParam); 
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} 

LRESULT CMainFrame : :OnCsNewTopic {WPARAN wParam, LPARAM IParam) 

{ 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetAct iveDocument ( ) ; 
return pDoc->OnCsNewTopic (wParam, iParam) ; 

} 

LRESULT CMainFrame : lOnCsNewNick (WPARAM wParam, LPARAM iParam) 

{ 

CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
return pDoc- >OnCsNewNick (wParam, IParam); 

} 

*/ 

void CMainFrame : :OnTimer (UINT nIDEvent) 
{ 

// TODO: Add your message handler code here and/or call default 
CMonToolDoc* pDoc = (CMonToolDoc* ) GetActiveDocument () ; 
pDoc - >Start ( ) ; 

CFrameWnd : rOnTimer (nIDEvent ) ; 

} 
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// MainFrm.h : interface of the CMainFrame class 
// 

///////////////////////////////////////////////////////////////////////////// 

#if ! defined ( AFX_MAINFRM_H 565A73AB_A919_11D1_9169_00 00F0610C92 INCLUDED ) 

#def ine AFX_MAINFRM_H 565A73AB_A919_1 1D1_916 9_0 0 00F06 10C92 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
#include "resource. h" 

class CMainFrame : public CFrameWnd 

{ 

protected: // create from serialization only 
CMainFrame { ) ; 

DECLARE^DYNCREATE (CMainFrame) 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMainFrame) 

virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 
// } }AFX__VIRTUAL 

// Implementation 
public : 

virtual -CMainFrame () ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Contexts dc) const; 

#endif 

protected: // control bar embedded members 
CStatusBar m_wndStatusBar ; 
CToolBar m_wndToolBar ; 

// Generated message map functions 
protected : 

CSplitterWnd m_wndSplitter ; 

virtual BOOL OnCreateClient (LPCREATESTRUCT Ipcs, CCreateContext * 
pContext) ; 

//{ {afx_MSG (CMainFrame) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 
afx_msg void OnTimer (UINT nIDEvent) ; 
//} }AFXMSG 
// ChatSock 

//afx_msg LRESULT OnCsAddChannel (WPARAM, LPARAM) ; 
//afx_msg LRESULT OnCsPrivateMsg (WPARAM, LPART^) ; 
afx_msg LRESULT OnCsQueryData (WPARAM , LPARAM); 
afx_msg LRESULT OnCsQueryMembers (WPARAM, LPARAM); 
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afx_msg LRESULT OnCsQueryMembersEnd { WPARAM , LPARAM) ; 
afx_msg LRESULT OnCsQueryChannels (WPARAM , LPARAM); 
afx_msg LRESULT OnCsQueryChannel sEnd { WPARAM , 'LPARAM); 
//afx_msg LRESULT OnCs Invite (WPARAM, LPARAM); 
//afx_msg LRESULT OnCsGotMemList ( WPARAM , LPARAM); 
//afx_msg LRESULT OnCsAddMember (WPARAM, LPARAM); 
//afx_msg LRESULT OnCsDelMember (WPARAM, LPARAM); 
//afx_msg LRESULT OnCs Del Channel (WPARAM, LPARAM); 
//afx_msg LRESULT OnCsModeMember (WPARAM , LPARAM); 
//afx_msg LRESULT OnCsModeChannel (WPARAM , LPARAM); 
//afx_msg LRESULT OnCsText A (WPARAM , LPARAM); 
//afx_msg LRESULT OnCsData (WPARAM , LPARAM); 
//afx_msg LRESULT OnCsWhisper Text (WPARAM, LPARAM); 
//afx_msg LRESULT OnCsWhi sperDat a (WPARAM , LPARAM); 
//afx_msg LRESULT OnCsNewTopic (WPARAM, LPARAM); 
//afx_msg LRESULT OnCsNewNick (WPARAM, LPARAM); 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
II { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_MAINFRM_H 565A73AB_A919_11D1_9169_0000F0610C92 INCLUDED ) 
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// MonListView. cpp : implementation file 
// 

#include " stdaf x . h" 
#include "MonTool.h" 
#include "MonToolDoc . h" 
#include "MonListView . h" 

#ifdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMonListView 

IMPLEMENT_DYNCREATE (CMonListView, CListView) 
CMonListView: : CMonListView ( ) 

{ 
} 

CMonListView: : -CMonListView ( ) 

{ 

} 



BEGIN_MESSAGE_MAP {CMonListView, CListView) 
//{ {afX_MSG_MAP (CMonListView) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// } }afx_msg_map 
end_message_map ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMonListView drawing 

void CMonListView: :OnDraw(CDC* pDC) 

CDocument* pDoc = GetDocument ( ) ; 
// TODO: add draw code here 

} 

///////////////////////////////////////////////////////////////////////////// 
// CMonListView diagnostics 

#ifdef _DEBUG 

void CMonListView: : AssertValid () const 
{ 

CListView: : AssertValid { ) / 

} 



void CMonListView: ; Dump (CDumpContextfic dc) const 

{ 

CListView: :Dump(dc) ; 

} 
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#endif //_DEBUG 

1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 / 1 1 1 1/ 1 1 1 1 1 / 1 /H I /I / 1 1 / 1 // 1 1 1 11/ 1 // 1 // 1 / 1 1 1 1 1 1 1 1 1 1 // 1 / 
/I CMonListView message handlers 
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#if 

! defined {AFX_MONLISTVIEW_H 565A73B7_A919_11D1_9169_000 0F06 10C92 INCLUDED_) 

#def ine AFXMONLISTVIEW H 565A73B7 A919_11D19169_Q000F0610C92 INCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 

// MonListView. h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// CMonListView view 

class CMonListView ; public CListView 

{ 

protected : 

CMonListViewO ; // protected constructor used by dynamic 

creation 

DECLARE_DYNCREATE (CMonListView) 

// Attributes 
public : 

// Operations 
public : 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMonListView) 
protected : 

virtual void OnDraw(CDC* pDC) ; // overridden to draw this view 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

virtual -CMonListViewO ; 
#ifdef _DEBUG 

virtual void Assert Valid ( ) const ; 

virtual void Dump (CDump Con text & dc) const; 

#endif 

/ / Generated message map functions 
protected : 

// { { AFX_MSG (CMonListView) 

// NOTE - the ClassWizard will add and remove member functions 

here . 

//} }afx_msg 
declare_message map ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 
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#endif // 

!def ined(APX_MONLISTVIEW_H 565A73B7_A919_11D1_9169 0O0OF0610C92 INCLUDED 
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// MonTool.cpp : Defines the class behaviors for the application 
// 

#include " stdaf x . h" 
#include "MonTool.h" 

#include "MainFrm.h" 
tinclude "MonToolDoc . h" 
#include "MonToolView . h" 

#ifdef _DEBUG 

#def ine new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolApp 

BEGIN__MESSAGE_MAP (CMonToolApp , CWinApp) 
// { {AFX_MSG_MAP (CMonToolApp) 
ON_COMMAND ( ID_APP_ABOUT , OnAppAbout ) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code ! 
// } }AFX_MSG_MAP 

// Standard file based document commands 
0N_C0MMAND (ID_FILE_NEW, CWinApp: rOnFileNew) 
ON_COMMAND (ID_FILE_0PEN, CWinApp : rOnFileOpen) 
/ / Standard print setup command 

ON_COMMAND (ID_FILE_PRINT_SETUP, CWinApp : : OnFi lePrintSetup ) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolApp construction 

CMonToolApp : : CMonToolApp ( ) 

{ 

// TODO: add construction code here, 

// Place all significant initialization in Initlnstance 

} 

///////////////////////////////////////////////////////////////////////////// 
/ / The one and only CMonToolApp ob j ect 

CMonToolApp theApp; 

///////////////////////////////////////////////////////////////////////////// 

// CMonToolApp initialization 

BOOL CMonToolApp : : Initlnstance ( ) 
{ 

AfxEnableControlContainer ( ) ; 
// Standard initialization 

//If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
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// the specific initialization routines you do not need, 
#ifdef _AFXDLL 

Enable3dControls ( ) ; // Call this when using MFC in a 

shared DLL 
#else 

EnableSdControlsStatic 0 ; // Call this when linking to MFC 

statically 
#endif 

// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organization. 
SetRegistryKey(_T( "Local AppWizard-Generated Applications")); 

LoadStdProf ileSettings 0 ; // Load standard INI file options (including 

MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 

CSingleDocTemplate* pDocTemplate / 
pDocTemplate - new CSingleDocTemplate ( 
IDR_MAINFRAME, 

RUNTIME_CLASS (CMonToolDoc) , 

RUNTIME_CLASS (CMainFrame) , // main SDI frame window 

RUNTIME__CLASS ( CMonToolView) ) ; 
AddDocTempl ate (pDocTemplate) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdlnfo; 
ParseCommandLine (cmdinf o) ; 

// Dispatch commands specified on the command line 
if ( ! ProcessShellCommand (cmdinf o) ) 
re turn FALS E ; 

// The one and only window has been initialized, so show and update it. 
m_pMainWnd->ShowWindow (SW_SHOW) ; 
m__pMainWnd- >UpdateWindow 0 ; 

return TRUE; 

} 



///////////////////////////////////////////////////////////////////////////// 

// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 
{ 

publ ic : 

CAboutDlg ( ) ; 

// Dialog Data 

// { {aFX_DATA (CAboutDlg) 
enum { IDD = IDD_ABOUTBOX } ; 
//) }AFX_DATA 
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// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

/ / { { AFX_MSG (CAboutDlg) 

// No message handlers 

//} }AFX_MSG 

DECLARE MESSAGE MAP ( ) 



CAboutDlg : : CAboutDlg ( ) : CDialog (CAboutDlg : : IDD) 

// { {AFX_DATA_INIT (CAboutDlg) 
/ / } } AFX_DATA_INIT 



void CAboutDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
/ / } } AFX_DATA__MAP 



BEGIN_MESSAGE_MAP (CAboutDlg, CDialog) 

// { {AFX_MSG_MAP (CAboutDlg) 

// No message handlers 

// } }AFX_MSG_MAP 
END__MESSAGE_MAP { ) 

// App command to run the dialog 
void CMonToolApp : : OnAppAbout ( ) 

{ 

CAboutDlg aboutDlg; 
aboutDlg .DoModal {) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 / III 1 1 / 1 1 1 1 / 1 U 1 1 1 III / 1 / 1 

1 1 CMonToolApp commands 
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// MonTool.h : main header file for the MONTOOL application 
// 

#if J defined (AFX_MONTOOL_H_823 87668_B3Al_llDl__9169_0000F0610C92 INCLUDED ) 

#def ine AFX_MONTOOL_H 82 3 87668_B3A1_11D1_9169_0000F0610C92 INCLUDED 

#if _MSC_VER >= 1000 
#pragma once 

#endif // __MSC_VER >= 1000 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include " resource . h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
/ / CMonToolApp : 

// See MonTool.cpp for the implementation of this class 

class CMonToolApp : public CWinApp 

public : 

CMonToolApp ( ) ; 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (CMonToolApp) 
public : 

virtual BOOL Initlns tance ( ) ; 
//} }AFX_VIRTUAL 

// Implementation 

// { {AFX_MSG (CMonToolApp) 
afx_msg void OnApp About () ; 

/ / NOTE - the ClassWizard will add and remove member functions 

here . 

//DO NOT EDIT what you see in these blocks of generated code 

//} }AFX_MSG 
DECLARE_MESSAGE MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_MONTOOL_H 82387668_B3Al_llDl_9169_O000FO61OC92 INCLUDED_) 
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• 



// MonToolDoc . cpp : implementation of the CMonToolDoc class 
// 



#include "stdafx.h" 
#include "MonToolDoc - h" 
#include "MonToolView . h" 
#include "MonListView , h" 

#include " resource. h" 

#ifdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE [] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CMonToolDoc 

IMPLEMENT_DYNCREATE (CMonToolDoc , CDocument ) 

BEGIN_MESSAGE_MAP (CMonToolDoc, CDocument) 
// { {AFX_MSG_MAP (CMonToolDoc) 
ON_COMMAND ( ID_CONNECT , OnConnect ) 

ON_UPDATE_COMMAND_UI ( ID__CONNECT , OnUpdateConnec t ) 
/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

/////////////////////J/////////////////////////////////////////////////////// 
// CMonToolDoc construction/destruction 

CMonToolDoc : : CMonToolDoc ( ) 

{ 

// TODO : add one-time construction code here 
m_nMembers = 0 ; 
m_nChanne Is = 0 ; 
m_bStarted = FALSE; 
m_MonToolSet . Open ( ) ; 



CMonToolDoc : : -CMonToolDoc ( ) 

{ 

m_MonToolSet . Close ( ) ; 

} 



BOOL CMonToolDoc : : OnNewDocument ( ) 

{ 

if ( i CDocument : : OnNewDocument ( ) ) 
return FALSE; 



// TODO: add reinitialization code here 

// (SDI documents will reuse this document) 



return TRUE; 

} 



A-734 



MonToolVMonToolDoc. 



///////////////////////////////////////////////////////////////////////////// 

11 CMonToolDoc serialization 

void CMonToolDoc :: Serialize (CArchiveSc ar) 

if (ar . IsStoring () ) 
{ 

// TODO: add storing code here 

else 

{ 

// TODO: add loading code here 

} 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolDoc diagnostics 

#ifdef _DEBUG 

void CMonToolDoc: :AssertValid{) const 
{ 

CDocument: : AssertValid ( ) ; 

} 

void CMonToolDoc :: Dump (CDumpContext& dc) const 
CDocument : :Dump (dc) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolDoc commands 

///////////////////////////////////////////////////////////////////////// 

// return a pointer to the off -screen buffered view 
CMonListView* CMonToolDoc: : GetMonListView ( ) const 

POSITION pos = GetFirstViewPositionO ; 
ASSERT (pos) ; 

CMonListView* pView = (CMonListView* ) GetNextView (pos ) • 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME_CLASS (CMonListView) ) ) ; 
return pView; 

} 

// return a pointer to the off -screen buffered view 
CMonToolView* CMonToolDoc: : GetMonToolView ( ) const 

POSITION pos = GetFirstViewPositionO / 
ASSERT (pos) ; 

CMonListView* pView = (CMonListView*) GetNextView (pos) ; 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME_CLASS (CMonListView) ) ) ; 
CMonToolView* pToolView = (CMonToolView* ) GetNextView (pos ) • 
ASSERT (pToolView) ; 

ASSERT (pToolView->IsKindOf (RUNTIME_CLASS (CMonToolView) ) ) ; 
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return pToolView; 



// ChatSock Message Handler: coming from CMainFrame 
// 

LRESULT CMonToolDoc : lOnCsQueryData (WPARAM wParam, LPARAM iParam) 
{ 

int temp = (int)wParam; 
TRACEC'temp = %d", temp) ; 
return 0; 

} 

LRESULT CMonToolDoc : rOnCsQueryMembers (WPARAM wParam, LPARAM iParam) 

TRACE ( "CMonToolDoc : : OnCsQueryMembers\n " ) ; 

PICS_PROPERTY picsProp = ( PICS__PROPERTY) IParam ; 
ASSERT (picsProp) ; 

// Add the channel name.. 
CS_PROPDATA cspd; 

if (FAILED {picsProp->HrGetProperty (&:cspd, CSINDEX_PROP_MEMBER_NAME) ) ) 

return FALSE ; 
CHAR* szName = ( CHAR* ) cspd . pbData ; 
CString name (szName) ; 
GetMonToolViewO ->AddUsers (name) ; 

return 0 ; 

} 

LRESULT CMonToolDoc: rOnCsQueryMembersEnd (WPARAM wParam, LPARAM IParam) 

TRACE ( "CMonToolDoc : : OnCsQueryMembersEnd\n " ) ; 

m_nMembers = (UINT) wParam; 
CString nTot ; 

nTot . Format ( "Total Users : %d", m_nMembers) ; 
TRACE ("Total Users : %d\n", m_nMembers); 

GetMonToolView 0 ->AddUsers (nTot) ; 
GetMonToolViewO ->ExpandRoot () ; 
GetMonToolViewO - >ExpandUsers () ; 

OnQuerychannels ( ) ; 
return 0; 

} 

LRESULT CMonToolDoc : lOnCsQueryChannels (WPARAM wParam, LPARAM IParam) 
{ 

TRACE ("CMonToolDoc: : OnCsQueryChannels\n " ) ; 

PICS_PROPERTY picsProp = (PICS_PROPERTY) IParam ; 
ASSERT (picsProp) ; 

// Add the channel name.. 
CS_PROPDATA cspd; 

if (FAILED (picsProp- >HrGetProperty(ScCspd, CSINDEX_PROP_CHANNEL__NAME) ) ) 
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return FALSE ; 
CHAR* szName = (CHAR* ) cspd . pbData ; 

if (FAILED (picsProp->HrGetProperty (&cspd, CSIIsrDEX_PROP_CHANNEL_CUSER) ) ) 

return FALSE; 
DWORD cUser = 1; 

cUser = *( (DWORD *) cspd . pbData) ; // save it 

CString name ( szName) ; 
CString num; 

num. Format ( " (%d)", cUser) ; 
CString full = name + num; 

//GetMonToolViewO - >AddChannels (szName) ; 
GetMonToolView ( ) - >AddChannels (full) ; 

return 0; 

} 

LRESULT CMonToolDoc: :OnCsQueryChannelsEnd(WPARAM wParam, LPARAM iParam) 

TRACE ( "CMonToolDoc : : OnCsQueryChannelsEnd\n " ) ; 

m__nChannels = (UINT) wParam; 
CString nTot ; 

nTot -Format ("Total Channels : %d", m_nChannels) ; 
GetMonToolViewO - >AddChannels (nTot) ; 

nTot .Format ("Total Users: (%d). Channels : (%d) " , m_nMembers, 
m_n Channels) ; 

GetMonToolViewO - >AddToRoot (nTot ) ; 




GetMonToolViewO ->ExpandRoot () ; 
GetMonToolViewO - >ExpandChannels () ; 

WriteToTitle () ; 

// Write to DB. 
m_MonToolSet . AddNew ( ) ; 

m_MonToolSet .m_Membersl = m_nMembers; 
m_MonToolSet .m_Channels = m_nChannels; 

"^_I^onToolSet .m_Time = COleDateTime : : GetCurrentTime ( ) ; 



m_MonToolSet . Update ( ) ; 
return 0; 

} 

/* 

/ / Since Document cannot receive WM_COMMAND message 
// Frame window will call this function for us... 
// typedef IChatSocketFactory* PICS_FACTORY ; 

// typedef IChatSocket* PICS; 
// typedef ICSChannel* PICS^CHAWNEL ; 

// typedef ICSMember* PICS_MEMBER; 
// typedef ICSQuery* PICS QUERY; 
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// typedef ICSProperty* 

// typedef ICSPrivateMsg* 

// typedef ICSInvitation* 
// 



PICS__PROPERTY; 

PICS_PRIVMSG; 

PICS_INVITATION; 



// Typical sequence of commands from ChatSock 

// 1. CSMSG_TYPE_ADDCHANNEL 

// 2. CSMSG_TYPE_ADDMEMBER . . . 

// 3. CSMSG_TYPE_PRIVATEMSG 

// 4. CSMSG_TYPE_GOTMEMLIST 

/ / 5 . CSMSG_TYPE_TEXT_A . . , 

// 6. CSMSG_TYPE_DELMEMBER ... 

// 7. CSMSG_TYPE_DELCHANNEL 

// Create my actor on ADDCHANWEL 

LRESULT CMonToolDoc : :OnCsAddChannel (WPARAM wParam, LPARAM iParam) 

PICS_CHANNEL picsChannel - (PICS_CHANNEL) iParam; // ICSChannel* 

SetChannel (picsChannel) ; // Don't Release pC here. 

ClearHistory ( ) ; 

CString strTopic (m_pChannel - >SzTopic ( ) ) ; 
int nID = GetEncodedStagelD (strTopic) ; 
LoadStage (nID) ; 

picsChannel->Release ( ) ; 

CString strMsg; 
#ifdef _ENGLISH 

StrMsg. Format (" [%s] joined this channel.", m_pChannel - >SzName { ) ) ; 

#else 

StrMsg. Format {" [%s] 'eE-^as^; pe^^i ^O^'I'U.", m pChannel->S zName { ) ) ; 
#endif ^ 

// GetViewO - >ChatVoice ( strMsg) ; 
DisplayText (strMsg) ; 



return 0; 



} 



// When I enter a channel, I receive PX member info via Private me 
LRESULT CMonToolDoc: :OnCsPrivateMsg (WPARAM wParam, LPARAM iParam) 



ssage 



PICS_PRIVMSG picsPrivMsg = ( PICS_PRIVMSG) iParam; 
ASSERT (picsPrivMsg) ; 
CS_PRIVMSG pm; 

if (FAILED (picsPrivMsg- >HrGetMsg (&pm) )) 



// ICSPrivateMsg* 



TRACE ( "picsPrivMsg- >HrGetMsg() failed !\n") ; 
picsPrivMsg->Release 0 ; 
return FALSE ; 



CString strData; 
if (pm.fText) 



if (pm.fAnsi) 
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TRACED ( "CSMSG_CMD_PRIVATEMSG - not ANSI\n"); 
picsPrivMsg- >Release ( ) ; 

#ifdef _ENGLISH 

strData. Format ( "Private Message : \ " %s {CHAR* ) pm . pbData) ; 

#else 

StrData. Format ( "°n^D ^ »ie: \"%s", (CHAR* ) pm. pbData ) ; 

#endif 

DisplayText (strData) ; 
return FALSE; 

} 

} 

else // binary 
{ 

TRACE ( "Private MSG: binary\n" ) ; 
parser. CopyBuffer( (CHAR* ) pm . pbData) ; 
char c ; 

parser . GetValueRightToken (c, TOKEN) ; 
if (c 'X • ) 

{ 

char* szNickFrom; 
BOOL bAnsi; 

picsPrivMsg->HrGetMsgSender ( (BYTE**) &szNickFrom, &bAnsi) ; 

PICS_MEMBER pM-NULL; 

if (szNickFrom && m_pChannel) 

{ 

PICS_CHANNEL picsChannel = m_jpChannel - >PChannel ( ) ; 
ASSERT (picsChannel) ; 

picsChannel ->HrGetMemberFromNameA (szNickFrom, &:pM) ; 
picsChannel ->Release () ; 

CActor* pA = GetActor (pM) ; // Find corresponding 

Actor object 

int nCmd; 

StrData = parser . GetValueRightToken (nCmd, TOKEN); 

if (nCmd CMD_MEMBER INFO) 

{ 

TRACE ( "\tCMD_MEMBER_INFO: %lx\n", pM) ; 
if (!pA) // Not Found: New User 

{ 

CMemberInf o mi ; 
mi . SetMember (pM) ; 

if (mi . SetMemberlnfo (strData) && 

m_pStage) 

{ 

pA = m_pStage->CreateActor (mi, 
FALSE) ; // m_pChannel->FIsMemberMe (pM) ) ; 

} 

} 

} 

} 

if (pM) 

pM- >Release ( ) ; 

} 

} 

picsPrivMsg- >Release ( ) ,- 
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return 0 ; 

} 



LRESULT CMonToolDoc : :OnCsInvite (WPARAM wParam, LPARAM iParam) 
/* 

PICS_INVITATION picslnvite = ( PICS_INVITATION) iParam^- 
ASSERT (pics Invite ) ; 
BYTE* pbName; 
BYTE* pbSender; 
BOOL bAnsi; 
CHAR* szChannel; 
CHAR* szFrom; 

if (FAILED (picslnvite- >HrGetChannelName (&pbName, &bAnsi) ) ) 

picslnvite- >Release () ; 
return FALSE ; 



f (bAnsi) 

szChannel = (CHAR* ) pbName ; 



f (FAILED (picslnvite- >HrGetSender (&pbSender, &bAnsi) ) ) 

picsInvite->Release ( ) ; 
return FALSE; 



f (bAnsi) 

szFrom = (CHAR* ) pbSender / 



CString msg; 
#ifdef _ENGLISH 

msg. Format ( "<%s> invited you to [%s].\n" 

"Do you want to join?", szFrom, szChannel); 

#else 

msg. Format (" [%s] 'eE-^aeii^- <%s> invited. \n" 

"AE'e^i AAci^°0?>iA'l±i?'\ szChannel, szFrom); 

#endif 

if (AfxMessageBox (msg, MB_YESNO) == IDYES) 

: rPostMessage (AfxGetMainWndO - >GetSaf eHwnd ( ) , WM COMMAND, 
(WPARAM) IDC_PANEL_BUTTON, (LPARAM) 0)* ~ 
) 

picsInvite->Release 0 ; 



return 0; 

} 



///////////////////////////////////////////////////////////////////////////// 
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// Channel thread 

LRESULT CMonToolDoc : zOnCsGotMemList (WPARAM wParam, LPARAM iParam) 
return 0; 

} 

//We only respond to the ADDMEMBER message after GOTMEMLIST 
// 1. On ADDMEMBER myself 

// SendData => Inform myself to this channel I just joined 

// 2 . On ADDMEMBER new member in the course of chat 

// SendPrivData => Inform myself only to this new member 

LRESULT CMonToolDoc : lOnCsAddMember (WPARAM wParam, LPARAM iParam) 

/* 

ASSERT (m_pChannel) ; 

PICS_MEMBER pM = (PICS_MEMBER) iParam; 
ASSERT (pM) ; 

CHAR* szMame = m_pChannel - >SzMemName (pM) ; 
//AddMember (picsMember) ; 
CString strData; 
CString str; 
#ifdef _ENGLISH 

str . Format ( " [%s] entered. " , szName) ; 

#else 

str . Format (" [%s] 'O plAa.", szName); 

#endif 

DisplayText (str) ; 
/ / Member info 

if {m_pChannel->FGotMemList () ) // After 

if {m_jpChannel->FIsMemberMe (pM) ) // Broadcast my info 

/ / Load my actor 
CMemberlnfo mi ; 
mi . LoadMyInf o ( ) ; 
CRect rc; 

m__pStage->GetBase(rc) ; 

rc . Inf lateRect { -20, -20, -20, -20); 

srand ( (unsigned) time (NULL) ) ; 

mi . SetBase (CPoint (rc . lef t + rand ( ) % rc . Width {) , rc top + 
randO % rc . Height ())) / 

PICS_CHANNEL pC - m_pChannel - >PChannel ( ) ; 

ASSERT (pC) ; 

PICS_MEMBER pM; 

pC->HrGetMe (&pM) ; 

ASSERT (pM) ; 

pC->Release () ; 

mi.SetMember (pM) ; // AddRefO 
pM- >Release ( ) ; 

mi . SetVersion (GetClientVersion () ) ; // Myself 

CActor* pA = m _pS tage - >CreateActor (mi , TRUE); // myself 
/ / CActor* pA = GetActor (pM) ; 

if (pA) 
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Failure ! \n" ) 



} 

else 
{ 



} 



strData, Format { "X"^%d** CMD_MEMBER_INFO) ; 
pA->m_MI .GetMemberlnfo (str) ; 
strData += str; 

TRACE ("OnCsAddMember: [SendData] %s\n", strData) 
SendData (strData) ; 



TRACED ("CMonToolDoc: : OnCsAddMember - Creation 



} 

else // Inform myself to the new member 



actor 
string 



CActor* pA = GetThisActor ( ) ; 

if (pA) 

{ 

StrData. Format ("X^%d^" , CMD_MEMBER__INFO) ; 
CMemberInf o mi ; 

pA->GetMemberInfo (mi) ; // Get member info from this 
mi .GetMemberlnfo (str) ; // express member info in 



StrData += str; 

DWORD dwcb = StrData . GetLength () + 1; 
TRACE ("OnCsAddMember: [PrivData] %s\n" , strData) ; 
m_pSocket->FSendPrivData (szName, 
(BYTE*) StrData. GetBuffer (dwcb- 1) , dwcb) ; 
} 

else 
{ 

TRACEO ( "CMonToolDoc : : OnCsAddMember - Oops ! , I'm not 

created yet?\n"); 

} 

} 

} 

pM->Release () ; 



return 0 ; 

} 



LRESULT CMonToolDoc : :OnCsDelMember(WPARAM wParam, LPARAM iPa 
/* 

PCS_MSGMEMBER pMsg = (PCS__MSGMEMBER) iParam; 
PICS_MEMBER pM = pMsg- >picsMember ; 
ASSERT (pM) ; 
pM->AddRef 0 ; 

if (m_pChannel) 

{ 

CHAR* szName = m_pChannel - >SzMemName (pM) ; 
//DelMember (picsMember) ; 
CString str; 
#ifdef ^ENGLISH 

str. Format (" [%s] out", szName); 
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str. Format (" [%s] 'O AaAa", szName); 

DisplayText ( str ) ; 

// Delete the member 
CActor* pA = GetActor (pM) ; 

if (pMsg->picsMemSrc) 
{ 

PICS_MEMBER pMemKick = pMsg- >picsMemSrc ; 
// Someone was kicked,. 

//If the member being kicked was US., notify the user 
if (m_jpChannel->FIsMemberMe (pM) ) // This doesn't work 

since the member is already kicked out. 

CString strKickReason ; 

CHAR* szKicker = m_pChannel - >SzMemName (pMemKick) ; 

// Also save the reason, if any., and only if its ANSI 

if (piyisg->pvReason && pMsg->fAnsi) 

{ 

if (szKicker && pMsg->pvReason) 

#ifdef _ENGLISH 

StrKickReason. Format (" (Kick Off) %s kicked of 

%s ! \r\n (Reason) %s" , 
#else 

_ StrKickReason. Format ("( °-Aa) %s'6Ai %s'6A» 

A-^3 AA^^! \r\n (»gA ) %s", 
#endif 

szKicker, szName, (CHAR*)pMsg- 

>pvReason) ; 

DisplayText (strKickReason) ; 
if (pA == GetThisActor () ) 
{ 

AfxMessageBox (strKickReason) ; 

} 

} 

} 



if (pA) 

{ 

delete m__pStage- >RemoveActor (pA) ; 
CRect rc; 

m_j3Stage->GetRect (rc) ; 
GetViewO - >AddDirtyRegion (&rc) ; 

GetViewO - >RenderAndDrawDirtyList () ; // Erase 

} 

pM- >Release ( ) ; 
return 0; 

} 

LRESULT CMonToolDoc : :OnCsDelChannel(WPARAM wParam, LPARAM iParam) 
/* 



#else 
#endif 
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SetTitle (NULL) ; 

PICS_CHANNEL pC = ( PICS_CHANNEL ) 1 Param ; 
ASSERT (pC) ; 

TRACE ("OnCsDelChannel\n") ; 
pC->Release ( ) ; 

return 0 ; 



LRESULT CMonToolDoc : :OnCsModeMember (WPARAM wParam, LPARAM iParam) 
return 0 ; 



LRESULT CMonToolDoc : :OnCsModeChannel (WPARAM wParam, LPARAM IParam) 
return 0 ; 




// On TEXT_A - Just a text conversation 

// 1. Find the actor object corresponding to the MIC member 
// 2. Show the text through this actor 

LRESULT CMonToolDoc : lOnCsTextA (WPARAM wParam, LPARAM IParam) 
/* 



PCS^MSG pMsg = (PCS_MSG) IParam ; 
// Obtain the sender's name 
PICS_MEMBER pM ^ pMsg- >picsFrom ; 
ASSERT (m_pChannel) ; 

// if member is NULL, the message is from the channel 

CHAR* szName = (pM) ? m_pChannel - >SzMemName (pM) : m_j)Channel - >SzName () 

ASSERT (szName) ; 

// Is this user a Host? 

CString strText; 

if (pM->HrIsMemberHost ( ) == NOERROR) 

strText = _T ( " * " ) ; 
CString strVoice ( (LPCSTR) pMsg- >pbData ) ; 

// Registration Serivece by Jun 
if (strVoice =^ "XREGISTEREDX" ) 

AfxMessageBox ( "You are registered member. "); 

// 

// |-f (StripComicHeader ( (LPCSTR)pMsg->pbData, strVoice) > 0) 

s t rTex t + = s zName ; 
StrText += _T ( " : " ) ; 
StrText += strVoice; 
DisplayText (strText) ; 

if (pM->HrIsMemberIgnored ( ) == NOERROR) 
return 0; 

CActor* pA = GetActor (pM) ; 
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if (pA) 
{ 



if CstrText .GetLengthO > MAX SEND CHAR) 
{ 

// strText . GetBuf f erSetLength (MAX_SEND_CHAR) ; 

strText-ReleaseBuf f er (MAX SEND CHAR) ; 

} 

pA->m_MI . SetBubbleKind (0) ; // Yello 

pA->Chat (StrText) ; // Later, consider DECS, 

if {pA->lsVoice 0 ) 

GetViewO - >ChatVoice ( strVoice , pA- >GetGender () ) ; 

// } 



return 0; 

} 



// 1. Actors' command data 

LRESULT CMonToolDoc: :OnCsData(WPARAM wParam, LPARAM iParam) 
/* 

PCS_MSG pMsg = (PCS_MSG) IParam ; 
// Obtain the sender's name 
PICS__MEMBER pM = pMsg- >picsFrom; 
if (pM->HrIsMemberIgnored () == NOERROR) 

return 0; 
TRACEO ( "Data : binary\n" ) ; 
int len = ( int ) pMsg- >dwcbData ; 

char* szBuf = new char[len+2]; // +i for safety 

: iCopyMemory (szBuf , (LPBYTE) pMsg- >pbData , len) ; 
szBuf [len] = NULL; 
parser . CopyBuf f er (szBuf ) ; 
char c ; 

parser . Ge tValueRightToken ( c , TOKEN) ; 
if (c 'X') 

{ 

CActor* pA = GetActor (pM) ; // Find corresponding Actor obj 
int nCmd; 

CString strData (parser . GetValueRightToken (nCmd, TOKEN)) ; 

if (nCmd == CMD MEMBER INFO) 

{ 

TRACE ( "\tCMD_MEMBER_INFO: %lx\n" , pM) ; 
if (!pA) // Not Found: New Member 

{ 

CMemberInf o mi ; 
mi . SetMember (pM) ; 

if (mi . SetMemberInf o (strData) && m_pStage) 

CActor* pA = m_pStage->CreateActor (mi, 

m_pChannel->FIsMemberMe (pM) ) ; 

} 

} 

} 

else if (nCmd > CMD_MOVE) // Move or Action 

{ // CMD_ACTION means 

just repositioning 
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state 



TRACE ("\tCMD_MOVE_ or ACTION(%d) : %lx => , nCmd pM) 
if (pA) 

{ 

int nHDir; 
CPoint ptBase; 

if (parser .GetValueRightToken (ptBase, TOKEN) ) 

parser .GetValueRight Token (nHDir, TOKEN) ; 
pA->SetState (ptBase, nHDir) ; // Adjust Current 

} 

pA->Action (nCmd) ; 



} 
} 

} 

delete [] szBuf; 
return 0; 

} 

LRESULT CMonToolDoc: lOnCsWhisperText (WPARAM wParam, LPARAM iParam) 
/* 

PCS_MSGWHISPER pMsgW = (PCS_MSGWHISPER) iParam; 
ASSERT (pMsgW) ; 

PCS_MSG pMsg = ( PCS_MSG) pMsgW- >pcsMsg ; 
ASSERT (pMsg) ; 

PICS_MEMBER pM = pMsg- >picsFrom; 
ASSERT (m_pChannel) ; 

// if member is NULL, the message is from the channel 

CHAR* szName = (pM) ? m_pChannel - >SzMemName (pM) : mpChannel - >SzName () ; 

ASSERT (szName) ; 

// Is this user a Host? 

CString strText; 

if (pM->HrIsMemberHost () == NOERROR) 

StrText = _T("*"); 
CString strVoice ( (LPCSTR) pMsg- >pbData ) ; 
StrText += szName ; 
StrText += _T("=>"); 
strText += StrVoice; 
DisplayText (strText) ; 

if {pM->HrIsMemberIgnored() == NOERROR) // This member is ignored... 
return 0; 

CActor* pA = GetActor (pM) ; 

if (pA) 

{ 

if ( StrText. GetLengthO > MAX_SEND_CHAR) 

/ / StrText . GetBuf f erSetLength (MAX_SEND_CHAR) ; 

^ StrText .ReleaseBuffer (MAX_SEND_CHAR) ; 

pA->m_MI.SetBubbleKind(l) ; // Green 

pA->Chat (StrText, FALSE); // Later, consider DECS . 



A-746 



MonToolVMonToolDoc. 



if (pA- >IsVoice ( ) ) 

GetView { ) - >ChatVoice (strVoice , pA- >GetGender ( ) ) 

} 

return 0 ; 



LRESULT CMonToolDoc : rOnCsWhisperData (WPARAM wParam, LPARAM iParam) 
return 0 ; 

LRESULT CMonToolDoc : :OnCsNewTopic (WPARAM wParam, LPARAM iParam) 
return 0 ; 

LRESULT CMonToolDoc : rOnCsNewNick (WPARAM wParam, LPARAM IParam) 
return 0 ; 

*/ 

void CMonToolDoc : : OnQueryAll Users ( ) 

{ 

/ / TODO : Add your command handler code here 
TRACE ( "CMonToolDoc : : OnQueryAllUsers\n" ) ; 

m_nMembers = 0; 

GetMonToolView 0 - >GetTreeCtrl () . DeleteAll Items () ; 
GetMonToolView ( ) - >NewQueryStart () ; 

if ( !m_Socket . FQueryListAllUsers ( ) ) 

{ 

AfxMessageBox ( "Fail to query ListAllUsers " ) ; 

} 

} 

BOOL CMonToolDoc : : Connect ( ) 
{ 

if ( !m_Socket . FInit () ) 
return FALSE; 

EC_CONNINFO cinfo; 

cinf o . szServer = "88.1.26.2"; //noah server 
// cInfo- ssServer = "70.2.173.70"; //monnanee 
cInfo.szNick = "UniChat2MonTool " ; 
cInfo. szNickBak = "UC2MonTool " ; 

cInf o . szUserName = "UniChat2 Monitoring Tool"; 

cInfo.ssPass = NULL; 

cInfo . f Authenticate = FALSE; 

cInf o. dwTimeOut = 10000; // lOseconds. 

if ( I m_Socket . FConnect (&clnf o, Af xGetMainWnd ( ) - >GetSaf eHwnd ( ) ) ) 

{ 
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return FAL.SE; 

} 



return TRUE; 

} 

void CMonToolDoc : :OnQuerychannels () 
{ 

/ / TODO : Add your command handler code here 
TRACE ("CMonToolDoc: : OnQuerychannels\n " ) ; 

m_nChannels = 0; 

//GetMonToolViewO - >GetTreeCtrl ( ) . DeleteAllItems ( ) ; 
//GetMonToolView ( ) - >NewQueryStart { ) ; 
if ( !m_Socket . FQueryListChannels ( ) ) 
{ 

TRACE ( "Failed to query ListChannels\n" ) ; 
AfxMessageBox ( "Failed to query ListChannels " ) ; 

} 

void CMonToolDoc : :OnConnect ( ) 

{ 

/ / TODO : Add your command handler code here 

if ( 'Connect {) ) 

{ 

AfxMessageBox ( "Connection Failed!") ; 
return; 

} 

m_bStarted = TRUE; 

//AfxGetMainWnd 0 - >SetTimer ( 1 , 300000, NULL) ; 
AfxGetMainWnd ( ) ->SetTimer (1, 60000, NULL); 

} 

void CMonToolDoc : rOnQueryall () 

{ 
} 

void CMonToolDoc : rWriteToTitle ( ) 
{ 

CString title; 

title . Format { "UniChat Monitoring Tool : Total Channels : %d(s). User; 
%d{s)", m_nChannels, m_nMembers) ; 

AfxGetMainWnd ( ) - >SetWindowText (title) ; 

} 

void CMonToolDoc :: Start () 

{ 

TRACE ( "CMonToolDoc : :Start\n") ; 
OnQueryAllUsers () ; 

} 
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void CMonToolDoc : :OnUpdateConnect (CCmdUI* pCmdUI) 

// TODO: Add your command update UI handler code here 
pCmdUI->Enable ( !m bStarted) ; 

} 
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// MonToolDoc.h : interface of the CMonToolDoc class 
// 

///////////////////////////////////////////////////////////////////////////// 
#if 

1 defined (AFX_MONTOOLDOC_H 565A73AD_A919_1 1D1_9169_0000F06 10C92 INCLUDED_) 

# de f i ne AFX_MONTOOLDOC_H 5 6 5 A7 3 AD_A 919_11D1_9169_0000F0610C92 I NCLUDED ~ 

#include "BaseSock.h" // Added by ClassView 
#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER 1000 

#include "MonToolSet . h" 

class CMonToolView; 
class CMonListView; 



class CMonToolDoc : public CDocument 

{ 

protected: // create from serialization only 
CMonToolDoc () ; 

DECIiARE_DYNCREATE (CMonToolDoc) 

// Attributes 
public : 

CMonToolView* GetMonToolView ( ) const ; 

CMonListView* GetMonListView ( ) const ; 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMonToolDoc) 
public : 

virtual BOOL OnNewDocument ( ) ; 
virtual void Serialize (CArchive& ar) ; 
// } } AFX_VIRTUAL 

// Implementation 
public : 

virtual -CMonToolDoc ( ) ; 
#ifdef _DEBUG 

virtual void AssertValid () const; 

virtual void Dump (CDump Contexts dc) const ; 

#endif 

protected : 

public : 

void Start ( ) ; 

void WriteToTitle () ; 

// ChatSock messages 

//LRESULT OnCsAddChannel (WPARAM, LPARAM) / 
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//LRESULT OnCsPrivateMsg (WPARAM, LPARAM) ; 
LRESULT OnCsQueryData (WPARAM, LPARAM); 
LRESULT OnCsQueryMembers (WPARAM, LPARAM) ; 
LRESULT OnCsQueryMembersEnd (WPARAM, LP/VRAM); 
LRESULT One s Query Channels (WPARAM, LPARAM); 
LRESULT OnCsQueryChannelsEnd (WPARAM, LPARAM); 
//LRESULT OnCsInvite (WPARAM, LPARAM); 
//LRESULT OnCsGotMemList (WPARAM, LPARAM); 
//LRESULT OnCsAddMember (WPARAM, LPARAM); 
//LRESULT OnCsDelMember (WPARAM, LPARAM); 
//LRESULT OnCsDelChannel (WPARAM, LPARAM); 
//LRESULT OnCsModeMember (WPARAM, LPARAM); 
//LRESULT OnCsModeChannel (WPARAM, LPARAM); 
//LRESULT OnCsText A (WPARAM, LPARAM); 
//LRESULT OnCsData (WPARAM, LPARAM) ; ' 
//LRESULT OnCsWhisperText (WPARAM, LPARAM); 
//LRESULT OnCsWhisperData (WPARAM, LPARAM); 
//LRESULT OnCsNewTopic (WPARAM, LPARAM); 
//LRESULT OnCsNewNick (WPARAM, LPARAM); 

// Generated message map functions 
protected : 

CMonToolSet m_MonToo 1 S e t ; 

BOOL m_bStarted; 

UINT m_nChannels; 

UINT m_nMembers; 

BOOL Connect { ) ; 

CBaseSocket m_Socket; 

// { {AFX_MSG (CMonToolDoc) 

afx_msg void OnQueryAllUsers ( ) ; 

afx_msg void OnQuerychannels ( ) ; 

afx_msg void OnConnectO; 

afx_msg void OnQueryall ( ) ; 

afx_msg void OnUpdateConnect (CCmdUI* pCmdUI); 

//}}AFX_MSG 

DECLARE_MESSAGE MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { ( AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_MONTOOLDOC_H 565A73AD_A919_11D1_9169_0000F06 10C92 INCLUDED ) 
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// MonToolSet . cpp : implementation file 
// 

#include "stdafx.h" 
#include "MonToolSet . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolSet 

IMPLEMENTED YNAM I C (CMonToolSet, CDaoRecordset ) 

CMonToolSet : : CMonToolSet (CDaoDatabase* pdb) 
: CDaoRecordset (pdb) 

{ 

//{ {AFX_FIELD_INIT (CMonToolSet) 

m_ID = 0; 

m_Channels - 0; 

m_Membersl = 0; 

m_Members2 = 0; 

m_Reservedl = _T ( " " ) ; 

m_Reserved2 = _T ( " " ) ; 

m_nFields = 7; 

// } } AFX_FIELD_INIT 

m_nDe fault Type = dbOpenTable; 




CString CMonToolSet: : GetDef aultDBName ( ) 
return _T ( "MonTool . mdb " ) ; 

CString CMonToolSet: : GetDef aultSQL ( ) 
return _T ( " [MonTool] ") ; 

void CMonToolSet : :DoFieldExchange (CDaoFieldExchange* pFX) 



// { {AFX_FIELD_MAP (CMonToolSet) 
pFX->SetFieldType (CDaoFieldExchange 
DFX_Long (pFX, _T ( " [ID] " ) , m_ID) ; 

_T(" [Time] ") 
[Cliannels] ") 



: outputColumn) 



DFX_DateTime (pFX, 



DFX_Long (pFX , _T ( ' 
DFX_Long (pFX , _T ( ' 
DFX_Long (pFX , _T ( ' 
DFX_Text (pFX , _T ( ' 
DFX_Text (pFX , _T ( " 
// } }AFX_FIELD_MAP 



[Members 1] " ) , 
[Members2] ") , 
[Reservedl] " ) 
[Reserved2] ") 



m_ 
m_ 
m 
m 



Time) ; 
Channels ) 
Member si) 
Meaibers2 ) 
i_Reservedl) 
_Reserved2) 
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///////////////////////////////////////////////////////////////////////////// 
// CMonToolSet diagnostics 

#ifdef _DEBUG 

void CMonToolSet : :AssertValid ( ) const 
{ 

CDaoRecordset : : AssertValid ( ) ; 

} 

void CMonToolSet :: Dump {CDumpContextfic dc) const 
CDaoRecordset : :Dump (dc) ; 

} 

#endif //_DEBUG 
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#if 

!defined(AFX_MONTOOLSET_H_BlC91323_BlEF_llDl_9l69_0000F0610C92 INCLUDED ) 
#define AFX_MONTOOLSET_H B1C91323_B1EF_11D1_9169_OOOOF0610C92 JTnCLUDED ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
// MonToolSet.h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolSet DAO recordset ////////// 

class CMonToolSet : public CDaoRecordset 

{ 

public : 

CMonToolSet (CDaoDatabase* pDatabase = NULL) ; 
DECLARE_DYNAMIC (CMonToolSet) 

// Field/Param Data 

//{ { AFX_F I ELD (CMonToolSet , CDaoRecordset) 
long m_ID; 

COleDateTime m_Time ; 

long m_Channels ; 
long m_Membersl ; 
long m_Members2 , 
CString m_Reservedl; 
CString m_Reserved2 ; 

//} }AFX_FIELD 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMonToolSet) 
public : 

virtual CString GetDef aultDBName () ; // Default database name 

virtual CString GetDef aultSQL () ; // Default SQL for Recordset 

virtual void DoFieldExchange (CDaoFieldExchange* pFX) ; // rfx support 
// } }afx_virtual 

// Implementation 
#ifdef _DEBUG 

virtual void AssertValidO const ; 

virtual void Dump (CDumpCon text & dc) const; 

#endif 
}; 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line, 

#endif // 

! defined (AFX_MONTOOLSET_H_BlC91323_BlEF_llDl_9169_0000F0610C92 INCLUDED ) 
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// MonToolView. cpp : implementation of the CMonToolView class 
// 

#include "stdafx.h" 
#include "MonTool.h" 
#include "NonToolDoc . h " 
#include "MonToolView . h" 

#ifdef _DEBUG 
#define new DEBUG__NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolView 



IMPLEMENT_DYNCREATE (CMonToolView, CTreeView) 

BEGIN_MESSAGE_MAP (CMonToolView, CTreeView) 
// { {AFX_MSG_MAP (CMonToolView) 
ON_WM_CREATE ( ) 
//} }AFX_MSG_MAP 
// Standard printing commands 

ON_COMMAND (ID_FILE_PRINT, CTreeView: : OnFilePrint ) 
ON_COMMAND (ID_FIL.E_PRINT_DIRECT, CTreeView: : OnFilePrint ) 
ON^COMMAND (ID_FILE_PRINT_PREVIEW, CTreeView: : OnFilePrintPreview) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
/ / CMonToolView construction/destruction 

CMonToolView: : CMonToolView () 

{ 

// TODO: add construction code here 

} 

CMonToolView : : -CMonToolView ( ) 

{ 
} 



BOOL CMonToolView: :PreCreateWindow(CREATESTRUCT& cs) 
{ 

// TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 

cs. style I- TVS_HASLINES | TVS_LINESATROOT | TVS_HASBUTTONS I 
TVS_SHOWSELALWAYS ; 



return CTreeView: : PreCreateWindow ( cs ) ; 

} 



///////////////////////////////////////////////////////////////////////////// 
// CMonToolView drawing 

void CMonToolView: rOnDraw (CDC* pDC) 
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{ 

CMonToolDoc* pDoc = GetDocument { ) ; 
ASSERT_VALID (pDoc) ; 

// TODO: add draw code for native data here 

GetTreeCtrl ( ) . Expand (m_hRoot , TVE__EXPAND) ; 
GetTreeCtrl ( ) . Expand {m_hUsers , TVE_EXPAND) ; 
GetTreeCtrl ( ) . Expand (m_hChannels , TVE_EXPAND) ; 

} 

void CMonToolView: rOnlnitialUpdate ( ) 
{ 

CTreeView: : Onini t ialUpdate ( ) ; 

// TODO: You may populate your TreeView with items by directly 
accessing 

// its tree control through a call to GetTreeCtrl ( ) . 

} 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolView printing 



BOOL CMonToolView: :OnPreparePrinting (CPrint Info* pinfo) 

// default preparation 

return DoPreparePrinting (pinf o) ; 

} 

void CMonToolView: :OnBeginPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
// TODO: add extra initialization before printing 



void CMonToolView: :OnEndPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
// TODO: add cleanup after printing 



///////////////////////////////////////////////////////////////////////////// 
// CMonToolView diagnostics 

#ifdef _DEBUG 

void CMonToolView: :AssertValid ( ) const 
{ 

CTreeView: : AssertValid ( ) ; 

} 



void CMonToolView: : Dump (CDumpContext& dc) const 

{ 

CTreeView: :Dump(dc) ; 

} 



CMonToolDoc* CMonToolView: : GetDocument 0 // non-debug version is inline 
ASSERT (m_pDocument->IsKindOf (RUNTIME_CLASS (CMonToolDoc) ) ) ; 
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return (CMonToolDoc* ) m pDocument ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CMonToolView message handlers 

int CMonToolView: :OnCreate (LPCREATESTRUCT IpCreateStruct ) 

if (CTreeView: rOnCreate (IpCreateStruct) == -1) 
return - 1 ; 

// TODO: Add your specialized creation code here 
m_imgList .Create (IDB_BITMAP1, 16, 1, RGB (255, 0, 255)); 

GetTreeCtrl 0 . Set ImageList ( &m_imgList , TVSIL_NORMAL) ; 



} 



InitTree ( ) ; 
return 0; 



int CMonToolView: : InitTree 0 
{ 

// Root Item first 

m_hRoot = GetTreeCtrl {) .InsertItem("UniChat ! Incredible World'" 
TVI_ROOT) ; 

m_hUsers = GetTreeCtrl (). Insertltem ( "Users " , m_hRoot) ; 
m_hChannels = GetTreeCtrl (). Insertltem (" Channels " , m_hRoot) ; 
return 0; 

} 

void CMonToolView: :AddUsers (CString name) 

GetTreeCtrl 0 .Insert Item(name, 2, 2, m hUsers) ; 
} - 

void CMonToolView: :AddChannels (CString channels) 
{ 

^ GetTreeCtrl 0 . Insert Item (channels , 4 , 4, m_hChannels) ; 

void CMonToolView: : ExpandUsers 0 
{ 

^ GetTreeCtrl ( ) . Expand (m_hUsers , TVE__EXPAND) ; 

void CMonToolView: : ExpandChannels () 
{ 

^ GetTreeCtrl ( ) . Expand (m_hChannels , TVE_EXPAND) ; 

void CMonToolView; :ExpandRoot () 

{ 

^ GetTreeCtrl () .Expand (m_hRoot, TVE_EXPAND) ; 

void CMonToolView: :NewQueryStart () 
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{ 



m_hRoot = GetTreeCtrl 0 . Insertltem( "UniChat ! Incredible World!", 0, 0) 
m_hUsers = GetTreeCtrl (). Insert I tern ( "Users 1 , l,m_hRoot); 
m_hChannels = GetTreeCtrl (). InsertI tern ( "Channels 3 , 3 , m_hRoot) ; 



} 



void CMonToolView: :AddToRoot (est ring str) 

GetTreeCtrl 0 . Insertltem ( str , 0 , 0, m_hRoot) ; 
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// MonToolView . h 
// 



interface of the CMonToolView class 



1 1 1 1 1 1 1 1 1 N I f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 11 1 1 / / /! / 1 / / 1 / 1 f / 1 1 1 / / 1 / 1 U // 1 11 / 1 // 1/ 1/ 



I defined (AFX MONTOOLVIEW H 565A73AF A919 llPl 9169 0000F0610C92 INCLUDED^) 

#def ine AFX_MONTOOLVIEW_H 565A7 3AF__A919_11D1_916 9_OOOOF0610C92 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
class CMonToolDoc; 

class CMonToolView : public CTreeView 



protected: // create from serialization only 
CMonToolView ( ) ; 

DECLARE_DYNCREATE (CMonToolView) 

// Attributes 
public : 

CMonToolDoc* GetDocument ( ) ; 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMonToolView) 
public : 

virtual void OnDraw(CDC* pDC) ; // overridden to draw this view 
virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 
protected : 

virtual void OnlnitialUpdate () ; // called first time after construct 
virtual BOOL OnPreparePrinting (CPrint Inf o* pinf o) ; 
virtual void OnBeginPrinting (CDC* pDC, CPrintlnfo* pinfo) ; 
virtual void OnEndPrinting (CDC* pDC, CPrintlnfo* pInfo) ; 
// } } AFX_VIRTUAL 

// Implementation 
public : 

void AddToRoot (est ring str) ; 
void NewQueryStart ( ) ; 
void ExpandRoot ( ) ; 
void ExpandChannels ( ) ; 
void ExpandUsers () ; 

void AddChannels (CString channels) ; 
void AddUsers (CString name) ; 
virtual -CMonToolView () ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump ( CDumpCon text & dc) const; 

#endif 
protected : 



#if 



{ 
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// Generated message map functions 
protected : 

HTREEITEM m_hChannels; 

HTREEITEM m_hUsers; 

HTREEITEM m_hRoot ; 

int InitTree ( ) ; 

CImageList m_imgList; 

// { {AFX_MSG (CMonToolView) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) - 
//} }AFX_MSG 
DECLARE_MESSAGE MAP ( ) 

}; 

#ifndef _DEBUG // debug version in MonToolView . cpp 
inline CMonToolDoc* CMonToolView :: GetDocument ( ) 

{ return (CMonToolDoc* ) m_pDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! de f i ned ( AFX_MONTOOLVI EW_H_5 6 5 A7 3 AF_A9 19_11D1_916 9_OOOOF0610C 9 2_ INCLUDED ) 
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MICROSOFT FOUNDATION CLASS LIBRARY : MonTool 



AppWizard has created this MonTool application for you. This application 
not only demonstrates the basics of using the Microsoft Foundation classes 
but is also a starting point for writing your application. 

This file contains a summary of what you will find in each of the files that 
make up your MonTool application. 

MonTool . h 

This is the main header file for the application. It includes other 
project specific headers (including Resource. h) and declares the 
CMonToolApp application class. 

MonTool . cpp 

This is the main application source file that contains the application 
class CMonToolApp. 

MonTool . rc 

This is a listing of all of the Microsoft Windows resources that the 
program uses. It includes the icons, bitmaps, and cursors that are 
stored 

in the RES subdirectory. This file can be directly edited in Microsoft 
Developer Studio. 

res\MonTool . ico 

This is an icon file, which is used as the application's icon. This 
icon is included by the main resource file MonTool . rc . 

res\MonTool . rc2 

This file contains resources that are not edited by Microsoft 
Developer Studio. You should place all resources not 
editable by the resource editor in this file. 

MonTool . clw 

This file contains information used by ClassWizard to edit existing 
classes or add new classes. ClassWizard also uses this file to store 
information needed to create and edit message maps and dialog data 
maps and to create prototype member functions . 

///////////////////////////////////////////////////////////////////////////// 
For the main frame window: 

MainFrm.h, MainFrm.cpp 

These files contain the frame class CMainFrame, which is derived from 
CFrameWnd and controls all SDI frame features. 

res\Toolbar . bmp 

This bitmap file is used to create tiled images for the toolbar. 
The initial toolbar and status bar are constructed in the 
CMainFrame class. Edit this toolbar bitmap along with the 
array in MainFrm.cpp to add more toolbar buttons. 
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/ 1 1 1 1 / 1 1 1 1 1 1 / 1 1 11 // 11 1 1 / 1 1 / 1 1 / 1 / 1 1 1 1 1 1 / 1 III 1 1 1 1 //// 1 1 1 1 /// 1 1 / 1 / 1 1 1 1 1 1 1 11 1 1 1 1 1 

AppWizard creates one document type and one view: 

MonToolDoc.h, MonToolDoc. cpp - the document 

These files contain your CMonToolDoc class. Edit these files to 

add your special document data and to implement file saving and loading 

(via CMonToolDoc: : Serialize) . 

MonToolView.h, MonToolView. cpp - the view of the document 
These files contain your CMonToolView class. 
CMonToolView objects are used to view CMonToolDoc objects. 



///////////////////////////////////////////////////////////////////////////// 
Other standard files: 

S tdAf X . h , StdAf X . cpp 

These files are used to build a precompiled header (PCH) file 
named MonTool.pch and a precompiled types file named StdAfx.obj. 

Resource . h 

This is the standard header file, which defines new resource IDs. 
Microsoft Developer Studio reads and updates this file. 

// 1 1 1 1 / 1/ 1 1 / 1 / 11 1 1 1/ 1 1 1 1 / If 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 
Other notes : 

AppWizard uses "TODO:" to indicate parts of the source code you 
should add to or customize. 

If your application uses MFC in a shared DLL, and your application is 
in a language other than the operating system's current language, you 
will need to copy the corresponding localized resources MFC40XXX.DLL 
from the Microsoft Visual C++ CD-ROM onto the system or system32 directory, 
and rename it to be MFCLOC.DLL. ("XXX" stands for the language abbreviation. 
For example, MFC40DEU.DLL contains resources translated to German.) If you 
don't do this, some of the UI elements of your application will remain in the 
language of the operating system. 

1 1 1 n I / 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 
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// { {no_dependencies} ) 

// Microsoft Developer Studio generated include 



// Used 


by MonTool . rc 




// 






#def ine 


IDD_ABOUTBOX 


100 


#def ine 


IDR_MAINFRAME 


128 


#def ine 


IDR_MONTOOTYPE 


129 


#def ine 


IDB_BITMAP1 


130 


#def ine 


IDB_BITMAP4 


133 


#def ine 


IDB_BITMAP2 


143 


#def ine 


ID_CONNECT 


32774 


// Next 


default values for new objects 




// 






#ifdef APSTUDIO__INVOKED 




#ifndef 


APSTUDIO__READONLY_SYMBOLS 




#def ine 


_APS_3D_CONTROIjS 




#def ine 


_AP S_NEXT_RES OURCE_VALUE 


144 


#def ine 


_APS_NEXT_COMMAND_VALUE 


32776 


#def ine 


_APS__NEXT_C0NTROL_VALUE 


1000 


#def ine 


_ APS_NEXT__SyMED_VALUE 


101 



#endif 
#endif 
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// stdafx.cpp : source file that includes just the standard includes 

// MonTool.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type information 

#include "stdafx.h" 



CI 

-I 

yj 
nl 
01 
ill 

m 

CI 

01 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

// 



#if !def ined(AFX_STDAFX_H 565A73A9_A919_11D1_9169_0000F0610C92 INCLUDED 

#define AFX_STDAFX_H 565A73A9_A919_11D1_9169_0000F0610C92 INCLUDED_ 

#if _MSC_VER 10 0 0 

#pragma once 

#endif // _MSC_VER >:= 10 0 0 

#define VC^EXTRADEAN // Exclude rarely-used stuff from Windows 

headers 



#include <afxwin.h> // MFC 

#include <afxext-h> // MFC 

#include <afxcview.h> 

#include <afxdisp-h> // MFC 

#include <afxdao.h> 

#ifndef __AFX_NO__AFXCMN_SUPPORT 

#include <afxcmn.h> 

Controls 

#endif // _AFX_NO AFXCMN SUPPORT 



core and standard components 
extensions 

OLE automation classes 
// MFC support for Windows Common 



// { {AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_STDAFX_H 565A73A9_A919_11D1_9169_000 0l^0610C92 INCLUDED_) 



A-765 



ProgressVProg.cpp 

// 



// File: PROGRESS . CPP 
// 

// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF 

// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO 

// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A 

// PARTICULAR PURPOSE. 
// 

// Description: 
// 

// This sample demonstrates using a URL moniker to download information. 

// The key routines include the implementation of IBindStatusCallback 

// and the CDownload : : DoDownload routine, which creates and binds to the 

// URL moniker. 
// 

// Instructions: 
// 

// To use this sample: 



// * build it using the NMAKE command. NMAKE will create PROGRESS.EXE. 

// * run PROGRESS.EXE. specify the resource to download by passing an 

// URL on the command- line . use no command-line argument to default to 

// downloading "http://www.msn.com"- 

// * The program displays a dialog box containing information about the 

// download: 

// - a status message, describing the current status of the download 

// - a progress message, describing the amount of information that 

// has been downloaded. 

// - a text box, which displays chunks of the download information as 

// it arrives. 

// * Press the "GO" button to begin the download. 
// 

// Sample update : - 

// * New feature include Progress Bar to indicate progress of the download 

// * Edit box replaces the old text box. Also the whole file can be 
viewed . 

// If the file exceeds 32KB then only the first 32 KB from the last data 

// pull will be displayed. If the pull exceeds 32 KB, then only the 
first 

// 32 KB of the last Read will be displayed. 



// 
/// 

// File updated by Jason Strayer 27 -Aug- 1997 

// File updated by Jobi George 19 -June -1996 

// File updated by Ramesha Gopalakrishna 28-June-1996 

// File updated by Oliver Wallace 9-July-1996 

// File updated by Soomin Kim 6 -April -1998 

// Copyright 1995-1997 Microsoft Corporation. All Rights Reserved. 
// 

#include "stdafx.h" 
#include "urlmon.h" 
#include "wininet.h" 
#include "resource. h" 
#include "Prog.h" 
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// 

// CBmdStatusCallback Implementation 



// 

// %%Function: CBindStatusCal Iback : : CBindStatusCal Iback 

// 

CBindStatusCallback: rCBindStatusCallback (HWND hwndFrame , LPCTSTR szFile) 

TRACE ("CBindStatusCallback: : CBindStatusCallback\n" ) ; 
m_hFrame hvmdFrame; 
m__pbinding NULL ; 

m_pstm = NULL; 

m_cRef = 1; 

m_pFile = NULL; 

m_strFile = szFile; 

} // CBindStatusCallback 

// 

// %%Function: CBindStatusCallback: : -CBindStatusCallback 

// 

CBindStatusCallback: : -CBindStatusCallback () 
{ 

TRACE ("CBindStatusCallback: : -CBindStatusCallback\n" ) ; 
} // -CBindStatusCallback 

/* 

inline void CBindStatusCallback :: SetWndText (HWND hwnd, LPCWSTR szText) 

if (IsWindow (hwnd) ) 
{ 

char rgchBuf [INTERNET_MAX_PATH_LENGTH] ; 
WideCharToMultiByte (CP_ACP, 0, szText, -l, rgchBuf, 
INTERNET_MAX_PATH_LENGTH , 0 , 0 ) ; 

SetWindowText (hwnd, rgchBuf) ; 

} 

*/ 

// 

// %%Function: CBindStatusCal Iback :: Querylnterf ace 

// 

STDMETHODIMP CBindStatusCallback :: Querylnterf ace (REFIID riid, void** ppv) 
*ppv = NULL; 

if (riid==IID_IUnknown | | riid==IID_IBindStatusCallback) 
*ppv = this; 
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AddRef () ; 
return S OK; 

} 

return E_NO INTERFACE; 
} // CBindStatusCallback: : Querylnterf ace 



// 



// %%Function: CBindStatusCallback: : OnStartBindinq 

// :_ 



STDMETHODIMP CBindStatusCal Iback :: OnStartBinding (DWORD dwReserved, IBinding* 
pbinding) 

{ 

TRACE ("CBindStatusCallback: : OnStartBinding\n" ) ; 
if (m_jpbinding) 

m__pbinding->Release ( ) ; 
tn_pbinding = pbinding; 
if (m_pbinding) 

{ 

m_j)binding->AddRef () ; 

PostMessage(CMD_BIND_START) ; // SetStatus (L"Status : Starting to 

bind ...•'); 
} 

TRACED ( "m_j)File = new CFile;\n"); 
m_jpFile = new CFile; 

if (lm_pFile->Open(m_strFile, CFile :: modeReadWrite | CFile :: modeCreate 
I CFile : : shareExclusive) ) 

{ 

AfxMessageBox( "Failed to open file"); 
return FALSE; 

} 

PostMessage (CMD_BIND_FILE__OPENED) ; 
return S_OK; 
} // CBindStatusCallback: : OnStartBinding 



// 



// %%Function: CBindStatusCallback: : OnStopBinding 



STDMETHODIMP CBindStatusCallback :: OnStopBinding (HRESULT hrStatus, LPCWSTR 
pszError) 

{ 

TRACE ("CBindStatusCallback: : OnStopBinding\n" ) ; 
if (hrStatus) 

PostMessage (CMD_BIND_FAILED) ; // SetStatus (L"Status : File 
download Failed."); 



if (mjtbinding) 

{ 

m_j)binding- >Re lease ( ) ; 
m_jpbinding = NULL; 

} 

CloseFile 0 ; 
return S_OK; 
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} // CBindStatusCallbackr : OnStopBinding 

void CBindStatusCallback : : CloseFile ( ) 
{ 

if (m_pFile) 
{ 

TRACE ( "mjFile->Close () ;\n") ; 
m__pFile- >Close ( ) ; 
delete m_pFile; 
m_pFile = NULL; 

PostMessage {CMD_BIND FILE CLOSED); 

} 

} 

// 

// %%Function: CBindStatusCal Iback : : GetPriority 

// 

STDMETHODIMP CBindStatusCallback :: GetPriority (LONG* pnPriority) 

return E_NOTIMPL; 
} // CBindStatusCallback: : GetPriority 

// 

// %%Function: CBindStatusCallback: : OnLowResource 

// 

STDMETHODIMP CBindStatusCallback: : OnLowResource (DWORD dwReserved) 

return E_NOTIMPL; 
} // CBindStatusCallback :: OnLowResource 

// 

// %%Function: CBindStatusCallback: :OnProgress 

// 

STDMETHODIMP CBindStatusCal Iback :: OnProgres s (ULONG ulProgress, ULONG 
ulProgressMax, 

ULONG 

ulStatusCode, LPCWSTR szStatusText ) 
{ 

TRACE ("CBindStatusCallback: : OnProgress ( %lu) \n " , ulProgress) ; 
char sz [2 55] ; 

if (szStatusText) 

WideCharToMultiByte (CP_ACP, 0, szStatusText, -1, sz, 255, 0, 0) ; 

char msg [256] ; 
// WCHAR out [256*2]; 

wsprintf (msg, "Progress: %s %d of %d sz, ulProgress, (ulProgress > 
UlProgressMax) ? ulProgress : ulProgressMax) ; 

// MultiByteToWideChar (CP_ACP, 0, msg, -i, out, sizeof (out ) ) ; 
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SendMessage (CMD_BIND_PROGRESS_MSG, 0, (LPARAM)msg) ; 

TRACE{"%lu, %lu\n'\ ulProgress, ulProgressMax) ; 

SendMessage (CMD_BIND_PROGRESS_BAR, (WPARAM) ulProgress, 
(LPARAM) UlProgressMax) ; // by value 

return NOERROR; 
} // CBindStatusCallback: :OnProgress 

// 

// %%Function: CBindStatusCal Iback : : GetBindInf o 

// 

STDMETHODIMP CBindStatusCallback :: GetBindInf o (DWORD* pgrfBINDF, BINDINFO* 
pbindlnfo) 

{ 

if (ipbindlnfo || ! pbindlnfo- >cbsize || !pgrfBINDF) 
return E^INVALIDARG ; 

*pgrfBINDF = BINDF_ASYNCHRONOUS | BINDF_ASYNCSTORAGE | BINDF_PULLDATA | 

BINDF_GETNEWESTVERSION | BINDF_NOWRITECACHE ; 

// remember incoming cbsize 
ULONG cbSize = pbindlnfo- >cbSize ; 
// zero out structure 
: : ZeroMemory (pbindlnfo , cbs i ze ) ; 

// restore cbSize 

pbindinf o->cbSize = cbSize; 

pbindlnfo- >dwBindVerb = BINDVERB GET; 

return S_OK; 
} // CBindStatusCallback: : GetBindInf o 

// 

// %%Function: CBindStatusCallback: : OnDataAvailable 

// 



STDMETHODIMP CBindStatusCallback :: OnDataAvai lable (DWORD grfBSCF, DWORD 
dwSize, FORMATETC* pfmtetc, STGMEDIUM* pstgmed) 

TRACE ("CBindStatusCallback: : OnDataAvailable (%ld) \n" , dwSize) • 
HRESULT hr=S_OK; 

/ / Get the Stream passed 

if (BSCF_FIRSTDATAN0TIFICAT10N & grfBSCF) 

if (!m_pstm (pstgmed- >tymed == TYMED_I STREAM ) ) 

mjistm = pstgmed- >pstm; 
if (m_pstm) 

m_j)stm->AddRef () ; 

} 

//If there is some data to be read then go ahead and read them 
if (m_pstm && (dwSize > 0) ) 
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{ 

DWORD dwRead = dwSize; 
hasn't been read 

DWORD dwActuallyRead = 0; 
during this pull 

if (dwRead > 0) 

{ 

do 
{ 

char* pNewstr = new char [dwRead + 1] ; 
if ( IpNewstr) 

return S_FAIiSE; 
hr = m_jpstTn->Read (pNewstr, dwRead, ScdwActuallyRead) ; 
pNewstr [dwActuallyRead] = 0; 

// If we really read something then lets add it to 

the Edit box 

if (dwActuallyRead > 0) 

{ 

TRY 
{ 

m_pFile- >Write (pNewstr , dwActuallyRead) ; 

} 

CATCH ( C F i 1 e Exc ep t i on , e ) 
{ 

TRACED ("Failed to write file.\n"); 
return FALSE; 
} END_CATCH 

} 

delete [] pNewstr; 
} while ( 1 (hr E_PENDING | | hr == S_FALSE) 

SUCCEEDED (hr) ) ; 

} 

} // if (m_pstm ScSc dwSize > 0) 

if (BSCF_LASTDATANOTIFICATION & grfBSCF) 
{ 

if (m_pstm) 

m_jpstm- >Re lease { ) ; 

hr = S_OK; // If it was the last data then we should return S_OK 
as we just finished reading everything 

PostMessage (CMD_BIND_DOWNLOAD_DONE) ; // SetStatus (L" Status : 

File downloaded. ") ; 

TRACEO ( "Status : File downloaded . \n" ) ; 

} 

return hr; 

} // CBindStatusCallback: lOnDataAvailable 

// 

// %%Function: CBindStatusCallback: : OnObj ect Available 

// 

STDMETHODIMP CBindStatusCallback :: OnObj ectAvailable (REFIID riid, lUnknown* 
punk) 

{ 

return E_NOTIMPL; 



// Minimum amount available that 
// Placeholder for amount read 
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} // CBindStatusCallback: : OnOb j ectAvailable 
// 

/ / CDovmload Implementation 

// 



// 

// %%Function: CDownload : : CDownload 

// 

CDownload: : CDownload (LPCWSTR szURL) 
{ 

TRACE ( "CDownload : : CDownload\n" ) ; 
m_url = szURL; 
m_pmk = 0 ; 
m_pbc = 0 ; 
m_pbsc =: 0/ 

} // CDownload 

// 

// %%Function: CDownload :: -CDownload 

// '- 

CDownload: : -CDownload ( ) 
{ 

TRACE { "CDownload: : --CDownload\n " ) ; 
i f ( m _pmk ) 

m_pmk- >Re lease 0 ; 
if (m_pbc) 

m_pbc->Release 0 ; 
if {mj)bsc) 

{ 

m_pbsc ->Re lease ( ) ; 
delete m_pbsc; 

} // -CDownload 

// 

// %%Function: CDownload: :DoDownload 

// 

HRESULT CDownload : zDoDownload (HWND hwndPrame, LPCTSTR szFile) 

TRACE { "CDownload: : DoDownload\n " ) ; 
IStream* pstm = NULL; 

HRESULT hr = CreateURLMoniker (NULL , m_url , &m_pmk) ; 
if (FAILED (hr)) 

goto LErrExit; 

m_pbsc = new CBindStatusCallback (hwndFrame , szFile) ; 
if ( !m_pbsc) 
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{ 

hr = E_OUTOFMEMORY; 
goto LErrExit; 

} 

hr ^ CreateBindCtx (0 , tm^pbc) ; 
if (FAILED (hr) ) 

goto LErrExit; 

hr = RegisterBindStatusCallback (m_jpbc, m__pbsc, 0, OL) ; 
if (FAILED (hr) ) 

goto LErrExit; 

hr = m_pmk- >BindToStorage (m_pbc, 0, IID_IStream, (void** ) &:pstm) 
if (FAILED (hr) ) 

goto LErrExit; 

return hr; 

LErrExit : 

if (m__pbc) 

{ 

m_pbc->Release ( ) ; 
m_jpbc = NULL ; 

} 

if (m_pbsc) 

{ 

m_pbsc- >Release 0 ; 
m__pbsc = NULL; 

} 

i f ( m_jpmk ) 

{ 

m_pmk->Release () ; 
m_jpmk = NULL ; 

} 

if (pstm) 

{ 

pstm->Release ( ) ; 
pstm = MULL; 

} 

return hr; 
} // CDownload: iDoDownload 

void CDownload :: CancelDownload ( ) 

{ 

if (m_jpbsc) 

{ 

m__pbsc- >CloseFile () ; 

} 

} 
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#ifndef PROG_H 

#define PROG_H 

#include "urlmon . h " 
#include " wininet . h" 



#define BASE (WM_USER + 20 0 

const UINT CMD_BIND_START 
const UINT CMD_BIND_FAILED 
const UINT CMD_BIND_FILE_OPENED 
const UINT CMD_BIND_FILE_CLOSED 
const UINT CMD_BIND_PROGRESS_MSG 
SendMe s s age ( CMD_B IND_PROGRES S_MSG 
const UINT CMD_BIND_PROGRESS_BAR 
SendMessage( CMD_B I ND_PROGRE S S_B AR , 
(LPARAM) ulProgressMax) ; // by value 
const UINT CMD_BIND_D0WNLOAD_D0NE 
#undef BASE 



100) 

= BASE; 
= BASE+1; 
= BASE+2; 
= BASE+3; 
= BASE+4; // 
0, (LPARAM) msg) ; 

= BASE+5; // 
(WPARAM) ulProgress , 

= BASE+6; 



// %%Classes 



class CBindStatusCallback : public IBindStatusCallback 

public : 

/ / lUnknown methods 

STDMETHODIMP Querylnterf ace (REFIID riid, void ** ppv) * 

STDMETHODIMP_(ULONG) AddRefO { return m_cRef++ ■ }' 

STDMETHODIMP_(ULONG) Release () { return m_cRef--; } 

//if (--m_cRef 0) { delete this; return 0; ) return m_cRef; } 

// IBindStatusCallback methods 

STDMETHODIMP OnStartBinding (DWORD dwReserved, IBinding* pbinding) • 
STDMETHODIMP GetPrior i ty (LONG* pnPriority) ; 
STDMETHODIMP OnLowResource (DWORD dwReserved) ; 

STDMETHODIMP OnProgress (ULONG ulProgress, ULONG ulProgressMax ULONG 

ulStatusCode, 

LPCWSTR pwzStatusText) ; 
STDMETHODIMP OnS topBinding (HRESULT hrResul t , LPCWSTR szError) - 
STDMETHODIMP GetBindlnfo (DWORD* pgrfBINDF, BINDINFO* pbindinfo) ; 

STDMETHODIMP OnDataAvail able (DWORD grfBSCF, DWORD dwSize, FORMATETC 

*pfmtetc, 

STGMEDIUM* pstgmed) ; 
STDMETHODIMP OnObj ectAvailable (REFIID riid, lUnknown* punk); 

// constructors/destructors 

CBindStatusCallback (HWND hwndFrame, LPCTSTR szFile) ; 
-CBindStatusCallback ( ) ; 

BOOL PostMessage (UINT message, WPARAM wParam=0L, LPARAM lParam=0L) 

const 

^ { return :: PostMessage (m_hFrame , message, wParam, iParam) ; 

BOOL SendMes sage (UINT message, WPARAM wParam-OL, LPARAM lParam=0L) 

const 

^ { return : : SendMessage (m_hFrame , message, wParam, iParam) ; 

void CloseFile () ; 
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}; 



/ / data members 

DWORD m_cRef; 

IBinding* m_j)binding; 

IS t ream* m_pstm; 

HWND m_hFrame ; 
CFile* m_j>File; 
CString m_strFile; 



class CDownload 

{ 

public : 

CDownload (LPCWSTR szURL) ; 
-CDownload ( ) ; 

HRESULT DoDownload (HWND hwndFrame , LPCTSTR szFile) ; 

void CancelDownload ( ) ; 

LPCWSTR n\_url ; 



private : 

IMoniker* mjpmk; 
XBindCtx* m__pbc; 
CBindStatusCallback* m__pbsc; 

}; 

ttendif // PROG H 
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// Progress. cpp : Defines the class behaviors for the application. 
// 



#include " stdaf x . h" 
#include "Progress. h" 
#include " ProgressDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CProgressApp 

BEGIN_MESSAGE_MAP (CProgressApp, CWinApp) 
// { { AFX_MSG_MAP (CProgressApp) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code! 
//} }AFX_MSG 

ON_COMMAND ( ID_HELP, CWinApp : : OnHelp) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CProgressApp construction 

CProgressApp: : CProgressApp { ) 

{ 

// TODO : add construction code here, 

// Place all significant initialization in Initlnstance 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 / 1 1 1 // 1 III 11 III / 1 1 1 1 1 1 1 1 1 1 11 1 

11 The one and only CProgressApp object 
CProgressApp theApp ; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II CProgressApp initialization 

BOOL CProgressApp; : Initlnstance ( ) 
{ 

if ( ! Af xSocket Init { ) ) 
{ 

Af xMessageBox ( IDP_SOCKETS_INIT_FAILED) / 
return FALSE; 

} 



AfxEnableControlContainer ( ) ; 



// Standard initialization 

// If you are not using these features and wish to reduce the size 

// of your final executable, you should remove from the following 

// the specific initialization routines you do not need- 
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#ifdef _AFXDLL 

EnableSdControls 0 ; 
shared DLL 
#else 

Enable3dControlsStatic 0 ; 
statically 
#endif 

CProgressDlg dlg; 
m_pMainWnd = &dlg; 
int nResponse = dig . DoModal ( ) ; 
if (nResponse == IDOK) 
{ 

// TODO: Place code here to handle when the dialog is 
// dismissed with OK 

} 

else if (nResponse == IDCANCEL) 
{ 

// TODO: Place code here to handle when the dialog is 
// dismissed with Cancel 

} 

// Since the dialog has been closed, return FALSE so that we exit the 
// application, rather than start the application's message pump, 
return FALSE; 

} 



// Call this when using MFC in a 
// Call this when linking to MFC 
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// Progress. h : main header file for the PROGRESS application 
// 

#if ! defined {AFX_PROGRESS_H C8A475E7_CD64_11D1_80E2_080009B9F339 INCL.UDED_) 

#def ine AFX_PROGRESS_H C8A4 7 5E7_CD64_11D1_80E2_080 00 9B9F3 3 9 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC__VER 1000 

#ifndef AFXWIN_H 

#error include ' stdaf x . h ' before including this file for PCH 

#endif 

#include " resource. h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
// CProgressApp : 

// See Progress. cpp for the implementation of this class 
// 

class CProgressApp : public CWinApp 

{ 

public : 

CProgressApp ( ) ; 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CProgressApp) 
public : 

virtual BOOL Init Instance () ; 
// } }AFX_VIRTUAL 

// Implementation 

// { {AFX_MSG (CProgressApp) 

// NOTE - the ClassWizard will add and remove member functions 

here . 

// DO NOT EDIT what you see in these blocks of generated code 

i 

//} }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 



///////////////////////////////////////////////////////////////////////////// 

// { { afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

[defined ( AFX_PROGRESS_H C8A4 75E7_CD64_11D1_80E2_0 80 00 9B9F3 3 9 INCLUDED_) 
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// ProgressDlg. cpp : implementation file 
// 



#include "stdaf x . h" 

#include "Progress. h" 

#include "ProgressDlg . h" 

#include "Prog.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CProgressDlg dialog 

CProgressDlg: :CProgressDlg (CWnd* pParent /*=NULL*/) 
^ : CDialog (CProgressDlg: : IDD, pParent) 

// { {AFX_DATA_INIT (CProgressDlg) 
m_strDisplay = _T ( " " ) ; 
m_str Progress = _T ( " " ) ; 
// } }AFX_DATA_INIT 

// Note that Loadlcon does not require a subsequent Destroylcon in 

Win32 

m_hIcon = Af xGetApp ( ) - >LoadIcon (IDR_MAINFRAME) ; 
m_pDownload = NULL; 
m_aDI = NULL; 
m_nDIs = 0; 

} 



CProgressDlg : : -CProgressDlg ( ) 
{ 

if (m_pDownload) 

delete m_pDownload; 
if (m_aDI) 

delete [] m_aDI ; 

// CoUninitialize 0 ; 



void CProgressDlg : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (CProgressDlg) 

DDX_Control (pDX, IDC_PROGRESSBAR, m_pbProgress ) ; 
DDX_Text (pDX, IDC_DISPLAY, m_strDisplay) ; 
DDX_Text (pDX, IDC_PROGRESS, m_strProgress) ; 
// } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CProgressDlg, CDialog) 
//{ {AFX_MSG_MAP (CProgressDlg) 

on_wm_sys command ( ) 
on_wm_paint ( ) 
on_wm_querydragicon ( ) 
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/ / } } AFX_MSG_MAP 

ON_MESSAGE ( CMD_BIND_START , OnBindStart) 
ON_MESSAGE { CMD_BIND_FAILED , OnBindFailed) 
ON_MES S AGE ( CMD_B IND_F I LE_OPENED , OnB indF i 1 eOpened ) 

ON_MESSAGE ( CMD_BIND_FILE_CLOSED , OnBindFileClosed) 
ON_MESSAGE (CMD_BIND_PROGRESS_MSG, OnBindProgressMsg) // 

SendMessage (CMD_BIND_PROGRESS_MSG, 0, (LPARAM) msg) ; 

ON_MESSAGE (CMD_BIND_PROGRESS_BAR, OnBindProgres sBar ) // 

SendMessage (CMD_BIND__PROGRESS_BAR , (WPARAM) ulProgress, 

(LPARAM) ulProgressMax) ; 

ON_MESSAGE ( CMD_BIND_DOWNLOAD_DONE , OnBindDownloadDone ) 

END__MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
/ / CProgressDlg message handlers 

BOOL. CProgressDlg: : Onini tDialog ( ) 
{ 

CDialog: : OnlnitDialog ( ) ; 

// Add "About..." menu item to system menu. 

// IDM__ABOUTBOX must be in the system command range. 
ASSERT ( (IDM_ABOUTBOX & OxFFFO) IDM_ABOUTBOX) ; 

ASSERT (IDM_ABOUTBOX < OxFOOO); 

CMenu* pSysMenu = GetSystemMenu (FALSE) ; 
if (pSysMenu != NULL) 

{ 

est ring strAboutMenu; 

strAboutMenu . Loads tring CIDS_AB0UTB0X) ; 
if { 1 strAboutMenu . IsEmpty ( ) ) 

{ 

pSysMenu ->AppendMenu (MF^SEPARATOR) ; 
pSysMenu- >AppendMenu (MF_STRING, IDM_ABOUTBOX , 

StrAboutMenu) ; 

} 

} 

// Set the icon for this dialog. The framework does this automatically 
// when the application's main window is not a dialog 
Setlcon (m_hIcon, TRUE); // Set big icon 

Setlcon (m_hIcon, FALSE); // Set small icon 

// HRESULT hr = Colnitialize (NULL) ; 

// if (FAILED (hr)) 

// return FALSE; 



} 



return TRUE; // return TRUE unless you set the focus to a control 



void CProgressDlg: lOnSysCommand (UINT nID, LPARAM IParam) 

{ 

// if ( (nID & OxFFFO) == IDM_ABOUTBOX) 

// { 

// CAboutDlg dlgAbout; 

// dlgAbout . DoModal ( ) ; 
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// } 
// else 

// { 

CDialog: : OnSys Command (n ID , 1 Par am) ; 

// } 
} 

// If you add a minimize button to your dialog, you will need the code below 
// to draw the icon. For MFC applications using the document/view model, 
// this is automatically done for you by the framework. 

void CProgressDlg : :OnPaint ( ) 

{ 

if ( Islconic ( ) ) 

{ 

CPaintDC dc(this); // device context for painting 

SendMessage (WM__ICONERASEBKGND, (WPARAM) dc.GetSafeHdc () , 0) ; 

// Center icon in client rectangle 

int cxicon = GetSystemMetrics (SM_CXICOW) ; 

int cylcon = GetSystemMetrics (SM__CYICON) ; 

CRect rect; 

GetClientRect (£crect) ; 

int X = (rect -Width { ) - cxicon +1) / 2; 
int y = {rect .Height ( ) - cylcon +1) / 2; 

// Draw the icon 

dc . Drawlcon (x, y, m_hIcon) ; 

} 

else 

{ 

CDialog: :OnPaint () ; 

} 

} 

// The system calls this to obtain the cursor to display while the user drags 
// the minimized window. 

HCURSOR CProgressDlg : : OnQueryDraglcon ( ) 

{ 

return (HCURSOR) m_h I con; 

} 

void CProgressDlg : :OnOK{ ) 
{ 

CString strURL ( "ftp : //88 . 1 . 26 . 2/UniChat/u2 files . txt " ) ; // 
203 . 241 , 132 . 83 

static WCHAR szDef aultURL [MAX_PATH] ; // 

L"http : //www . msn . com" ; 

MultiByteToWideChar (CP_ACP, 0, strURL, -1, szDef aultURL , MAX_PATH) ; 
if ( m pDo wn 1 oad ) 

{ 

delete m_jpDownload; 

} 

m_j>Download ^ new CDownload ( szDef aul tURL.) ; 
GetDlgltem(IDOK) - >EnableWindow ( FALSE ) ; 
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GetDlgltem(IDCANCEL) - >EnableWindow ( FALSE) ; 
char rgchBuf [INTERNET_MAX_PATH_LENGTH] ; 

WideCharToMultiByte {CP_ACP, 0, m_pDownload- >m_url , -1, rgchBuf , 
MAX_PATH , 0 , 0 ) ; 

SetWindowText (rgchBuf) ; 

m_strDisplay = "Status: Initiating Bind..."; 
UpdateData{ FALSE) ; 

m_j)Download- >DoDovmload (GetSaf eHwnd ( ) , "test.txt") ; 
GetDlgltem(IDCANCEL) - >EnableWindow (TRUE) ; 

// CDialog: :OnOK() ; 
} 

void CProgressDlg : : OnCancel ( ) 

{ 

if (m__pDownload) 

m_pDownload- >CancelDownload ( ) ; 
// EndDialog (hwndDlg, 0) ; 
CDialog: : OnCancel () ; 

} 

LRESULT CProgressDlg : :OnBindStart (WPARAM, LPARAM) 
{ 

m_strDisplay = "Status: Preparing download..."; //Starting to bind..." 
UpdateData { FALSE) ; // Write 

return 0 ; 

} 

LRESULT CProgressDlg: :OnBindFailed(WPARAM, LPARAM) 
{ 

in_strDisplay = "Status: File download Failed."; 
UpdateData (FALSE) ; // Write 

return 0; 

} 

LRESULT CProgressDlg: :OnBin.dFileOpened(WPARAM, LPARAM) 
{ 

return 0 ; 

} 

LRESULT CProgressDlg: : OnBindFileClosed (WPARAM, LPARAM) 
{ 

return 0 ; 

} 

LRESULT CProgressDlg :: OnBindProgressMsg (WPARAM wParam, LPARAM IParam) 

{ 

char* szMsg ~ (char* ) iParam; 
if (szMsg ScSc Istrlen (szMsg) ) 

{ 

m_strProgress = szMsg; 
UpdateData (FALSE) ; // Write 

} 

return 0 ; 

} 
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LRESUIjT CProgressDlg : lOnBindProgressBar (WPARAM wParam, LPARAM IParam) 

{ 

ULONG cProgress = (ULONG) wParam; 

ULONG maxProgress = (ULONG) iParam; 
m_pbProgress . SetRange (0 , 100); 

mjbProgress . SetPos (maxProgress ? cProgress * 100 / maxProgress 
return 0 ; 

} 

LRESULT CProgressDlg : lOnBindDownloadDone (WPARAM, LPARAM) 
{ 

m_strDisplay = "Status: File downloaded ; 
UpdateData (FALSE) ; // Write 

GetDlgltem(IDOK) - >EnableWindow (TRUE) ; 
return 0 ; 
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// ProgressDlg.h : header file 
// 

#if 

! defined (AFX_PROGRESSDLG_H C8A4 75E9_CD64_11D1_8 0E2_08 000 9B9F33 9 INCLUDED ) 

#def ine AFX__PROGRESSDLG__H C8A475E9_CD54_11D1_80E2_080009B9F33 9 INCLUDED__~ 

#if _MSC_VER >^ 1000 
#pragma once 

#endif // _MSC_VER >= 10 00 

///////////////////////////////////////////////////////////////////////////// 
// CProgressDlg dialog 
class CDovmload; 



class CDownlnfo 
{ 

public: // CFileStatus 

CString m_strFile ; 

CTime nn_mtime; // The date and time the file was created. 

LONG m_size; // The logical size of the file in byt€ 

BOOL m_bExtract; 

}; 

class CProgressDlg : public CDialog 

/ / Construction 
public : 

CProgressDlg (CWnd* pParent = NULL); // standard constructor 
-CProgressDlg ( ) ; 

// Dialog Data 

//{ {AFX_DATA (CProgressDlg) 

enum { IDD ^ IDD_PROGRESS_DIALOG } ; 

CProgressCtrl m_pbProgress ; 

CString m_strDi splay; 

CString m_strProgress ; 

//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CProgressDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV 

support 

//} }afx_virtual 



// Implementation 
protected : 

HICON m_hIcon; 

CDovmload* m__pDownload; 

CDownlnfo* m_aDI; 

int m_nDIs; 

// on_message 

LRESULT OnBindStart (WPARAM, LPARAM) ; 
LRESULT OnBindFailed (WPARAM, LPARAM); 
LRESULT OnBindFileOpened (WPARAM, LPARAM); 
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LRESULT OnBindFileClosed (WPARAM, LPARAM) ; 
LRESULT OnBindProgressMsg (WPARAM, LPARAM); 
LRESULT OnBindProgressBar (WPARAM, LPARAN) ; 
LRESULT OnBindDownloadDone (WPARAM, LPARAM); 

/ / Generated message map functions 
// { { AFX_MSG (CProgressDlg) 
virtual BOOL Onini tDialog ( ) ; 

afx_msg void OnSys Command (UINT nID, LPARAM IParam) ; 

afx_msg void OnPaint ( ) ; 

af x_msg HCURSOR OnQueryDraglcon ( ) ; 

virtual void OnOK{); 

virtual void OnCancelO; 

//} )AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_PROGRESSDLG_H C8A4 75E9__CD64_1 1D1_8 0E2 0 80 009B9F3 3 9 INCLUDED ) 
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MICROSOFT FOUNDATION CLASS LIBRARY : Progress 



Appwizard has created this Progress application for you. This application 
not only demonstrates the basics of using the Microsoft Foundation classes 
but is also a starting point for writing your application. 

This file contains a summary of what you will find in each of the files that 
make up your Progress application. 

Progress . h 

This is the main header file for the application. It includes other 
project specific headers (including Resource. h) and declares the 
CProgressApp application class. 

Progress . cpp 

This is the main application source file that contains the application 
class CProgressApp. 

Progress . rc 

This is a listing of all of the Microsoft Windows resources that the 
program uses. it includes the icons, bitmaps, and cursors that are 
stored 

in the RES subdirectory. This file can be directly edited in Microsoft 
Developer Studio. 

res\Progress . ico 

This is an icon file, which is used as the application's icon. This 
icon is included by the main resource file Progress. rc. 

res\Progress . rc2 

This file contains resources that are not edited by Microsoft 
Developer Studio. You should place all resources not 
editable by the resource editor in this file. 

Progress . clw 

This file contains information used by ClassWizard to edit existing 
classes or add new classes. ClassWizard also uses this file to store 
information needed to create and edit message maps and dialog data 
maps and to create prototype member functions. 



///////////////////////////////////////////////////////////////////////////// 

Appwizard creates one dialog class: 

ProgressDlg.h, ProgressDlg . cpp - the dialog 

These files contain your CProgressDlg class. This class defines 
the behavior of your application's main dialog. The dialog's 
template is in Progress. rc, which can be edited in Microsoft 
Developer Studio. 



///////////////////////////////////////////////////////////////////////////// 

other standard files: 
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S tdAf X . h , S tdAf X . cpp 

These files are used to build a precompiled header (PCH) file 
named Progress. pch and a precompiled types file named StdAfx.obj. 

Resource . h 

This is the standard header file, which defines new resource IDs, 
Microsoft Developer Studio reads and updates this file. 

///////////////////////////////////////////////////////////////////////////// 
Other notes : 

AppWizard uses "TODO:" to indicate parts of the source code you 
should add to or customize . 

If your application uses MFC in a shared DLL, and your application is 
in a language other than the operating system's current language, you 
will need to copy the corresponding localized resources MFC40XXX.DLL 
from the Microsoft Visual C++ CD-ROM onto the system or system32 directory, 
and rename it to be MFCLOC.DLL. ("XXX" stands for the language abbreviation. 
For example, MFC40DEU.DLL contains resources translated to German.) If you 
don't do this, some of the UI elements of your application will remain in the 
language of the operating system. 

///////////////////////////////////////////////////////////////////////////// 
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//{ {no_dependencies} } 

/ / Microsoft Developer Studio generated include 



// Used by Progress. rc 
// 

#define IDM_ABOUTBOX 0x0010 

#define IDD_ABOUTBOX 100 

#define IDS_ABOUTBOX 10 i 

#define IDD_PROGRESS_DIALOG 102 

#define IDP_SOCKETS_INIT_FAILED 103 

#define IDR_MAINFRA]y[E 12 8 

#define IDC_EDIT_MSG 100 0 

#define IDC_DISPLAY lOOl 

#define IDC_PROGRESS 1002 

#define IDC_PROGRESSBAR 1013 



// Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED 

#ifndef APSTUDIO_READONLY_SYMBOLS 

#define _APS_NEXT_RESOURCE_VALUE 

#define _APS_NEXT_COMMAMD_VALUE 

#define _APS_NEXT_CONTROL_VALUE 

#define _APS_NEXT_SYMED_VALUE 

#endif 

#endif 



129 
32771 
1001 
101 
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// stdafx.cpp : source file that includes just the standard includes 

// Progress. pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type information 

#include " stdaf x . h" 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

// 

#if 1 defined (AFX STDAFX H C8A475EB CD64 llDl 80E2 Q80009B9F339 INCLUDED^) 

#def ine AFX STDAFX H C8A475EB CD64 llDl 8QE2 080Q09B9F33 9 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 100 0 

#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows 

headers 

#include <afxwin.h> // MFC core and standard components 

#include <afxext.h> // MFC extensions 

#include <afxdisp.h> // MFC OLE automation classes 

#ifndef _AFX__NO_AFXCMN__SUPPORT 

#include <afxcmn.h> // MFC support for Windows Common 

Controls 

#endif // _AFX_NO_AFXCMN_SUPPORT 

^include <afxsock-h> // MFC socket extensions 

/ / { {afx_insert__location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

!defined{AFX STDAFX H C8A475EB CD64 llDl 80E2 080009B9F339 INCLUDED ) 
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#FILELIST= 
{ 

u2res000.rit=0,4614, 1998,4, 1,10,22; // 0: do not extract 

OOOOcsin. sit=0 , 1811, 1998, 3, 31, 14, 41 ; 

OOOlctrm. sit=0, 2 64 9, 1998, 4, 1,11, 10; 

OOOldemo .sit=0, 2454, 1998, 3,26, 14, 59; 

0002ctrm. sit=0 , 1955 , 1998 , 4 , 1 , 1 1 , 10 ; ' 

00 02demo. sit=0, 1851 , 1998 . 3 , 26, 14 , 59; 

00 03ctrTn. sit = 0,22 56, 1998, 4,1, 11, 11; 

0 003demo. sit =0,2 04 6, 1998 , 3 , 6 , 15 , 0 ; 

00 04ctrm.sit=:0,2075,1998,4,l,ll,l2; 

OOOSctrm. sit=0 , 2368, 1998, 4, 1,11, 13; 

OOlOcs in. sit =0,1781, 1998, 4, 1,8, 31; 

0020csin.sit=0,18 82,1998,3,23,15,5; 

1000csin.sit=0,1909,1998,3,24,20,24; 

10 lOcsin. sit =0,18 02, 1998, 3, 24, 15,33; 

102 0csin. sit=0, 1531, 1998, 3, 24, 16, 40; 

2 0 00csin. sit=0 ,1997, 1998, 3,24,21, 7; 

2010csin.sit=0,2038,1998,3,31,13,3; 

2 02 0csin. sit=0, 23 83 ,1998, 3, 24, 21, 16; 
30 00csin.sit=0,2289,1998,3,25,15,44; 
3010csin.sit=0, 1800, 1998, 3,26, 15, 26; 

3 02 0csin.sit=0,1980,1998,3,26,12,50; 

4 000csin. sit=0, 22 90, 1998 , 3 , 2 6 , 22 , 55 ; 
4 010csin. sit=0 , 1918, 1998, 3,27,20,25; 
4 02 0csin. sit=0, 2 087, 1998 , 3 , 3 0 , 16 , 44 ; 

cg00.uds=l,149701,1998,3,7,17,36; // 1: extract 
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// 

// CBubbleListNotifyObj : 
// 

// (C) Programmed by Kim, 

// 

// Information Technology Institute 

// UNICHAT INC 

// 

#include " stdaf x . h" 
#include "dib .h" 
#include "dibpal .h" 
#include "bubbleno.h" 
#include "bblstno . h" 
#include "bubble , h" 
#include "bubbllst.h" 
#include "osbview.h" 

#ifdef _DEBUG 
#undef THIS^FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CBubbleListNotifyObj 

CBubbleListNotifyObj : .-CBubbleListNotifyObj () 
{ 

m__pBubbleList = NULL; 
m__pBuf f erView = NULL; 

} 

CBubbleListNotifyObj : : -CBubbleListNotifyObj () 

{ 

} 

// Notification callback from a CBubble object. 

void CBubbleListNotifyObj :: Change (CBubble* pBubble, CHANGETYPE change, 

CRect* pRectl, CRect* pRect2) 

{ 

if (change & CBubbleNotifyObj : : ZORDER) 

{ 

// Reposition the bubble in the z-order list. 

ASSERT (m_pBubbleList) ; 

m_pBubbleList - >Reorder (pBubble) ; 

// Add the bubble position to the dirty list. 

ASSERT (m_jpBufferView) ; 

m_pBuf f erView- >AddDirtyRegion (pRectl ) ; 

} 

if (change & CBubbleNotifyObj :: POSITION) 

{ 

// pRectl and pRect2 point to old and new rectangle positions ; 
// add these rectangles to the dirty list. 
ASSERT (m_pBufferView) ; 

m_j)Buf f erView->AddDirtyRegion (pRectl) ; 
m_pBuf f erView- >AddDirtyRegion (pRect2 ) ; 
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if (change & CBubbleNotif yObj :: IMAGE) 
{ 

// redraw the bubble 

// Add the bubble position to the dirty 
ASSERT (m__pBufferView) ; 

m_pBuf f erView- >AddDirtyRegion (pRectl) ; 

} 
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// 

// CBubbleListNotifyObj : 

// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 
// UNI CHAT INC 

// 

// This is a class derived from CBubbleNotif yObj which is used in 
// CBubbleList to handle notification calls from CBubble objects. 
// 

#ifndef BBLSTNO 

#define BBLSTNO 

#include "BubbleNo.h" 
class CBubbleList / 
class COSBView; 

class AFX_EXT_CLASS CBubbleListNot if yObj : public CBubbleNotif yObj 
{ 

public : 

CBubbleListNot if yObj () ; 
-CBubbleListNot ifyObj () ; 

void SetList (CBubbleList* pBubbleList) {m_pBubbleList = 

pBubbleList ; } 

void SetView (COSBView* pBufferView) {m_pBuf f erView = 

pBuf f erView; } 

void Change (CBubble* pBubble, CHANGETYPE change, 

CRect* pRectl=NULL, CRect* pRect2=NULIi) ; 

protected -. 

CBubbleList* m_j>BubbleList ; 

COSBView* m_pBuff erView ; 

}; 

#endif // BBLSTNO 
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// 

// CBubble : 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include " stdaf x . h" 
^include "BubbleNo.h" 
#include "Bubble . h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [] = FILE ; 

#endif 

const DWORD LONGTIMELATER = 360000 OL; //I hour later 

///////////////////////////////////////////////////////////////////////////// 
// CBubble 

IMPLEMENT_SER1AL (CBubble, CObject, 0 /* Schema number */ ) 

CBubble : : CBubble ( ) 

{ 

m_bShow = FALSE; 

m_z = 0 ; 

m__rcBB . SetRectEmpty ( ) ; 

m_rcDT . SetRectEmpty ( ) ; 

m_strText - Empty ( ) ,- 

m_pNotifyObj = NULL; 

// later change by using property page 

m_RREllipse = CPoint{12, 12);//16, 16); 

m_maxWidth = 100;//120; 

m__TA = TA_LEFT; 

m_textcolor = PALETTERGB ( 0 , 0 , 0 ) ; 

m_brush.CreateSolidBrush (PALETTERGB (255,235,187)); 
// m__brush.CreateHatchBrush(HS_DIAGCROSS, RGB (255 , 255 , 128) ) ; 
// m_brush.CreateStockObject {NULL_BRUSH) ; 

m_f ont. Great eFont (-12, 0, 0, 0, FW__NORMAL, 

FALSE, FALSE, 0, // bitalic, bUnderline, cStrikeOut 
DEFAULT_CHARSET , OUT_CHARACTER_PRECIS , 
CLIP_CHARACTER_PRECIS , DEFAULT_QUALITY, 

DEFAULT^PITCH | | FF_DONTCARE , 

#ifdef _KOREAN 

"±H, ^Av^"} ; // ^UAAA^, ±H^^KH, p.^oA^ 

#else 

"Times New Roman"); 

#endif 

m__dwAlarmTick = : : GetTickCount ( ) + LONGTIMELATER; 

} 

CBubble : : -CBubble ( ) 

{ 
} 
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///////////////////////////////////////////////////////////////////////////// 
II CBubble serialization 

void CBubble :: Serialize (CArchive&i ar) 

{ 

CObj ect : : Serialize (ar) ; 
if {ar - IsStoring ( ) ) 

{ 

ar << (DWORD) m_2; 

ar << m_rcBB; 

ar << m_strText; 

ar << m^RREllipse; 

ar << (DWORD) m__max Width ; 

ar << m__text color ; 

} 

else 
{ 

DWORD dw; 

ar >> dw; m_z = (int)dw; 

ar >> m_rcBB; 

ar >> m_strText; 

ar >> m_RREllipse; 

ar >> dw; m_maxWidth = (int)dw; 

ar >> m_t ext color ; 

} 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 / 1 1 n / 1 // 1 1 1 11 / u 1 1 / 1 1 1 / 1 

I / CBubble commands 

void CBubble :: SetKind (const int n) 

{ 

switch (n) 

{ 

case 0: // Yellow 

if (HBRUSH (m_brush) ) 

m_brush . DeleteObj ect ( ) ; 

m_brush. CreateSolidBrush (PALETTERGB (2 55 , 2 55 , 195) ) ; 
7/255,239, 191 

break ; 
case 1: // White 

if (HBRUSH (m_brush) ) 

m_brush . DeleteObj ect 0 ; 

m^brush.CreateSolidBrush (PALETTERGB (222 , 231 , 231) ) ; 

break; 
case 2 : // Green 

if (HBRUSH (m_brush) ) 

m_brush - DeleteObj ect () ; 

m_brush.CreateSolidBrush (PALETTERGB (206, 255, 90) ) ; 

break; 

} 

} 

void CBubble :: Render (const HBITMAP hbm, CPalette* pPal, const CRect* 
pClipRect ) 

{ 
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if ( !m_bShow) 

return; 
if (m__strText , IsEmpty C ) ) 

return; 

CDC dcMem; 

dcMem. CreateCompatibleDC (NULL) ; // create a memory dc that is 

compatible with current screen 

CBitmap* pbmOld = dcMem . SelectObj ect (CBitmap : : FromHandle (hbm) ) ; 

// If a clip rectangle was supplied, see if the bubble is visible 
inside the rectangle. 

if (pClipRect) 

{ 

CRect rcDraw; 

if ( 1 rcDraw . IntersectRect (pClipRect , &:m_rcBBT) ) 
return; // not visible 

} 

/* 

CPalette* ppalOld = NULL; 

if (pPal) 

{ 

ppalOld = dcMem. SelectPalette (pPal , FALSE); // foreground 

dcMem.RealizePalette () ; 

} 

*/ 

CBrush* brOld ^ dcMem . SelectObj ect ( Scm_brush) ; 
dcMem. SetBkMode (TRANSPARENT) ; 
dcMem. SetTextColor (m_textcolor ) ; 

dcMem, RoundRect (&:m_rcBB, m_RREllipse) ; 

static POINT aP[7]; 

aP[63 -y = aP[0] .y = m_rcBB . bottom - 1; 

aP[5] -y = aP[l] .y = aP[0] .y + 2; 

aP[4] .y = aP[23 .y = aP[l] .y + 2; 

aP [3] .y = aP [2] -y + 1; 

if (m_TA TA_RIGHT) // shape )) 

{ 



aP[0] 


.X 


= m_rcBB . right 


aP[l] 


.X 


= aP[0] 


X - 1; 


aP[2] 


. X 


= aP[l] 


X - 2; 


aP[3l 


.X 


= aP[2] 


X - 1; 


aP[4] 


. X 


= aPt3] 


X + 3; 


aP [5] 


. X 


= aP[4] 


X + 4 ; 


aP[63 


. X 


- aP[5] 


X + 2 ; 



} 

else // TA_LEFT shape ( ( 
{ 



aP [0] .X = 


m_rcBB .left 


+ 15; 


aP[l] .X = 


aP [0] .X + 1 




aP [2] .X = 


aP[l] .X + 2 




aP [3] .X = 


aP [2] .X + 1 




aP[4] .X = 


aP[3] ,x - 3 




aP [5] .X = 


aP[4] .X - 4 




aP [6] .X = 


aP [5] .X - 2 




penOld ~ 


(CPen* ) dcMem 


. SelectStockObject (NULL_PEN) 
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dcMem. Polygon (aP, sizeof (aP) /sizeof (aP [0] ) ) ; // draw Polygon (2D) 

without border 

dcMem. SelectObject (penOld) ; 

dcMem. Polyline (aP, sizeof (aP) /siseof (aP [0] ) ) ; // draw border with 
default pen 

CFont* pOldFont = dcMem . SelectOb j ect ( &m_f ont ) ; 

dcMem.DrawText (m_strText , -1, &m_rcDT, DT_LEFT | DT_WORDBREAK) ; 
dcMem. SelectObject (pOldFont) ; 
// if (ppalOld) 

// dcMem.SelectPalette (ppalOld, FALSE) / 

// GdiFlush () ; 

dcMem. SelectObject (brOld) ; 

dcMem. SelectObj ect (pbmOld) ; 

} 

void CBubble :: Show (const BOOL bShow) 
{ 

m_bShow = bShow ? TRUE : FALSE; 
if (Tn_pNotifyObj ) 

m_j)NotifyObj ->Change (this , CBubbleNotif yObj : : IMAGE, &m_rcBBT) ; 

} 

// Test for a hit in a non- transparent area 
BOOL CBubble : :HitTest (const CPointi point) const 

{ 

// Test if the point is inside the sprite rectangle 
if (m_rcBB . PtInRect (point ) ) 

return TRUE; // hit 
return FALSE; 

} 

// Set a new Z-order. 

void CBubble :: SetZ (const int z) 

{ 

if (m_z == z) 
return; 
m_z = z ; 

// See if we have to notify anyone, 
if (m_j5NotifyObj ) 

m_pNotif yObj - >Change (this , CBubbleNotif yObj : : ZORDER, &m_rcBBT) 

} 

// call this function before SetLT, lr=left or right according to ta 
void CBubble : :TextOut (const int Ir, const int bottom, const CString& str) 

{ 

// Save the current position. 
CRect rcOld = m_rcBBT; 

m_strText = str; // Although str is a NULL, that means she said 
nothing . . . 

// Move to new position. 
m_rcDT. bottom = bottom; 

m_rcDT , top = m_rcDT . bottom ; 

if (m_TA == TA_LEFT) 
{ 

m_rcDT.left = Ir; 
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m_rcDT . right 
maximum width 

} 

else 

{ 

m_rcDT . right 
m_rcDT . left 

} 

CDC dcMem; 

dcMem. CreateCompatibleDC (NULL) ; // create a memory dc that is 

compatible with current screen 

CFont* pOldFont = dcMem . SelectOb j ect ( &:m_f ont ) ; 

dcMem.DrawText (m_strText , -1, &m_rcDT, DT^CALCRECT | DT_WORDBREAK) ; 
// only left-aligns m_rcDT 
dcMem. SelectOb j ect (pOldFont) ; 

// adjust for too small bubbles 

if (m_rcDT. Width 0 < (m_maxWidth / 2)) 

{ 

if (m_TA TA_LEFT) 

m_rcDT. right = m_rcDT.left + m_maxWidth / 2; 

else 

m__rcDT.left = m_rcDT. right - m_maxWidth / 2; 

} 

// since DrawText only left -aligns m_rcDT, we need to right -align 

if (m_TA == TA_RIGHT) 

{ 

int w = m_rcDT. Width ( ) ; // save width 

m_rcDT. right = Ir; 

m_rcDT.left = m_rcDT. right - w; 

} 

m_rcDT.Of f setRect (0, -m_rcDT . Height ( ) ) ; 



=^ m_rcDT-left + m_maxWidth; // specify 



Ir; 

m__rcDT . right - m_maxWidth; 



SetRectangles ( ) ; 

// Notify that we have moved from our old position to our new position, 
if (m_pNotifyObj ) 

m_pNotifyObj ->Change (this, CBubbleNotif yOb j : -.POSITION, &rc01d, 

&m_rcBBT) ; 

} 

void CBubble: : SetRectangles {) 

{ 

// Adjust for bubbles outside screen area 
if {m_rcDT.left < 0) 

m_rcDT.Off setRect ( -m__rcDT . left , 0) ; 
if (m_rcDT.top < 0) 

m_rcDT,Off setRect (0 , -m_rcDT.top) ; 

m_rcBB = m_rcDT; 

m__rcBB . Inf lateRect (m_RREllipse .x/2 , m_RREllipse . y/2 ) ; 
m_rcBBT = m_rcBB; 

m^rcBBT. bottom += 8; // BUBBLE_TAIL 

} 
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CRect rcOld = m__rcBBT; 

int dx = (m_TA == TA_LEFT) ? Ir - m_rcDT.left : Ir - m_rcDT . right ; 
int dy = bottom - m_rcDT . bottom; 
m_rcDT , Of f setRect (dx , dy) / 
SetRectangles ( ) ; 

// Notify that we have moved from our old position to our new position, 
if (m_pNotifyObj ) 

m_pNotifyObj ->Change (this, CBubbleNotif yObj :: POSITION , &.rc01d, 

&m_rcBBT} ; 



} 



void CBubble :: SetAlarmTick (const DWORD dwAlarm) 



{ 
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// 
// 
// 
// 
// 
// 
// 
// 



CBubble : 

(C) Programmed by Kim 

Information Technology Institute 
UNICHAT INC 



#ifndef 
#def ine 



_BUBBLE_H 
BUBBLE H 



class CBubbleNotifyObj ; 

class AFX_EXT_CLASS CBubble : public CObject 
{ 

DECLARE_SERIAL (CBubble) 
public : 

CBubble () ; 
-CBubble 0 ; 



GetZO const 



// Attributes 
int 

Get z-order. 

int GetWidthO const 

int GetHeightO const 

void GetRect (CRect& rect) const 
UINT GetTextAlign ( ) const 
DWORD GetAlarmTick ( ) const 

// Operations 



{ return m_z ; } 



// 



{ return m_rcBB . Width () ; } 
{ return m_rcBB . Height () ; } 

{ rect = m__rcBBT; } 

{ return m_TA; } 

{ return m_dwAlarmTick; } 



void Show (const BOOL bShow) ; 

BOOL IsShownO const { return m_bShow; } 

void SetKind (const int n) ; 

void Serialize (CArchive& ar) ; 

void Render (const HBITMAP hbm, CPalette* pPal , const CRect* pClipRect 
= NULL) ; 

BOOL HitTest (const CPoint£c point) const; 

void SetZ (const int z) ; 

void SetTextAlign (const UINT ta) { m_TA = ta; } 

void TextOut (const int Ir, const int bottom, const CString& str) ; 

void MovePosit ion (const int Ir, const int bottom); 

void SetNotificationObject (CBubbleNotifyObj * pNO) { m_pNotifyObj = 



pNO; 



void SetAlarmTick (const DWORD dwAlarm) ; 



protected : 

void SetRectangles ( ) ; 



int 
CRect 
CRect 
CRect 
CString 

CB ubb 1 eNo t i f y Ob j 



m_rcBB ; 
m_rcBBT ; 
m rcDT; 



z ; 



// Z-order for this bubble 
/ / rectangle surrounds this bubble 
// rectangle including bubble's tail 
// used for DrawText 



m__strText ; 
m__pNotif yObj ; 



// Pointer to a notification object 



private : 
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m_RREllipse; // width, height of the ellipse for 

the CDC: iRoundRect 

m_maxWidth; // maximum width for this bubble 

(only width matters) 

COLORREF m_textcolor ; 
CFont m_f ont ; 

CBrush m_brush; 

UINT m__TA; // SetText Align 

BOOL m_bShow; 
^ DWORD m_dwAlarmTick; // Alarm for bubble erasing 

#endif BUBBLE H 



a 

m 

m 
m 

ill 
^1 
;i| 

a 
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// 

// CBubbleNotifyObj : 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNICHAT INC 

// 

// = = = = = Nigel Thompson 

// This is a class of pure virtual functions with no data. 

// It is used by bubble objects to make notification callbacks. 

//A user of the CBubble class can derive an object from CBubbleNotifyObj 

// and pass a pointer to this derived class object to the bubble object for 

notification calls. 

// Just like OLE's IClientSite interface really, 
// 

#ifndef BUBBLENO_H 

#define BUBBLENO_H 

class CBubble; 

class AFX_EXT_CLASS CBubbleNotifyObj : public CObject 
{ 

public : 

enum CHANGETYPE 
{ 

ZORDER = 0x0 001, 

POSITION ^ 0x0002, 

IMAGE = 0x0004 

}; 

public : 

virtual void Change (CBubble* pBubble, CHANGETYPE change, 

CRect* pRectl=NULL, CRect* pRect2=NULL) 

0; 

); 

#endif // BUBBLENO H 
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// 

// CBubbleList : 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include "stdafx.h" 
#include "dib.h" 
#include "bubbleno.h" 
#include "bubble. h" 
^include "bblstno . h" 
#include "bubbllst.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [] = FILE__ 

#endif 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 n 1 1 / 1 // 1 // 1 / 1 / 1 1 

// CBubbleList 

// Ascending order 

// [] <- draws last 

// [] 
// [] 
// 

// [] <- draws first 

IMPLEMENT_SERIAIi (CBubbleList, CObList, 0 /* Schema number */ ) 

CBubbleList: : CBubbleList () 

{ 

// Give the bubble notification object 
// a pointer to the list object. 
m_NotifyObj . SetList ( this ) ; 

} 

CBubbleList : : -CBubbleList () 

{ 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 u 1 1 1 u 1 1 / 1 1 1 1 1 1 1 1 III I / m I /// 1 1 1 III III / 1 / m / 1 / 1 1 1 1 1 / 1 

II CBubbleList serialization 

void CBubbleList :: Serialize (CArchive& ar) 
{ 

// Let the base class create the set of objects. 
CObList : : Serialize (ar) ; 

// If we've just loaded, initialize each bubble, 
if (ar . IsLoading () ) 

{ 

for (POSITION pos = GetHeadPosition ( ) ; pos != NULL;) 
{ 

CBubble* pBubble = GetNext (pos) ; // Increment position. 
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pBubble->SetNotif icationObject ( &m_Notif yOb j } ; 

} 

} 

///////////////////////////////////////////////////////////////////////////// 
/ I CBubbleList commands 

// Add a bubble to the list, placing it according to its z-order value 
BOOL CBubbleList :: Insert (CBubble* pNewBubble) 

// Set the notification object pointer in the bubble 
//to the bubble list's notification object. 
pNewBubble->SetNotif icationObject (fi.m__Notif yObj ) ; 

// Walk down the list until we either get to the end 

// or we find a bubble with the same or higher z-order 

//in which case we insert just before that one. Ascending order 

CBubble* pBubble; 
POSITION posThis; 

POSITION pos = GetHeadPositionO ; 

while (pos) 

{ 

posThis = pos; 

pBubble = GetNext (pos) ; // Increment position. 
InsertBef ore (posThis, pNewBubble) ; 
return TRUE; 

} 

// Nothing with the same or a higher z-order, 
// so add the bubble to the end. 
AddTail (pNewBubble) ; 
return TRUE; 

} 

// Remove a bubble from the list, but do not delete it 
CBubble* CBubbleList :: Remove (CBubble* pBubble) 

POSITION pos = Find (pBubble) ; 
if (pos == NULL) 

return NULL; 
RemoveAt (pos) ; 
return pBubble; 

} 

// Remove everything from the list deleting all the bubbles we remove 

void CBubbleList : :RemoveAll () 

{ 

// Walk down the list deleting objects as we go. 

//We need to do this here because the base class simply deletes the 
pointers . 

CBubble* pBubble; 

POSITION pos = GetHeadPositionO; 

while (pos) 

{ 

pBubble = GetNext (pos) ; // Increment position, 
if (pBubble) 
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{ 

ASSERT (pBubble->IsKindOf (RUNTIME_CLASS (CBubble) ) ) 
delete pBubble; 

} 

- } 

// Now call the base class to remove the pointers. 
CObList: : Remove All () ; 

} 

// Move a bubble to its correct z -order position, 
void CBubbleList : :Reorder (CBubble* pBubble) 

// Remove the bubble from the list. 

if ( "Remove (pBubble) ) 

{ 

TRACE ( "Unable to find bubble"); 
return; // Not there. 

} 

// Now insert it again in the right place. 
Insert (pBubble) ; 

} 

// Test for a mouse hit on any bubble in the list. 
CBubble* CBubbleList :: Hi tTest (const CPoint& point) 

// Walk the list top down. 
CBubble* pBubble; 

POSITION pos = GetHeadPositionO ; 

while (pos) 

{ 

pBubble = GetNext (pos) ; // Increment position, 
if (pBubble->HitTest (point) ) 
return pBubble; 

} 

return NULL; 

} 
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// 

// CBubbleList: 

// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNICHAT INC 

// 

#ifndef BUBBLELST 

#define BUBBLELST 

#include "BbLstNo . h" 

class CBubble; 

class AFX_EXT_CLASS CBubbleList : private CObList 

DECLARE_SERIAL (CBubbleList) 
public : 

CBubbleList () ; 
-CBubbleList () ; 

BOOL Insert (CBubble* pBubble) ; 

void Reorder (CBubble* pBubble) ; 

CBubble* Remove (CBubble* pBubble); 
void RemoveAll () ; 

CBubble* GetNext ( POSITION &pos ) { return (CBubble*) 

CObList : .'GetNext (pos) ; } 

CBubble* GetPrev (POSITION &pos) { return (CBubble*) 
CObList: : GetPrev (pos) ; } 

POSITION GetTailPosition () const { return 
CObList: :GetTailPosition 0 ; } 

POSITION GetHeadPosition () const { return 
CObList: :GetHeadPosition 0 ; } 

CBubble* HitTest (const CPoint& point); 

BOOL IsEmptyO { return CObList :: IsEmpty {) ; } 

virtual void Serialize (CArchive& ar) ; 

public : 

CBubbleListNotifyObj m_NotifyObj ; 

} ' 

#endif // SPRITELST 
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// 
// 
// 
// 
// 
// 
// 
// 



Information Technology Institute 
UNI CHAT INC 



CDIB 



(C) Programmed by Kim 



#include " stdaf x . h" 
#include "DIB . h" 
#include "DIBPal .h" 

#include <lzexpand-h> 

#ifdef _VICTOR 

#include <vicdefs.h> // link Vic32ms.lib 
#endif 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE 

//#if ! defined (KSM_REPORT) 
// #define KSM_REPORT 

//#endif 
#endif 



///////////////////////////////////////////////////////////////////////////// 
/ / CDIB 

IMPLEMENT_SERIAL(CDIB, CObject, 0 /* Schema number */) 

// Create a small DIB here so m_pBMI and m pBits are always valid 
CDIB:: CDIB {) 



CDIB: :-CDIB() 
{ 

// Free the memory, 
if {m_jpBMI) 

free (m_jpBMI) ; 
if (m_bMyBits && m_pBits) 

free {m_j>Bits) ; 



CDIB& CDIB : :operator= (CDIB& rhs) 



m_pBMI = NULL; 

rn_pBits = NULL; 

m_bMyB its = TRUE ; 



m_bMapColorsDone = FALSE; 
m^strName . Empty ( ) ; 



Create (16, 16) ; 



} 



{ 



if (this == &rhs) 

return *this; 



ASSERT (rhs .m_pBMI) ; 
ASSERT (rhs .m_pBits) ; 



A-808 



UC2Ani\Dibxpp 



BITMAPINFOHEADER* pBI = (BITMAPINFOHEADER* ) rhs . m__pBMI ; 

int nBMISize = sizeof (BITMAPINFOHEADER) + 256 * sizeof (RGBQUAD) ; 
m_pBMI = (BITMAPINFO*)malloc (nBMISize) ; 
: : CopyMemory (m__pBMI , rhs.m_pBMI, nBMISize); 

int iBitsSize - CountBitsSize (pBI- >biWidth , pBI - >biHeight ) ; 
m_j)Bits = (BYTE* ) malloc (iBitsSize) ; 
: : CopyMemory {m_pBits , rhs . m__pBits , iBitsSize); 

m__bMyB its - rhs . m_bMyB i t s ; 

m_bMapColorsDone - rhs , m_bMapColorsDone ; 

m_strName = rhs . m__strName ; 
return *this; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CDIB serialization 

// We don't support this yet. 
void CDIB :: Serialize (CArchive& ar) 

{ 

ar . Flush ( ) 

CFile* fp = ar-GetFile 0 ; 
if (ar . IsStoring { ) ) 
Save (fp) ; 

else 

Load ( f p ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// Private functions 

static BOOL IsWinDIB (const BITMAPINFOHEADER *pBIH) 
{ 

ASSERT (pBIH) ; 

if ( ( (BITMAPCOREHEADER*)pBIH) ->bcSize == sizeof (BITMAPCOREHEADER) ) 

return FALSE; 
return TRUE; 

} 

static int NumDIBColorEntries (BITMAPINFO* pBmpInf o) 

{ 

BITMAPINFOHEADER* pBIH; 
BITMAPCOREHEADER* pBCH; 
int iColors, iBitCount; 

ASSERT (pBmpInfo) ; 

pBIH = & (pBmpInf o->bmiHeader) ; 
pBCH - (BITMAPCOREHEADER*) pBIH; 
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// start off by assuming the color table size from the bi t -per-pixel 

field . 

iBitCount = IsWinDIB (pBIH) ? pBIH- >biBi tCount : pBCH- >bcBi tCount ; 

switch { iBitCount ) 
{ 

case 1: iColors = 2; break 

case 4: iColors - 16; break 

case 8: iColors = 256; break 

default: iColors = 0; break; 

} 

//If this is a Windows DIB, then the color table length is determined 
// by the biClrUsed field if the value in the field is nonzero, 
if (IsWinDIB (pBIH) && (pBIH- >biClrUsed != 0)) 
iColors = pBIH->biClrUsed; 

// BUGFIX 18 Oct 94 NigelT 

// Make sure the value is reasonable since some products 
// will write out more then 256 colors for an 8 bpp DIB!!! 
int iMax - 0; 
switch (iBitCount) 
{ 

case 1: iMax = 2; break; 

case 4: iMax = 16; break; 

case 8: iMax = 256; break; 

default; iMax = 0; break; 

} 

if (iMax) 
{ 

if (iColors > iMax) 
{ 

TRACE ("Invalid color count\n"); 
iColors = iMax; 

} 

} 

return iColors ; 



///////////////////////////////////////////////////////////////////////////// 

// CDIB commands 
#ifdef _DEBUG 

#endif 

// Create a new empty 8bpp DIB with a 256 entry color table. 

BOOL CDIB: : Create (const iWidth, const iHeight, LPCSTR szPalFi leName ) 

// Delete any existing stuff, 
if (m_pBMI) 

free (m_j)BMI) ; 
if (m_bMyBits m_pBits) 

free (mjpBits) ; 

// Allocate memory for the header. 

m_j>BMI = {BITMAPINFO*)malloc (sizeof (BITMAPINFOHEADER) + 256 * 
Sizeof (RGBQUAD) ) ; 

if (lm_pBMI) 



A-810 



UC2Ani\Dib.cpp 



} 



TRACE ("Out of memory for DIB header\n"); 
return FALSE; 

} 

// Allocate memory for the bits (DWORD aligned) . 
int iBitsSize = CountBitsSize ( iwidth, iHeight) ; 
m__pBits = (BYTE*) malloc (iBitsSize) ; 
if ( !m_pBits) 
{ 

TRACEC'Out of memory for DIB bits\n"); 
f ree (m__pBMI ) ; 
m_j)BMI = NULL; 
return FALSE; 

} 

m_bMyBits = TRUE; 
// Fill in the header info. 

BITMAP I NFOHEADER* pBI = (BITMAPINFOHEADER* ) m_j>BMI ; 
pBI->biSize = sizeof (BITMAPINFOHEADER) ; 

pBI->biWidth = iwidth; 

pBI->biHeight = iHeight; 

pBI->biPlanes = 1; 

pBI- >biBitCount = 8; 

pBI- >biCompression = BI_RGB; 

pBI - >biSizeImage = 0; 

pBI- >biXPelsPerMeter = 0; 
pBI->biyPelsPerMeter = 0; 
pBI->biClrUsed = 0; 

pBI- >biClr Important = 0; 

// Create an arbitrary color table (gray scale) . 
if (szPalFileName) 

{ 

LoadPalette (szPalFileName) ; 

} 

else 

{ 

RGBQUAD* prgb = GetClrTabAddress ( ) ; 
for (int i=0; i < 256; i++) 

{ 

prgb- >rgbBlue = prgb- >rgbGreen = prgb->rgbRed = (BYTE) i 

prgb- >rgbRe served ~ 0; 

prgb++; 

} 

} 

// Set all the bits to a known state (black) . 
: : ZeroMemory (m_pBits , iBitsSize) ; 

return TRUE; 



int CDIB: :GetBitsSize 0 const 
{ 

if (!m_pBMI) 

return 0; 

BITMAPINFOHEADER* pBI = (BITMAPINFOHEADER* ) m_j)BMI ; 
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^ return ( ( (pBI- >biWidth + 3) & -3 ) *pBI - >biHeight) ; 

void CDIB: :Clearlmage () 
{ 

if (m_pBits) 
{ 

: rZeroMemory (m_pBits, GetBitsSize ( ) ) ; 

} 

void CDIB: :ClearRect (CRectSc rcClear) 

if ( !m_j)Bits) 

return ; 
int w = rcClear .Width () ; 
int h = rcClear .Height () ; 
// Test for silly cases, 
if (w == 0 I I h == 0) 

return ; 
int xd = rcClear . left ; 
int yd = rcClear. top; 

BYTE* pDest = (BYTE* ) GetPixelAddress (xd , yd + h - 1) ; 
ASSERT (pDest) ; 

// Get the scan line widths of each DIB. 

int iDInc = StorageWidth ( ) ; // Source increment value 

while (h--) // Fill the lines 

{ 

: : ZeroMemory (pDest , w) ; 
pDest += iDInc; 

} 

} 

// Create a CDIB structure from existing header and bits. 

// The DIB won't delete the bits and makes a copy of the heade 

BOOL CDIB: : Create (BITMAPINFO* pBMI, BYTE* pBits) 

ASSERT (pBMI) ; 
ASSERT (pBits) ; 
if (m__pBMI) 

free (m_pBMI) ; 

mj>BMI = (BITMAPINFO*) malloc (sizeof (BITMAPINFOHEADER) + 
256*sizeof (RGBQUAD) ) ; 

ASSERT (m_pBMI) ; 

// Note: This will probably fail for < 256 color headers 
: :CopyMemory (m_pBMI, pBMI, sizeof (BITMAPINFOHEADER) + 
NumDIBColorEntries (pBMI) *sizeof (RGBQUAD) ) ; 

if (m^bMyBits && m_j)Bits) 

free (m_pBits) ; 
m_pBits = pBits; 

m_bMyBits = FALSE; // We can't delete the bits, 
return TRUE; 

} 

// Load a palette from the file and replace existing one 
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BOOL CDIB: :LoadPalette (LPCSTR szPalFi leName ) 

CDIBPal pal; 
PALETTEENTRY PE [2 56] ; 

BOOL bRes = pal . Load (szPalFileName , PE) ; 
SetPaletteEntries (0, 256, PE) ; 

/* 

CStdioFile f ("Palette. txt", CFile : : modeCreate | CFile : : modeWri te I 
CFile: :typeText) ; 

CString str; 

for (int i=0; i < 256; i++) 
{ 

str.Format ("{%d,%d,%d,%d}, // %d\n" , 

PE[i] .peRed, PE [i] .peGreen, PE[i] .peBlue, 

PE [i] .peFlags, i) ; 

f -Writ est ring (str) / 

} 

f .Close () ; 

*/ 

return bRes; 

} 

// Load a DIB from an open file. 

// Soomin Kim made the following BMP variations 

// BMZ : LZ compressed BMP file 

// BM: Excluding palette section from BMP 

// BMC: Compressed BM file 

BOOL CDIB: : Load (CFile* const fp, LPCSTR szPalFi leName , const BOOL bIsLZ 
const DWORD dwFileStart) 

{ 

BOOL bIsPM = FALSE; 
BOOL bIsBMC = FALSE; 
BITMAPINFO* pBmpInfo = NULL; 
BYTE* pBits = NULL; 
UINT hLZFile; 

// Read the file header to get the file size and to find where the bits 
start in the file. 

BITMAPFILEHEADER BmpFileHdr; 
int i Bytes; 

if (bIsLZ) // (BmpFileHdr .bf Type == 0x5a53) // • SZ ' 

hLZFile = : : LZInit (f p->m_hFile) ; 
// long IFileSize = : : LZSeek (hFi le , OL, 2); // points to the end of 

file 

// TRACE ("Compressed BMP: %ld bytes . \n" , IFileSize); 

: :LZSeek (hLZFile, dwFileStart, 0); // seek to beginning of file 
iBytes = :: LZRead (hLZFile , ( char * ) &BmpFileHdr , 
sizeof (BmpFileHdr) ) ; 

} 

else 
{ 

fp->Seek (dwFileStart , CFile :: begin) ; // Rewind 

^ iBytes = fp->Read (&BmpFileHdr , sizeof (BmpFileHdr) ) ; 

if (iBytes 1= sizeof (BmpFileHdr) ) 
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TRACE ( "Failed to read file header\n"); 
goto $ abort; 

f (BmpFileHdr .bf Type == 0x4342) // 'EC 

bIsBMC = TRUE; // No palette 

Ise if (BmpFileHdr .bfType 1= Ox4d42) // ' BM ' 

TRACEC'Not a bitmap file\n"); 
goto $abort; 

// Make a wild guess that the file is in Windows DIB format and read 
the BITMAP INFOHEADER, 

//If the file turns out to be a PM DIB file we'll convert it later 
BITMAPINFOHEADER BmpInfoHdr; 
if (bIsLZ) 

iBytes = : :LZRead (hLZFile, (char* ) &BmpInf oHdr , 
sizeof (BmpInfoHdr) ) ; 
else 

iBytes = f p- >Read ( &BmpInf oHdr , sizeof (BmpInfoHdr) ) ; 
if (iBytes sizeof (BmpInfoHdr) ) 

TRACE ( "Failed to read BITMAP I NFOHEAD ER\n ") ; 
goto $abort; 

} 

// Check that we got a real Windows DIB file. 

if (BmpInfoHdr .biSize != sizeof (BITMAPINFOHEADER) ) 

if (BmpInfoHdr .biSize != sizeof (BITMAPCOREHEADER) ) 

TRACE (" File is not Windows or PM DIB format\n"); 
goto $abort; 

} 

// Set a flag to convert PM file to Win format later. 
bIsPM = TRUE; 

/ / Back up the file pointer and read the BITMAPCOREHEADER 
// and create the BITMAPINFOHEADER from it. 
if (bIsLZ) 

: :LZSeek(hL2File, dwFileStart + sizeof (BITMAPF I LEHEADER) , 
else 

fp->Seek (dwFileStart + sizeof (BITMAPFILEHEADER) , 

CFile : :begin) ; 

BITMAPCOREHEADER BmpCoreHdr; 
if (bIsLZ) 

iBytes = :: LZRead (hLZFile , (char* ) &BmpCoreHdr , 
sizeof (BmpCoreHdr) ) ; 

else 

iBytes = f p- >Read ( 6cBmpCoreHdr , sizeof (BmpCoreHdr) ) ; 
if (iBytes != sizeof (BmpCoreHdr) ) 
{ 



0) 
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TRACE ( "Failed to read BITMAPCOREHEADER\n" ) ; 
goto $abort; 

} 

Bmpinf oHdr . biSize 
Bmpinf oHdr . biwidth 
Bmpinf oHdr . biHeight 
Bmpinf oHdr . biPlanes 
Bmpinf oHdr . biBitConnt 
Bmpinf oHdr . biCompression 
Bmpinf oHdr . biSize Image 
Bmpinf oHdr . biXPelsPerMeter 
Bmpinf oHdr. biYPelsPerMeter 
Bmpinf oHdr . biClrUsed 
Bmpinf oHdr . biClrlmportant 

} 

// Work out how much memory we need for the BITMAPINFO structure, color 

table 

// and then for the bits. Allocate the memory blocks. 

// Copy the Bmpinf oHdr we have so far, and then read in the color table 
from the file. 

int iColors; 

int iColorTableSize ; 

iColors - 
NumDIBColorEntries ( (LPBITMAPINFO) &BmpInf oHdr) ; 

iColorTableSize = iColors * s izeof (RGBQUAD) ; 

// Always allocate enough room for 256 entries. 

int iBISize; 

int iBitsSize; 

iBISize = sizeof (BITMAP INFOHEADER) + 256 * sizeof (RGBQUAD) ; 

iBitsSize = BmpFileHdr . bf Size - BmpFileHdr . bf Of f Bits ; 

// TRACE ("CDIB: : Load ( \ " %s \ " ) size=%ld\n", m_strName, BmpFileHdr . bf Size) ; 

// Allocate the memory for the header. 

pBmpInfo - (LiPBITMAPINFO)malloc (iBISize) ; 
if ( IpBmpInf o) 

{ 

TRACE ("Out of memory for DIB header\n"); 
goto $abort; 

} 

/ / Copy the header we already have . 

: rCopyMemory (pBmpInf o, &BmpInfoHdr, sizeof (BITMAP INFOHEADER) ) ; 

// Now read the color table from the file. 

if (bIsBMC) 

{ 

: : ZeroMemory ( ( (LPBYTE) pBmpInf o) + sizeof (BITMAP INFOHEADER) , 
iColorTableSize) ; 

} 

else 
{ 

if (iblsPM) 
{ 




sizeof (BITMAPINFOHEADER) ; 

= (int) BmpCoreHdr -bcWidth; 

= (int ) BmpCoreHdr .bcHeight ; 

= BmpCoreHdr . bcPlanes ; 
BmpCoreHdr . bcBitCount ; 
BI_RGB; 
0; 
0; 
0; 
0; 
0; 
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// Read the color table from the file, 
if (bIsLZ) 

iBytes = : iLZRead (hLZFile, ( char* ) ( ( (LPBYTE) pBmpInf o) 
+ sizeof ( BITMAP INFOHEADER) ) , iColorTableSi ze ) ; 
else 

iBytes = f p- >Read (( (LPBYTE) pBmp Info) + 
sizeof (BITMAP INFOHEADER) , iColorTableSize ) ; 

if (iBytes 1= iColorTableSize) 
{ 

TRACEC'Failed to read color table\n"); 
goto $abort; 

} 

} 

else 
{ 

// Read each PM color table entry in turn and convert it to 
Win DIB format as we go. 

LPRGBQUAD IpRGB = (LPRGBQUAD) (( LPBYTE) pBmpInfo + 
sizeof (BITMAPINFOHEADER) ) ; 

RGB TRIPLE rgbt ; 

for (int 1=0; i < iColors ; i++) 
{ 

if (bIsLZ) 

iBytes = : : LZRead (hLZFile , (char* ) &rgbt , 

sizeof (RGBTRIPLE) ) ; 

else 

iBytes = fp->Read(&rgbt, sizeof (RGBTRIPLE) ) ; 
if (iBytes != sizeof (RGBTRIPLE) ) 
{ 

TRACE ( "Failed to read RGBTRIPLE\n"' ) ; 
goto $abort; 

} 

lpRGB->rgbBlue = rgbt . rgbtBlue ; 

IpRGB- >rgbGreen = rgbt . rgbtGreen ; 
IpRGB - >rgbRed = rgbt - rgbtRed ; 

IpRGB- >rgbRe served = 0; 
IpRGB ++; 

} 

} 

} 

// Allocate the memory for the bits and read the bits from the file. 

pBits = (BYTE*)malloc (iBitsSize) ; 

if (IpBits) 

{ 

TRACE ("Out of memory for DIB bits\n"); 
goto $abort; 

} 

// Seek to the bits in the file, 
if (bIsLZ) 

: ;LZSeek(hLZFile, dwFileStart + BmpFileHdr . bf Of f Bits , 0); 

else 

fp->Seek (dwFileStart + BmpFileHdr . bf Of f Bits , CFile :: begin ) ; 
// Read the bits. 
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if (bIsLZ) 

iBytes = : : LZRead (hLZFile , ( char* ) pBi t s , iBitsSize) ; 

else 

iBytes = f p- >Read (pBit s , iBitsSize); 
if (iBytes 1= iBitsSize) 
{ 

TRACE ("Failed to read bits\n"); 
goto $ abort; 

} 

// Everything went OK. 
if (bIsLZ) 

: rLZClose (hLZFile) ; 
if (m_jpBMI) 

free {m_pBMI) ; 
m_j>BMI = pBmpInfo; 
if (m_bMyBits && mj)Bits) 

free (m_pBits) ; 
m_JpBits = pBits; 

m^bMyBits = TRUE; 

if (szPalFileName) // Overload the palette entries with that c 

the specified file 

{ 

^ LoadPalette ( szPalFileName) ; 

return TRUE ; 

$abort : // Something went wrong. 

if (bIsLZ) : :IiZClose (hLZFile) ; 

if (pBmpInfo) f ree (pBmpInf o) ; 

if (pBits) free(pBits); 
return FALSE; 

} 

// Load a DIB from a disk file. 

// If no file name is given, show an Open File dialog to get one. 
// m_strName == "DATASRCO : filename . ext " 

BOOL CDIB: :Load(LPCSTR szFileName, LPCSTR szPalFileName) 

if ((szFileName === NULL) || ( strlen ( szFileWame ) == 0)) 

// Show an Open File dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 

NULL, // No initial file name 

OFN_FILEMUSTEXIST I OFN HIDEREADONLY , 
#ifdef _VICTOR ~ 

"Bitmap 

files|*.DIB;*.BMP;*.BM;*.gif ;*.jpg;*.tif |A11 files ( * . * ) | * . * I I n ) , 
#else 

"Bitmap 

files (* -DIB; * .BM*) I * .DIB; * . BM* |A11 files (* . *) I * . * I I ") ; 
#endif // _VICTOR 

if (dlg.DoModal 0 == IDOK) 

m_strName = dig . GetPathName ( ) ; 

else 
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return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
m_strName - szFileName; 

} 

// Parse Data Source 

// tileOOOOl tcityOOO .bm 

int IDS = m_strName . Find ( ' | ' ) ; 

if (iDS > 0) 

{ 

int nLen = nn_strName . GetLength ( ) ; 
CString strDS (m_strName . Left { iDS) ) ; 
strDS ".uds"; 

CString strBM (m_strName . Right (nLen - (iDS + 1))); 
return LoadDataSource (strDS , strBM, szPalFileName) ; 

} 

BOOL bResult; 
#ifdef ^VICTOR 

int nFT = GetBitmapFileType (m_strName) ; 
if ( (nFT FILE_BMP) | | (nFT == FILE_BM) | | 

(nFT FILE_BM2) | | (nFT == FILE_BMC) ) 

{ 

#endif // ^VICTOR 

// Try to open the file for read access. 
CFile file; 

if ( I f ile , Open (m_strName , CFile :: modeRead [ 
CFile: : shareDenyWrite) ) 

{ 

TRACEl("File Open Failure: %s\n", m_strName) ; 
return FALSE; 

} 

WORD wFileType; 

int iBytes = f ile . Read { &wFileType , sizeof (wFileType) ) ; 

if (iBytes != sizeof (wFileType ) ) 

{ 

TRACE ("Failed to read file\n"); 
file - Close ( ) ; 
return FALSE; 

} 

BOOL bIsLZ = (wFileType == 0x5a53); // ' SZ ' 

bResult = Load(&file, szPalFileName , bIsLZ, OL) ; 
file . Close ( ) ; 
#ifdef _VICTOR 
} 

else 

{ 

imgdes orglmg; // original image 

imgdes cnvlmg; // converted image (24bit color -> 8bit color) 
switch (nFT) 

{ 



A-818 



UC2Ani\Dib.cpp 




case FILE_GIF: 

LoadGIF (m_strMame , &:orgImg) ; 

break; 
case FILjE_TIF: 

LoadTIF (m_strName, &orgImg) ; 

break; 
case FILE_JPG: 

Load JPG (m_strName , &orgImg) ; 

break; 

} 

if (orglmg . bmh->biBitCount != 8) 

{ 

if {CreatelmageS (ficorglmg, &cnvlmg) 1= NO_ERROR) 

AfxMessageBox ( "Image color dithering failure."); 
return FALSE; 

} 

f reeimage (&iorgImg) ; 

bResult = LoadFromlmage ( (LPVOID) cnvlmg.bmh) ; 
f reeimage (&cnvlmg) ; 

} 

else 
{ 

bResult - LoadFromlmage ( (LPVOID) orglmg.bmh) ; 
f reeimage (&orgImg) ; 

} 

} 

#endif // _VlCTOR 

return bResult; 

} 

BOOL CDIB: :LoadDataSource (LPCSTR szSrcFileName , 

LPCSTR szFileName, 
^ LPCSTR szPalFileName) 

BOOL bResult; 

// Try to open the file for read access. 
CFile file; 

if { !f ile.Open (szSrcFileName, CFile: rmodeRead | CFile: : shareDenyWri te) ) 

TRACEl{"File Open Failure: %s\n", szSrcFileName) ; 
return FALSE; 

} 

BOOL bIsLZ = FALSE; 
UINT hLZFile; 
DATASOURCEFILEHEADER dsFH; 

int iBytes = file .Read (&dsFH, sizeof (dsFH) ) ; 

if (iBytes != sizeof (dsFH) ) 

{ 

TRACE ( "Failed to read file header\n"); 
file. Close () ; 
return FALSE; 

} 



A-819 



UC2Ani\Dib.cpp 



file 



if (dsFH.wType 0x5a53) // 'S2' - test for compression 

bIsLZ = TRUE; 

hL2File = : :LZInit (f ile .m_hFile) ; 
// long iFileSize = : : LZSeek (hFile , OL, 2); // points to the end 

// TRACE ("Compressed BMP: %ld bytes. \n", iFileSize) ; 

^ : :LZRead(hL2File, (char*) &dsFH, sizeof (dsFH) ) ; //read again 

else if (dsFH.wType != 0x5344) // • DS ' 

TRACE ( "Wrong f iletype . \n" ) ; 
file .Close () ; 
return FALSE; 

} 

// TRACE("Data Source F. Size: %ld\n", dsFH . dwFileSize ) ; 
// TRACE("Data Source Entries: %d\n", dsFH . wNumEntries ) ; 

DATASOURCEENTRY* aDSE = new DATASOURCEENTRY [dsFH . wNumEn tries ] ; 

if (bIsLZ) 

: iliZRead (hLZFile, (char*)aDSE, sizeof (DATASOURCEENTRY) * 
dsFH . wNumEntries) ; 
else 

file. Read (aDSE, sizeof (DATASOURCEENTRY) * dsFH . wNumEntries ) ; 

for (WORD i=0; i < dsFH . wNumEntries ; i++) 
{ 

if (Istrcmpi (aDSE [i] .id, szFileName) == 0) // matching! 

// if (bIsLZ) 

// : :L2Close (hLZFile) ; 

bResult = Load (&f ile, szPalFileName , bIsLZ, 

aDSE[i] .dwOffset) ; 

delete [] aDSE; 
f ile . Close ( ) ; 
return bResult; 

} 

} 

TRACE ("CDIB: %s not found in data source %s", szFileName 
szSrcFileName) ; 

delete [] aDSE; 
file. Close () ; 
return FALSE; 

} 

// Load a DIB from a resource id. 
BOOL CDIB :: Load (const WORD wResid) 
{ 

ASSERT (wResid) ; 

HINSTANCE hinst = Af xGetResourceHandle ( ) ; 

HRSRC hrsrc = : : FindResource (hInst , MAKEINTRESOURCE (wResid) , "DIB")- 
if ( ! hrsrc) 

{ 

TRACE1("DIB resource not found (HRSRC : %x) " , hrsrc); 
return FALSE; 

} 
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HGLOBAL hg = : : LoadResource (hins t , hrsrc) ; 

if (!hg) 

( 

TRACEl ( "Failed to load DIB resource {HGLOBAL : %x) " , hg) ; 
return FALSE; 

} 

m_strName . Format ( "RES : %d" , wResid) ; 

BYTE* pRes = (BYTE*) : : LockResource (hg) ; 
ASSERT (pRes) ; 

int iSize ^ :: Sizeof Resource (hinst , hrsrc) ; 

// Mark the resource pages as read/write so the mmioOpen won't fail 
DWORD dwOldProt; 

BOOL b = : : VirtualProtect (pRes, iSize, PAGE_READWRITE , &dw01dProt) ; 
ASSERT (b) ; 

// Now create the CDIB object. We will create a new header from the 

data 

// in the resource image and copy the bits from the resource to a new 
block of memory, 

// We can't use the resource image as-is because we might want to map 
the DIB colors 

// and the resource memory is write protected in Win32. 

BITMAPFILEHEADER* pFileHdr = (BITMAPFILEHEADER* ) pRes ; 

ASSERT (pFileHdr->bf Type == Ox4D42); // BM file 

BITMAPINFOHEADER* pInfoHdr = (BITMAPINFOHEADHR* ) (pRes + 
sizeof (BITMAPFILEHEADER) ) ; 

ASSERT (pInfoHdr->biSize == sizeof (BXTMAPINFOHEADER) ) ; // must be a Win 

DIB 

BYTE* pBits = pRes + pFileHdr- >bf Of f Bits ; 

BOOL bResult = Create ( (BITMAPINFO* ) pInfoHdr , pBits) ; 

return bResult; 

// Note: not required to unlock or free the resource in Win32 

} 

// Draw the DIB to a given DC. 
void CDIB :: Draw (CDC* pDC, const x, const y) 
{ 

: :StretchDIBits (pDC->GetSaf eHdc () , 

X, y, DibWidthO, DibHeightO, 

width, height 

0, 0, DibWidthO, DibHeightO, 

hei ght 

GetBitsAddress () , 
GetBitmapInf oAddress () , 
DIB_RGB_COLORS , 
SRCCOPY) ; 
operation code (ROP) 

} 

// Draw a portion of source DIB to the destination 
void CDIB :: Draw (CDC* pDC, const xd, const yd, const w, int h, const xs, const 
ys) 
{ 

: :StretchDIBits (pDC- >GetSaf eHdc () , 



// Destination x, y, 

// Source x, y, width, 

// Pointer to bits 
// BITMAPINFO 

// Options 

// Raster 
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y, width, height 



xd, yd, w, h. 



// Destination x, 

// Source x, y, width, height 
// Pointer to bits 
// BITMAPINFO 

// Options 
// Raster 



xs , DibHeight ( ) - (ys+h) , w, 

GetBitsAddress () , 

GetBitmapInf oAddress () , 

DIB_RGB_COLORS , 

SRCCOPY) ; 
operation code (ROP) 
} 

// Tile 

void CDIB : :Tile (CDC* pDC, const xO , const yO, CRectfi: rcClient) 

( 

for (int y=yO ; y <^ rcClient . bottom; y += DibHeightO) 

for {int x=xO; x rcClient . right ; x += DibWidthO) 
Draw(pDC, x, y) ; 



// Get the number of color table entries, 
int CDIB : :GetNumClrEntries ( ) const 



return NumDIBColorEntries (m^jpBMI) ; 



// map the colors in this DIB to the identity palette specified 

// NOTE: This assumes all CDIB objects have 256 color table entries. 

BOOL CDIB : rMapColorsToPalette (const CPalette* pPal) 

{ 

if (m_bMapColorsDone) 

return TRUE; 
if (!pPal) 
{ 

TRACEC'No palette to map to\n"); 
return FALSE; 

} 

ASSERT (m_j)BMI) ; 

ASSERT (m_j>BMI->bmiHeader .biBitCount == 8); 
ASSERT (m_pBits) ; 

LPRGBQUAD pctThis = GetClrTabAddress () ; // We can redirect the 
palette address 

// with 

SetClrTabAddress (...) function. 
ASSERT (pctThis) ; 

// Build an index translation table to map this DiBs colors to those of 
the reference DIB . 

BYTE imap [256] ; 
#ifdef _DEBUG 

int iChanged =0; // For debugging only 

#endif 

for (int i=0; i < 256; i++) 

{ 

imapCi] = (BYTE) pPal- >GetNearestPaletteIndex ( 

RGB (pctThis ->rgbRed, 

pctThis ->rgbGreen, 
pctThis ->rgbBlue) ) ; 

pctThis++; 
#ifdef DEBUG 



A-822 



UC2Ani\Dib.cpp 



if (imap[i] i) 

iChanged++; // For debugging 

} 

// TRACE ( "CDIB : :MapColorsToPalette changed %d colors, iChanged) ; 
#else 

} 

#endif 

// Now map the DIB bits. 

BYTE* pBits = (BYTE*)GetBitsAddress () ; 
int iSize = StorageWidth ( ) * DibHeightO; 
while (iSize--) 

{ 

*pBits = imap [*pBits] ; 
pBits++ ; 

} 

// Now reset the DIB color table so that its RGB values match those in 
the palette . 

PALETTEENTRY pe [2 56] ; 

pPal- >GetPaletteEntries (0 , 256, pe) ; 
pctThis = GetClrTabAddress ( ) ; 
for (i=0; i < 256; i++) 

{ 

pctThis - >rgbRed = pe[i].peRed; 

pctThis - >rgbGreen = pe [i] . peGreen ; 
pctThis- >rgbBlue = pe [i ] . peBlue ; 
pctThis ++ ; 

} 

// Mow say all the colors are in use 
m_pBMI->bmiHeader .biClrUsed = 256; 
m_bMapColorsDone = TRUE; 
return TRUE; 

} 

// Get a pointer to a pixel. 

// NOTE: DIB scan lines are DWORD aligned. 

// The scan line storage width may be wider than the scan line image width 
// so calc the storage width by rounding the image width to the next highest 
DWORD value. 

void* CDIB : rGetPixelAddress (const x, const y) const 

{ 

// Note: This version deals only with 8 bpp DIBs . 

ASSERT (m_pBMI->bmiHeader.biBitCount == 8) ; 

// Make sure it's in range and if it isn't return zero. 

if ( (x >= DibWidthO) || (y >= DibHeightO)) 

{ 

TRACE ( "Attempt to get out of range pixel address\n") ; 
return NULL; 

} 

// Calculate the scan line storage width, 
int iWidth = StorageWidth () ; 

return m_j)Bits + (DibHeight ( ) -y- 1) * iWidth + x; 



/ / Get the bounding rectangle . 

void CDIB : :GetRect (CRectSc rect) const 

{ 
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rect.left = rect . top ^ 0; 
rect. right = DibWidthO; 
rect. bottom = DibHeightO; 

// Copy a rectangle of the DIB to another DIB. 
/ / Note : We only support 8bpp DIBs here . 

void CDIB: :CopyBits (CDIB* pdibDest, const xd, const yd, 

const w, int h, const xs, const ys, const COLORREF 

clrTrans , 

^ const WORD wImOp) 

ASSERT (m_pBMI->bmiHeader.biBitCount 8); 
ASSERT (pdibDest) ; 

WORD opacity = wImOp & OPACITY_MASK; 
// Test for silly cases. 

if (!w I I Ih I I (opacity == OPACITY_0) ) 
return; 

BOOL bMirror = wImOp & IMAGE_FLIP; 

BOOL bVT ^ wImOp & IMAGE_VERTICAL/ // Vertical 

Transformation 

// Get pointers to the start points in the source and destination DIBs. 
// Note that the start points will be the bottom-left corner of the 

// because the scan lines are reversed in memory. 
BYTE* pSrc = {BYTE*)GetPixelAddress (xs, ys+h-1); 
ASSERT (pSrc) ; 

BYTE* pDest = (BYTE* ) pdibDest - >GetPixelAddress (xd, (bVT) ? yd : (yd+h- 
ASSERT (pDest) ; 



DIBs 



1) ) ; 



// Get the scan line widths of each DIB. 

int iScanS = StorageWidth () / 

int iScanD = pdibDest - >StorageWidth () / 

int iSInc = bMirror ? iScanS : (iScanS - w) ; // Source increment value 
mt iDInc = bVT ? (-iScanD - w) : (iScanD - w) ; // Destination 
increment value 

int iCount; 
BYTE pixel; 

if (wImOp & NO_COLORKEY) // opacity == OPACITY_100) 

if (bMirror) 
{ 

while (h--) // Copy the lines 
{ 

iCount = w; // Number of pixels to scan. 

pSrc += w; 
while (iCount--) 
{ 

pixel = * (--pSrc) ; 

*pDest++ = pixel; 

} 

pSrc += iSInc; 
pDest += iDInc ; 
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else // 'Mirror 



} 



while (h--) // Copy the lines 

{ 

: : CopyMemory (pDest , pSrc, w) ; 
pSrc += iScanS; 
if (bVT) 

pDest -= iScanD; 

else 

pDest += iScanD; 

} 



} 

else // Use Colorkey 

{ 



definition. 



// Copy lines with transparency. 

// Note: We accept only a PALETTEINDEX description for the color 

ASSERT ( (clrTrans & OxFFOOOOOO) 0x01000000); 
BYTE bTransClr = LOB YTE (LOWORD (clrTrans) ) ; 



if (opacity 
{ 



OPACITY 100) 



if (bMirror) 

{ 

while (h--) 

{ 

i Count = w; 
pSrc +- w; 
while (iCount--) 

{ 

pixel = * ( - -pSrc) 
was THE BUG!!! 22:30 Oct 12 Sat '96 at ImKwang 



// Number of pixels to scan. 



// *pSrc- 



transparent . 



} 



// Copy pixel only if it isn't 

if (pixel ! bTransClr) *pDest + + = pixel; 
else pDest++; 

} 

// Move on to the next line. 
pSrc += iSInc; 
pDest +- iDInc; 



} 

else // !bMirror 

{ 

while (h--) 



{ 



iCount = w; // Number of pixels to scan, 
while (iCount--) 



{ 



transparent . 



pixel = *pSrc++; 

// Copy pixel only if it isn't 

if (pixel bTransClr) *pDest++ = pixel; 
else pDe s t + + ; 
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} 

// Move on to the next line. 
pSrc += iSInc ; 
pDest += iDInc ; 



} 



} 

else if (opacity == OPACITY 75) 
{ 



0,2,1,3,0, 



transparent . 
bTransClr) ) 



transparent . 
bTransClr) ) 



int r; 
int d=4 ; 

if (bMirror) 

{ 



// 3/4 



while (h--) 
{ 

iCount 



W; 

r = h % d; 

if (r=-l) 

r = 2; 

else if (r=^2) 
r = 1; 

pSrc += W; 

while (iCount--) 

{ 



// Number of pixels to scan. 
// 0,1,2,3,0,... => 



pixel = * (--pSrc) ; 

// Copy pixel only if it isn't 

if ((iCount % d != r) && (pixel l-. 

*pDest++ = pixel; 



else 



pDest++ ; 



} 



} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc; 



} 

else // IbMirror 

{ 

while (h--) 

{ 

iCount = w; 
r = h % d; 
if (r==l) 

r = 2 ; 
else if (r==2) 

r - 1; 
while (iCount--) 



// Number of pixels to scan. 



{ 



pixel = *pSrc++; 

// Copy pixel only if it isn't 

if ((iCount % d != r) && (pixel !: 
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} 

} 

else // 

{ 



else ' 



*pDest++ = pixel ; 



pDest++ ; 

} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc; 



! (OPACITY^lOO, OPACITY 75) 



mt r; 
int d; 



dif f erent 



1 ine 

transparent . 
bTransClr) ) 



switch (opacity) 

{ 

case OPACITY_12 
case OPACITY_2 5 
case OPACITY_5 0 
default : 
} 



d 
d 



4; 
2; 



d = 2; 



break; 
break; 



// 
// 
// 



break; 



1/64 paint 

1/4 

1/2 



if (bMirror) 

{ 

while (h--) 

{ 

iCount = w; // Number of pixels to scan. 

r = h % d; // Since adjacent lines should be 

pSrc += w; 
while (iCount--) 
{ 

if ((opacity != OPACITY_50) && (r != 0)) 

pSrc -= ( iCount + 1) ; 
pDest +^ (iCount+1) ; 

break; // skip this scan 

} 

pixel = * ( - -pSrc) ; 

// Copy pixel only if it isn't 

if ({iCount % d === r) && (pixel ! = 

*pDest++ = pixel; 



else 



pDest++ ; 



} 



} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc ; 



} 

else // "Mirror 

{ 

while (h--) 
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// Number of pixels to scan. 



decreased in while statement 



line 



transparent . 
bTransClr) ) 



i Count = w; 
r = h % d; 
while (iCount--) 
{ 

if ((opacity i= OPACITY__50) && (r != 0)) 
pSrc (iCount+1); // since 1 

pDest += (iCount+1) ; 

break; // skip this scan 

} 

pixel = *pSrc++; 

// Copy pixel only if it isn't 
if ( (iCount % d === r) && (pixel ! = 
*pDest++ = pixel ; 



else 



pDest++; 



} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc; 



} 



} 



#ifdef KSM_REPORT 

static int D_CopyBitsCount 0; 

TRACE3("CDIB: :CopyBits(%d,%d)=%d\n", w, h, ++D CopyBitsCount) - 
#endif ~ ' 

} 

// Save a DIB to a disk file. 

// This is somewhat simplistic because we only deal with 256 color DIBs 

// and we always write a 256 color table. 

BOOL CDIB: :Save (CFile* const fp, const BOOL bPalette) 



BITMAPFILEHEADER bfh; 

// Construct the file header. 

bfh.bfType = (bPalette) ? 0x4D42 : 0x4342; // ' BM ' or 'BC 
bfh.bfSize = 

sizeof (BITMAPFILEHEADER) + 

sizeof (BITMAPINFOHEADER) + 

StorageWidth 0 * DibHeightO; 
if (bPalette) 

bfh.bfSize += 256 * sizeof (RGBQUAD) ; 
bfh.bfReservedl = 0; 
bfh.bfReserved2 = 0; 

bfh.bfOffBits = sizeof (BITMAPFILEHEADER) + sizeof (BITMAPINFOHEADER) - 
if (bPalette) 

bfh.bfOffBits += 256 * sizeof (RGBQUAD) ; 



// Write the file header. 
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int iSize = sizeof (bf h) ; 
TRY 

{ 

^ fp->Write (&bfh, iSize) ; 

CATCH (CFileException, e) 
{ 

TRACEC'Failed to write file header"); 
return FALSE; 
} END_CATCH 

// Write the BITMAPINFO structure. 

// Note: we assume that there are always 256 colors in the color table 
ASSERT (m_pBMI) ; 

iSize = sizeof (BITMAP I NFOHEADER) ; 
if (bPalette) 

iSize 256 * sizeof (RGBQUAD) ; 

TRY 
{ 

^ fp->Write (m_pBMI, iSize) ; 

CATCH (CFileException, e) 
{ 

TRACEC'Failed to write BITMAPINFO"); 
return FALSE; 
} END_CATCH 

// Write the bits. 

iSize = StorageWidthO * DibHeight () ; 
TRY 

{ 

fp->Write (m oBits , iSize) ; 

} 

CATCH (CFileException, e) 

TRACEC'Failed to write bits"); 
return FALSE; 
} END_CATCH 

return TRUE; 



} 

// Save a DIB to a disk file. If no file name is given, show a File Save 
dialog to get one. 

BOOL CDIB: :Save (LPCSTR szFileName) 
{ 

CString strFile; 

if ((szFileName == NULL) || (strlen (szFileName) == O) ) 

// Show a File Save dialog to get the name. 

CFileDialog dig (FALSE, // Save 

NULL, // No default extension 

m_strName, // No initial file name 

OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY , 
"Image files 

(* .DIB; * .BM*) I *.DIB;*.BM* |A11 files (*.*))*.* | | n ) . 
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if (dlg.DoModal () IDOK) 

{ 

strFile = dig . GetPathName ( ) ; 

} 

else 

{ 

return FALSE; 

} 

} 

else 
{ 

// Copy the supplied file path. 
StrFile = szFileName; 

} 

// Try to open the file for write access. 
CFile file; 

if ( !file.Open(strFile, CFile :: modeReadWrite | CFile :: modeC 
CFile: :shareExclusive) ) 
{ 

AfxMessageBox ( "Failed to open file"); 
return FALSE; 

} 



BOOL bResult = Save(&file, (GetFileType ( strFile ) != FILE BM) ) ; 
file . Close ( ) ; ~ ' 

if (IbResult) 

AfxMessageBox ( "Failed to save file"); 
return bResult; 



CDIB: :BITMAP_FILE_TYPE CDIB : : GetFi leType ( LPCSTR szFile) 



char* p = strrchr {szFile, '.'); 

if (p) 

{ 

P++; 

if (Istrcmpi (p, "BM") == 0) 

{ 

switch (toupper (p [2] ) ) 



// .extension 



// BMP, BMZ, BMC, 



{ 



case NULL: 
case ' 2 ' : 
case ' C ' : 
default : 

} 



return FILE_BM; 
return FILE_BM2 
return FILE_BMC 
return FILE BMP 



// 



} 

if (Istrcmpi (p, "GIF") 0) 

return FILE_GIF; 
if (Istrcmpi (p, "TIF") == 0) 

return FILE_TIF; 
if (Istrcmpi (p, "JPG") === 0) 

return FILE JPG; 

} 

char szMsg [256] ; 

wsprintf (szMsg, "Unrecognized bitmap file type - \"%s\"", szFile) 
AfxMessageBox (szMsg) ; 
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return FILE^NONE; 

} 

#ifdef _VICTOR 

1 1 1 1 11 1 1 n 1 1 / / 1 11 1/ 1/ 1 11 1/ 11 1 / / 1 / 1 1 / / 11 1 1 n u I // 1 / 1 / 1 / 1 / 1 1 1 1 / 11 / 1 / f n 1 11 / 1 1 1 1 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

I / Victor 

// Load a DIB from an open file. 
BOOL CDIB : : LoadFromlmage (LPVOID pimg) 
{ 

BYTE* pSrc = (BYTE*)pImg; 

// Work out how much memory we need for the BITMAPINFO structure, color 

table 

// and then for the bits. Allocate the memory blocks. 
// Always allocate enough room for 256 entries. 
// Allocate the memory for the header - 

BITMAPINFO* pBmpInfo = (LPBITMAPINFO) malloc ( sizeof (BITMAPINFOHEADER) + 
256 * sizeof (RGBQUAD) ) ; 
if ( ! pBmpInf o) 

{ 

TRACE ("Out of memory for DIB header"); 
return FALSE; 

} 

// Copy the header 

: : CopyMemory (pBmpInf o, pSrc, sizeof (BITMAPIMFOHEADER) ) ; 
pSrc += sizeof (BITMAPINFOHEADER) ; 

int iBitsSize = pBmpInf o- >bmiHeader . biSizelmage ; 

// Copy the BmpInfoHdr we have so far, and then read in the color table 
from the file. 

int iColorTableSize = NumDIBColorEntries (pBmpInfo) * 

sizeof (RGBQUAD) ; 

// Read the color table from the file. 

: :CopyMemory ( ( (LPBYTE) pBmpInfo) + sizeof (BITMAPINFOHEADER) , pSrc, 
iColorTableSize) ; 

pSrc += iColorTableSize; 

// Allocate the memory for the bits and read the bits from the file. 
BYTE* pBits = (BYTE*) malloc (iBitsSize) ; 
if (IpBits) 
{ 

TRACE("Out of memory for DIB bits"); 
if (pBmpInfo) 

free (pBmpInfo) ; 
return FALSE; 

} 

// Read the bits. 

: : CopyMemory (pBits , pSrc, iBitsSize); 

// Everything went OK. 
if (m_pBMI) 

free (m_j>BMI ) / 
m_j>BMI = pBmpInfo ; 
if (m_bMyBits && m__pBits) 
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free (m_pBits) ; 
m_pBits = pBits; 

m_bMyB its = TRUE ; 
return TRUE; 



int CDIB : :LoadGIF (LPCSTR fname, imgdes* image) 

// Get info on the file we're to load 
GifData gdat; 
CString str; 

int rcode = gif info ( (char*) f name , &gdat) ; 
if (rcode 1= NO ERROR) // Fill structure 
{ 

str. Format ("Error in reading %s", fname) ; 
AfxMes sage Box (str) ; 
return rcode ; 
} // Allocate space for an 8-bit image 

rcode = allocimage ( image , gdat. width, gdat, length, gdat . vbitcount ) 

if (rcode != NO_ERROR) 

{ 

str . Format ( "Not enough memory to load %s", fname); 
Af xMessageBox ( str ) ; 
return rcode; 

} 

/ / Load image 

rcode = loadgif (fname , image); 
if (rcode != NO_ERROR) 

{ 

freeimage (image) ; // Free image on error 
str .Format ("Could not load %s", fname); 
AfxMessageBox (str ) ; 

} 

return rcode; 

} 

int CDIB: :LoadTIF (LPCSTR fname, imgdes* image) 

// Get info on the file we're to load 
TiffData tdat; 
CString str; 

int rcode = tiff info ( (char* ) fname , ttdat) ; 
if (rcode != NO_ERROR) // Fill structure 
{ 

str. Format ("Error in reading %s", fname); 
AfxMessageBox (str) ; 
return rcode; 

} 

// Allocate space for an image 

rcode = allocimage (image , tdat. width, tdat. length, tdat .vbitcount ) 
if (rcode != NO_ERROR) 

{ 

str . Format ( "Not enough memory to load %s", fname); 
AfxMessageBox { str ) ; 
return rcode; 

} 

rcode = loadtif (fname, image); 
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if (rcode != NO_ERROR) // Free image on error 

{ 

freeimage ( image) ; 

str . Format { "Could not load %s", fname) ; 
Af xMessageBox (str) ; 

} 

return rcode; 

} 

int CDIB : : LoadJPG (LPCSTR fname, imgdes* image) 

{ 

// Get info on the file we're to load 
JpegData jdat; 
CString str; 

int rcode = jpeginfo (fname , ficjdat) ; 

if (rcode 1= NO__ERROR) // Fill structure 

{ 

str . Format ( "Error in reading %s", fname); 
Af XMessageBox (str) ; 
return rcode; 

} 

// Allocate space for an image 

rcode = allocimage (image , ( int ) j dat . width, ( int ) j dat . length , 
jdat .vbit count ) ; 

if {rcode != NO_ERROR) 

{ 

str . Format ( "Not enough memory to load %s", fname); 
Af xMessageBox (str) ; 
return rcode; 

} 

/ / Load image 

rcode = loadjpg { (char*) fname , image); 

if {rcode ! NO_ERROR) 

{ 

freeimage (image) ; // Free image on error 
str . Format ( "Could not load %s", fname); 
Af xMessageBox (str) ; 

} 

return rcode; 

} 

// Source image will remain intact. 

// Destination image should be a pointer to an imgdes object. 

// You should call freeimage (desimg) on success 

int CDIB :: CreatelmageS (imgdes* srcimg, imgdes* desimg) 

{ 

int rcode ; 

//To view the entire image, use a temporary image descriptor 
// and set the image area to the entire image 
imgdes timage; 

copy imgdes (srcimg, &timage) ; 
setimagearea {&timage, 0, 0, 

(unsigned) timage . bmh- >biwidth - l, 

(unsigned) timage . bmh->biHeight - 1); 

// If we're displaying a 24 -bit image on an 8 -bit 

// display adapter, create a temporary 8 -bit image for display 
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if (srcimg->bmh- >biBitCount 24) 
{ 

rcode = allocimage (desimg , { int ) timage . bmh - >biWidth, 
(int ) t image .bmh->biHeight , 8); 

if (rcode == NO ERROR) 
{ 

// Quick dither representation of 24 -bit image 
// (Or use colorscatter) 
// rcode = colordither ( &t image , desimg, COLORDITHER256) ; 

rcode = convertrgbtopal (256 , &:timage, desimg) ; 
//If error, free allocated memory 
if (rcode != NO_ERROR) 

freeimage (desimg) ; 

} ^ 

else 

copyimgdes (&timage, desimg) ; 
return rcode; 

} 

#endif // _VICTOR 

/* 

void CDIB : :ReplaceColor (const int nl , const RGBQUAD& rgbQ) 
ASSERT (m_pBMI) ; 

ASSERT (m_jpBMI->bmiHeader.biBitCount == 8); 
ASSERT (m_pBi ts ) ; 

BYTE* pBits = (BYTE*)GetBitsAddress () ; 
int iSize = StorageWidth { ) * DibHeight ( ) ; 
while (iSize--) 

{ 

*pBits = imap [*pBits] / 
pBits++ ; 

} 

LPRGBQUAD pctThis = GetClrTabAddress () ; 

ASSERT (pctThis) ; 

RGBQUAD oc = pctThis [nWhat ] ; 

pctThis [nWhat] = pctThis [nWithj ; 

TRACE ( "CDIB: : ReplaceColor (%d, %d, %d) -> (%d, %d, %d) \n" , 
oc.rgbRed, oc.rgbGreen, oc.rgbBlue, 
pctThis [nWith] .rgbRed, pctThis [nWith] .rgbGreen, 
pctThis [nWith] .rgbBlue) ; 
} 

*/ 

UINT CDIB: :SetPaletteEntries (UINT nStartlndex, UINT nNumEntries, 

const LPPALETTEENTRY 

IpPaletteColors) 
{ 

RGBQUAD* pctThis = GetClrTabAddress () ; 
// : :CopyMemory (pctThis, IpPaletteColors + nStartlndex, nNumEntries * 

sizeof (PALETTEENTRY) ) ; 

//We can't use CopyMemory function, because the byte order of PALETTEENTRY 
(R,G,B, f ) 

// is different with that of RGBQUAD (B,G,R,res). 

// RGBQUAD <- when read from the file (byte order reversed in word) 
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/ / PALETTEENTRY < - in memory 

for (UINT i=0; i < nNumEntries ; i++) 
{ 

int k = nStart Index + i; 

pctThis [k] .rgbRed = IpPaletteColors [i] .peRed; 

pctThis[k] .rgbGreen = IpPaletteColors [i] .peGreen; 

pctThis [k] .rgbBlue = IpPaletteColors [ i ]. peBlue ; 

^ pctThis [k] .rgbReserved = IpPaletteColors [i ]. peFlags ; 

return 0; 

} 



void CDIB: :CopyPaletteEntry (const UINT nDest, const UINT nSrc) 

RGBQUAD* pctThis = GetClrTabAddress ( ) ; 
pctThis [nDest] = pctThis [nSrc] ; 

/* 

UINT CDIB: :SetPaletteEntriesFileIndex (UINT nStartlndex, UINT nNumEntries 

LPPALETTEENTRY IpPaletteColors) 

{ 

RGBQUAD* pctThis = GetClrTabAddress () ; 
// : rCopyMemory (pctThis, IpPaletteColors + nStartlndex, nNumEntries * 

sizeof (PALETTEENTRY) ) ; 

//We can't use CopyMemory function, because the byte order of PALETTEENTRY 
(R,G,B, f ) 

// is different with that of RGBQUAD (B,G,R,res). 
for (UINT i=0; i < nNumEntries; i++) 
{ 

int k = m_imap [nS tart Index + i] ; 

pctThis [k] .rgbRed = IpPaletteColors [i] . peRed; 

pctThis [k] -rgbGreen = IpPaletteColors [i] .peGreen; 

pctThis [k] .rgbBlue ^ IpPaletteColors [i] .peBlue; 

^ pctThis [k] .rgbReserved = IpPaletteColors [i ]. peFlags ; 

return 0 ; 

} 

*/ 

UINT CDIB; :ShiftRGBPercent (UINT nStartlndex, UINT nNumEntries, int nPer) 

RGBQUAD* pctThis = GetClrTabAddres s ( ) ; 
if (nPer < -100) 

nPer = -100; 
float f Factor - (float) nPer / 100; 
for (UINT i=0; i < nNumEntries; i++) 

int k = nStart Index + i; 
int nVal ; 

nVal = pctThis [k] .rgbRed + (int ) (pctThis [k] . rgbRed * f Factor) • 
if (nVal > 255) 

nVal = 255; 
pctThis [k] . rgbRed = nVal; 

nVal = pctThis [k] .rgbGreen + (int ) (pctThis [k] . rgbGreen * 

fFactor) ; 

if (nVal > 255) 

nVal = 255; 
pctThis [k] . rgbGreen = nVal ; 
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nVal = pctThis [k] . rgbBlue + (int ) (pctThis [k] . rgbBlue * fFactor) 
if (nVal > 255) 

nVal = 2 55; 
pctThis [k] . rgbBlue = nVal ; 

} 

return 0 ; 

} 

UINT CDIB : :RotatePalet:teIndex (UINT nStartlndex, UINT nNumEntries, UINT nBy) 
{ 

while (nBy >= nNumEntries) 

nBy ~~ nNumEntries; 
if (nBy == 0) // original state 

return 0; 

RGBQUAD* pctSt = GetClrTabAddress () ; 
pctSt += nStartlndex; 

RGBQUAD* pRGBBuf - new RGBQUAD [nNumEntries ] ; 
int nTotalSize = nNumEntries * sizeof (RGBQUAD) ; 
int nBySize = nBy * sizeof (RGBQUAD) ; 

: : CopyMemory (pRGBBuf + nBy, pctSt, 
nTotalSize - nBySize) ; 

: : CopyMemory (pRGBBuf , pctSt + nNumEntries - nBy, nBySize) ; 

:: CopyMemory (pctSt, pRGBBuf, 
nTotalSize) ; 
delete [] pRGBBuf; 
return 0 ; 

} 

/* 

void CDIB : : SaveResourceName (LPCSTR szPath) 

{ 

if { • szPath) 
return; 

int nLen - Istrlen ( szPath) ; 

char* p = strrchr (szPath, ' \\ ' ) ; // Exclude path 

if (!p) 

return; 

char* q = strrchr ( szPath , ' . ') ; // Exclude extension 

if (q) 

*q = NULL; 

P++; 

m_strName = (char*)p; 

} 

*/ 
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// 

// CDIB: 
// 

// (C) Programmed by Kim, 

// UKICHAT INC 

// Information Technology Institute 

// 

// 

// Nov 25mon '96 Added GIF, TIF, JPG support using Victor Library 

// #include <mmsystem.h> // link winmm.lib 

#ifdef ^VICTOR 

#include <vicdefs.h> // link Vic32ms.lib, runtime Vic32-dll 
#endif 



#ifndef DIB_H 

#define DIB_H 

// "DATASRCO I filename. ext" 

typedef struct tagDATASOURCEFILEHEADER 

{ 

WORD wType; // ' DS ' (0x5344) 

DWORD dwFileSize; 

WORD wNumEntries; // Number of entries 

WORD bcReservedl; 
WORD bcReserved2; 
} DATASOURCEFILEHEADER; 



typedef struct tagDATASOURCEENTRY 

{ 

char id [13]; // org filename (with extension) + NULL 

DWORD dwOffset; // offset to the BITMAPFILEHEADER 
} DATASOURCEENTRY; 



enum IMAGE_OPERATION 
{ 

OPACITY_100 = 0x0000, 

OPACITY_75 = 0x0001, 

OPACITY_50 = 0x0002, 

OPACITY_2 5 = 0x0 004, 

OPACITY_12 = 0x0008, 

OPACITY_0 = 0x0010, 

OPACITY_MASK = OxOOlF, 

IMAGE_FLIP = 0x010 0, 

IMAGE_VERTICAL = 0x0200, 

ORIENT_MASK = OxOFOO, 

NO_COLORKEY = 0x100 0, 

COLORKEY_MASK = OxFOOO, 

DEFAULT_IO = 0x000 0 

}; 



// 100% default 

// 50% 

// 25% 

// 12.5% paint 
// 

// change Mirror state 



// Colorkey 



class AFX_EXT_CLASS CDIB : public CObject 
{ 

DECLARE_SERIAL (CDIB) 
public : 

CDIBO ; 
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// By using virtual destructor, derived classes' destructors can be 
called- . . 

virtual ^CDIB () ; 

CDIB& operator= (CDIB& rhs ) ; 

// Attributes 

BITMAPINFO* GetBitmapInf oAddress ( ) const { return m_pBMI ; } // 

Pointer to bitmap info 

void* GetBitsAddress ( ) const { return m_j>Bits; } 

// Pointer to the bits 

int GetBitsSize ( ) const; 

RGBQUAD* GetClrTabAddress ( ) const // Pointer 

to color table 

{ return (LPRGBQUAD) ( ( {BYTE* ) (m_pBMI) ) + 

sizeof (BITMAPINFOHEADER) ) ; } 

int GetNumClrEntries ( ) const / 

// Number of color table entries 

void* GetPixelAddress (const x, const y) const; 

int GetBitCount ( ) const { return m_jpBMI- 

>bmiHeader - biBitCount ; } 

virtual int GetWidthO const { return DibWidthO; } // Image 

width 

virtual int GetHeightC) const { return DibHeightO; } // Image 

height 

virtual void GetRect (CRect&: rect) const ; 

CString* GetNameO { return &:m_strName; } 

enum BITMAP_FILE_TYPE 

{ 

FILE_NONE, 
FILE_BMP. 

FILE_BM, // without palette table 

FILE_BMZ, // L3 compressed 

FILE_BMC, // L2 compressed without palette table 

FILE_GIF, 

FILE_TIF, 

FILE_JPG 

}; 

BITMAP_FILE_TYPE GetFileType (LPCSTR szFile) ; 

// Operations 

virtual void Serialize (CArchive& ar) ; 

BOOL Create (const iWidth, const iHeight, LPCSTR szPalFileName=NULL) ; 

// Create a new DIB 
BOOL Create (BITMAPINFO* pBMI , BYTE* pBits) ; // Create 

from existing mem 

virtual BOOL Load(CFile* const fp, LPCSTR szPalFileName=NULL, 

const BOOL bIsLZ=FALSE, 

const DWORD dwFileStart^OL) ; // Load 

from file 

virtual BOOL Load (LPCSTR szFileName=NULL, 

LPCSTR szPalFileName=NULL) ; // Load DIB 

from disk file 

virtual BOOL Load (const WORD wResid) ; // 

Load DIB from resource 

BOOL LoadPalette (LPCSTR szPalFileName ) ; 

virtual BOOL Save (LPCSTR szFileName=NULL) ; // Save DIB to 

disk file 
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virtual BOOL 

virtual void 
void 

const xs , const ys) 
void 

virtual BOOL 
virtual void 



Save(CFile* const fp, const BOOL bPalette=TRUE) ; 
// Save to file 

Draw (CDC* pDC, const const y) ; 

Draw (CDC* pDC, const xd, const yd, const w, int h, 

Tile (CDC* pDC, const xO , const yO , CRect& rcClient) ; 
MapColorsToPalette (const CPalette* pPal) ; 
CopyBits (CDIB* pDIB, 

const xd, const yd, const w, int h, 

const xs, const ys , const COLORREF 

clrTrans=0 , 

const WORD wImOp==DEFAULT_IO) ; 
void CopyPaletteEntry (const UINT nDest, const UINT nSrc) ; 
UINT SetPaletteEntries (UINT nStartlndex, UINT nNumEntries, 

const LPPALETTEENTRY 

IpPaletteColors) ; 

UINT ShiftRGBPercent (UINT nStartlndex, UINT nNumEntries, int nPer) ; 
UINT RotatePaletteIndex(UINT nStartlndex, UINT nNumEntries , UINT nBy) ; 
void Clear Image () ; 
void ClearRect (CRect& rcClear) ; 

protected : 

int CountBitsSize (const int nW, const int nH) const 

{ return ( ( (nW +3) & -3) * nH) ; } 
BOOL LoadDataSource (LPCSTR szSrcFileName , 

LPCSTR szFileName, 

LPCSTR szPalFileName=NULL) ; // Load DIB 

from Data Source 

// BOOL SaveDataSource (LPCSTR szSrcFileName=NULL, 

/ / LPCSTR szFileName=NULL) ; 

Save to Data Source 



// 



BITMAPINFO* m_pBMI; // Pointer to BITMAPINFO struct 

BYTE* m _j)Bits; // Pointer to the bits 

BOOL m_bMyBits; // TRUE if DIB owns Bits memory 

BOOL m_bMapColorsDone ; 

CString m_strName; // BMP Filename, resource name 

#ifdef _VICTOR 

// For Victor Library 



BOOL 

int 

int 

int 

int 

#endif // _VlCTOR 



LoadFromlmage (LPVOID pimg) ; 

LoadGIF (LPCSTR fname, imgdes* image) 
LoadTIF (LPCSTR fname, imgdes* image) 
Load JPG (LPCSTR fname, imgdes* image), 
CreatelmageS (imgdes* srcimg, imgdes* desimg) ; 



DibWidth 0 const 



private : 
int 

} 

int DibHeightO const 

>bmiHeader .biHeight ; } 

int StorageWidth ( ) const 

+3) & ~3; } 

}; 



{ return m_pBMI - >bmiHeader . biWidth; 
{ return m_pBMI- 

{ return (m_jpBMI - >bmiHeader .biWidth 
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/ / CBmpUsage 

class AFX_EXT_CLASS CBmpUsage : public CObject 

DECLARE_SERIAL (CBmpUsage) 
public : 

CBmpUsage { ) ; 
-CBmpUsage { ) ; 

void AddRefO; { ++m_nRef; } 

ReleaseO { return (--m_nRef); } 

protected : 

CString m_strName; // Filename 

BITMAPINFO* m_pBMI; // Pointer to BITMAPINFO 

BYTE* m_pBits; // Pointer to the bits 

m_nRef; // Reference Count 



// CBUT : Bitmap Usage Table 
class AFX_EXT CLASS CBUT 

{ 

public : 

CBUT ( ) ; 
-CBUT ( ) ; 

}; 

*/ 

#endif // DIB H 
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// 

// CDIBPal : 

// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 
// UNI CHAT INC 

#include " s tdaf x . h " 
#include "DIBPal . h" 

#ifdef _DEBUG 

#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE 
#endif — ' 

'JJ ' ' / ' ' I ' ' / ^ 1 1 f ' ' I ' ' I / f 1 1 1 1 1 n / 1 / f / / 1 / 1 1 / n / 1 / / / 1 / n 

/ / CDIBPal 

CDIBPal : : CDIBPal ( ) 

{ 

} 



CDIBPal : : -CDIBPal ( ) 

{ 

} 

// Create a palette from the color table in a DIB. 

BOOIi CDIBPal :: Create (CDIB* pDIB) 

{ 

DWORD dwColors = pDIB- >GetNumClrEntries ( ) ; 
// Check the DIB has a color table, 
if { ! dwColors) 
{ 

TRACE ("No color table") ; 
return FALSE; 

} 

// Get a pointer to the RGB quads in the color table. 
RGBQUAD* pRGB = pDIB - >GetClrTabAddress ( ) ; 

// Allocate a log pal and fill it with the color table info 
LOGPALETTE* pPal = (LOGPALETTE* ) mal loc ( s i zeof ( LOGPALETTE) + * dwCol 
sizeof (PALETTEENTRY) ) ; 
if (!pPal) 
{ 

TRACE ("Out of memory for logpal " ) ; 
return FALSE; 

} 

pPal->palVersion = 0x300; // windows 3.0 

pPal->palNumEntries = (WORD) dwColors ; // Table size 

for (DWORD dw==0; dw < dwColors ; dw+ + ) 

pPal->palPalEntry [dw] .peRed = pRGB [dw] . rgbRed; 

pPal->palPalEntry [dw] .peGreen = pRGB [dw] .rgbGreen; 

pPal->palPalEntry tdw] .peBlue = pRGB [dw] .rgbBlue;' 

pPal->palPalEntry [dw] .peFlags =0; 
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} 

BOOL bResult = CreatePalette (pPal ) ; 
free (pPal) ; 
return bResult; 

} 

1 1 1 1 1 1 1 1 1 / 1 1 n 1 1 1 1 1 1 / 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 u n 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II CDIBPal commands 

int CDIBPal : : GetNumColors 0 
{ 

int iColors ^ 0; 

if { IGetObj ect (sizeof (iColors) , &iColors) ) 

{ 

TRACE ( "Failed to get num pal colors"); 
return 0; 

} 

return iColors; 

} 

// bBkgnd: Force Background 

void CDIBPal :: Draw (CDC* pDC, CRectS: rect, const BOOL bBkgnd, const BOOL 
bshowlndex) 

{ 

int iColors - GetNumColors ( ) ; 

CPalette* pOldPal = pDC- >SelectPalette ( this , bBkgnd); 

pDC->RealizePalette ( ) ; 

int i, j, top, left, bottom, right; 

for (j=0, top=0; j<16 && iColors ; top=bottom) 

{ 

bottom = (j+1) * rect. bottom / 16 + 1; 

for (i=0, left=0; i<16 && iColors; i++, left=right) 

{ 

right - (i+1) * rect . right / 16 + 1; 
CBrush br (PALETTE INDEX (j * 16 + i)); 
CBrush* brold = pDC- >SelectObj ect (&br) ; 
pDC->Rectangle (lef t-1, top-1, right, bottom); 
pDC->SelectObject (brold) ; 
if (bshowlndex) 

{ 

CString strldx; 

strldx. Format ( "%0x" , j * 16 + i) ; 
pDC->SetBkMode (TRANSPARENT) ; 

pDC->SetTextColor (PALETTERGB (12 8, 128, 0)); // 

Dark Yellow 

pDC->TextOut (lef t , top, strldx); 

} 

iColors - - ; 

} 

} 

pDC->SelectPalette (pOldPal, FALSE) ,- 

} 

BOOL CDIBPal : : SetSysPalColors () 
{ 

BOOL bResult = FALSE; 

int i, iSysColors, iPalEntries ; 
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HPALETTE hpalOld; 

// Get a screen DC to work with. 
HWND hwndActive - : : GetActiveWindow ( ) ; 
HDC hdcScreen = :: Get DC (hwndActive) ; 
ASSERT (hdcScreen) ; 

// Make sure we are on a palettized device. 

if ( ! ( : iGetDeviceCaps (hdcScreen, RASTERCAPS) & RC_PALETTE) ) 
{ 

TRACE ("Not a palettized device\n"); 
goto abort ; 

} 

// Get the number of system colors and the number of palette 
// entries. Note that on a palletized device the number of 
// colors is the number of guaranteed colors, i.e., the number 
// of reserved system colors . 

iSysColors = :: GetDeviceCaps (hdcScreen , NUMCOLORS) ; 
iPalEntries = : : GetDeviceCaps (hdcScreen, SIZEPALETTE) ; 

// If there are more than 256 colors we are wasting our time, 
if (iSysColors < 0 | | iSysColors > 256) goto abort; 

// Now we force the palette manager to reset its tables so that 
// the next palette to be realized will get its colors in the order 
they are 

// in the logical palette. This is done by changing the number of 
// reserved colors. 

: rSetSystemPaletteUse (hdcScreen, SYSPAL^NOSTATIC) ; 
: : SetSystemPaletteUse (hdcScreen, sySPAL_STATIC) ; 

// Select our palette into the screen DC and realize it so that 
// its colors will be entered into the free slots in the physical 
palette . 

hpalOld = : :SelectPalette (hdcScreen, (HPALETTE) m__hObj ect , // Our hpal 

FALSE) ; 

#ifdef _DEBUG 

UINT nColorsRemap; 

nColorsRemap = :: RealizePalette (hdcScreen) ; 

TRACE ( "CDIBPal : :SetSysPalColors 0 returned %d.\n", nColorsRemap) ; 

#else 

: : RealizePalette (hdcScreen) ; 

#endif 

// Now replace the old palette (but don't realize it) 
:: SelectPalette (hdcScreen, hpalOld, FALSE); 

// The physical palette now has our colors set in place and its own 
// reserved colors at either end. We can grab the lot now. 
PALETTEENTRY pe[256]; 

GetSystemPaletteEntries (hdcScreen, 0, iPalEntries, pe) ; 

// Set the PC_NOCOLLAPSE flag for each of our colors so that the GDI 

// won't merge them. Be careful not to set PC_NOCOLLAPSE for the 

// system color entries so that we won't get multiple copies of these 

// colors in the palette when we realize it. 

for (i =^ 0; i < iSysColors/2 ; i + + ) 
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pe [i] . peFlags = 0; 
for (; i < iPalEntries-iSysColors/2 ; i++) 

pe [i] -peFlags = PC_NOCOLLAPSE; 
for (; i < iPalEntries; i++) 

pe [i] . peFlags = 0; 

// Resize the palette in case it was smaller. 
ResizePalette (iPalEntries) ; 

// Update the palette entries with what is now in the physical palette. 
SetPaletteEntries (0, iPalEntries, pe) ; 
bResult = TRUE; 

abort : 

: -.ReleaseDC (hwndActive, hdcScreen) ; 
return bResult; 

} 

// Load a palette from a named file. 

//To get the PALETTEENTRY only, allocate a memory for it and pass it. 
BOOL CDIBPal: : Load (const char* pszFileName, PALETTEENTRY* pPE) 

{ 

CString strFile; 

if ( (pszFileName == NULL) || (Istrlen (pszFileName) == 0)) 

{ 

// Show an File Open dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 

NULL, // No initial file name 

OFN_FILEMUSTEXIST | OFN_HIDEREADONLY , 
"Palette files ( * . PAL) | * . PAL | All files 

(*.*) |*.*| I ") ; 

if (dlg.DoModal {) == IDOK) 

StrFile = dig . GetPathName 0 ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
StrFile = pszFileName; 

} 

// Try to open the file for read access. 
CFile file; 

if ( 1 file . Open (strFile , CFile :: modeRead | CFile :: shareDenyWrite ) ) 

{ 

StrFile += " not found!"; 
AfxMessageBox (strFile) ; 
return FALSE; 

} 

BOOL bResult = Load(&file, pPE) ; 
file . Close ( ) ; 
if (IbResult) 

AfxMessageBox ( "Failed to load palette file"); 
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return bResult; 

} 

// Load a palette from an open CFile object . 

BOOIi CDIBPal : :Load (CFile* const fp, PALETTEENTRY* pPE) 

{ 

return Load (f p- >m_hFile , pPE) ; 

} 

// Load a palette from an open file handle. 

BOOL CDIBPal :: Load (const UINT hFile, PALETTEENTRY* pPE) 

{ 

MMIOINFO info; 

memset (&inf o , 0, sizeof (info) ) ; 
inf o . adwinf o [0] = hFile; 

HMMIO hmmio = mmioOpen (NULL , &info, MMIO_READ | MMIO^ALLOCBUF) 
if ( ! hmmio) 

{ 

TRACE ( "mmioOpen f ailed\n" ) ; 
return FALSE; 

} 

BOOL bResult = Load (hmmio, pPE) ; 
mmioClose (hmmio, MMIO_FHOPEN) ; 
return bResult; 

} 

// Load a palette from an open MMIO handle. 

BOOL CDIBPal :: Load (const HMMIO hmmio, PALETTEENTRY* pPE) 

{ 

// Check whether it ' s a RIFF PAL file. 
MMCKINFO ckFile; 

ckFile.fccType = mmioFOURCC ( ' P ' , ' A ' , ' L ' , • •); 

if (mmioDescend (hmmio, &ckFile, NULL, MMIO_FINDRIFF) != 0) 

{ 

TRACE ("Not a RIFF or PAL file\n"); 
return FALSE; 

} 

// Find the 'data' chunk. 
MMCKINFO ckChunk; 

ckChunk . ckid = mmioFOURCC { ' d ' , » a ' , ' t • , ' a ' ) ; 

if (mmioDescend (hmmio, ScckChunk, ackFile, MMIO_FINDCHXIMK) != 0 
{ 

TRACE ("No data chunk in file\n"); 
return FALSE; 

} 

// Allocate some memory for the data chunk. 

int isize = ckChunk . cksize ; 

void* pdata = malloc (iSize) ; 

if (ipdata) 

{ 

TRACE ("No mem for data\n"); 
return FALSE; 

} 

// Read the data chunk. 

if (mmioRead (hmmio, (char* ) pdata , iSize) != iSize) 

{ 

TRACE ( "Failed to read data chunk\n"); 
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free (pdata) ; 
return FALSE; 

} 

// The data chunk should be a LOGPAIiETTE structure 
// that we can create a palette from. 
LOGPALETTE* pLiOgPal = (LOGPALETTE* ) pdata ; 
if (pLogPal - ;>palVersion != 0x300) 

{ 

TRACE (" Invalid palette version number\n"); 
free (pdata) ; 
return FALSE; 

} 

// Get the number of entries. 

int iColors = pLogPal - >palNumEntries ; 

if (iColors 0) 

{ 

TRACE ("No colors in palette\n"); 
free (pdata) ; 
return FALSE; 

} 

// If pPE is specified, do not really create the palette 

if (pPE) 

{ 

if (iColors > 256) 
{ 

TRACE ( "Colors in this palette exceeds 256: %dn\n" 

iColors) ; 

iColors = 256; 

} 

: : CopyMemory (pPE, &pLogPal->palPalEntry [0] , 
iColors*sizeof (PALETTE ENTRY) ) ; 

free (pdata) ; 
return TRUE; 

} 

else 

{ 

return CreatePalet te (pLogPal ) ; 

} 

} 

// Save a palette to an open CFile object. 

BOOL CDIBPal :: Save (CFile* const fp) 

{ 

return Save ( f p- >m_hFile) ; 

} 

// Save a palette to an open file handle. 

BOOL CDIBPal :: Save (const UINT hFile) 

{ 

MMIOINFO info; 

memset ( ficinf o , 0, sizeof (info) ) ; 
inf o - adwinf o [0] - hFile; 

HMMIO hmmio = mmioOpen (NULL, &info, MMIO_WRITE | MMIO_CREATE 
MMIO__ALLOCBUF) ; 

if ( ! hmmio) 

{ 

TRACE ( "mmioOpen failed\n"); 
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return FALSE; 

} 

BOOL bResult = Save (hmmio) ; 
mmioClose (hmmio, MMIO_FHOPEN) ; 
return bResult; 

} 

// Save a palette to an open MMIO handle. 
BOOL CDIBPal :: Save (const HMMIO hmmio) 
{ 

// Create a RIFF chunk for a PAL file. 
MMCKINFO ckFile; 

ckFile . cksize - 0; // Corrected later 
CkFile . fccType = mmioFOURCC ( ' P ' , ' A ' , ' L ' , ' 

if (mmioCreateChunk (hmmio, &ckFile, MMIO_CREATERIFF) != 0) 
{ 

TRACE { "Failed to create RIFF-PAL chunk\n"); 
return FALSE; 

} 

// Create the LOGPALETTE data which will become the data chunk, 
int iColors = GetNumColors ( ) ; 
ASSERT (iColors > 0); 

int iSize = sizeof (LOGPALETTE) + (iColors-1) * sizeof (PALETTEENTRY) 
LOGPALETTE* pip - (LOGPALETTE* ) malloc (iSize) ; 
ASSERT (pip) ; 

plp->palVersion = 0x300; 
pip- >palNumEntries = iColors ; 

GetPaletteEntries (0 , iColors, plp->palPalEntry) ; 
// create the data chunk. 
MMCKINFO ckData; 
ckData . cksize = iSize; 

CkData . ckid = mmioFOURCC ( ' d ■ , ' a ' , ' t ' , ' a • ) ; 
if (mmioCreateChunk (hmmio, &:ckData, 0) != 0) 

{ 

TRACE ( "Failed to create data chunk\n"); 
return FALSE; 

} 

// Write the data chunk - 

if (mmioWrite (hmmio , (char*) pip, iSize) 1= iSize) 

{ 

TRACE ( "Failed to write data chunk\n"); 
free (pip) ; 
return FALSE; 

} 

free (pip) ; 

// Ascend from the data chunk which will correct the length. 

mmioAscend (hmmio , ScckData, 0); 

// Ascend from the RIFF -PAL chunk. 

mmioAscend (hmmio , &ckFile, 0); 

return TRUE; 

} 
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// 
// 
// 
// 
// 
// 
// 
// 



Information Technology Institute 
UN I CHAT INC 



CDIBPal 



(C) Programmed by Kim 



ttifndef DIBPAL 

#define DIBPAL 

#include "DIB.h" 
#include <mmsystem.h> 

class AFX_EXT_CLASS CDIBPal : public CPalette 
{ 

public : 

CDIBPal {) ; 

virtual -CDIBPal ( ) ; 

BOOL Create (CDIB* pDIB) ; // Create from a DIB 

int GetNumColors ( ) ; // Get the number of colors in the 

palette . 

void Draw (CDC* pDC, CRectS: rect, const BOOL bBkgnd=FALSE , const BOOL 
bShowIndex=FALSE) ; 

BOOL SetSysPalColors () ; 

BOOL Load (const char* pszFileName=NULL , PALETTEENTRY* pPE=NULL) ; 

BOOL Load(CFile* const fp, PALETTEENTRY* pPE=NULL) ; 

BOOL Load (const UINT hFile, PALETTEENTRY* pPE=NULL) ; 

BOOL Load (const HMMIO hmmio, PALETTEENTRY* pPE=NaLL) ; 

BOOL Save (CFile* const fp) ; 

BOOL Save (const UINT hFile) ; 

BOOL Save (const HMMIO hmmio); 



int 



GetEntries (PALETTEENTRY* pPE) ; 



}; 



#endif // 



DIBPAL 
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LINK: winmm.lib Vic32ms.lib 
Runtime DLL: Vic32.dll 
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// 

// CMCIObject : 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include " s tdaf x . h " 
#include "mciobj.h" 

#ifdef __DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMCIObject 

IMPL.EMENT_SERIAL (CMCIObject , CObject, 0 /* schema number*/ ) 

CMCIOb j ect : : CMCIOb j ect ( ) 
{ 

m_OpenParams . dwCallback = 0 ; 
m_OpenParams . wDevicelD = 0; 
m_OpenParams . IpstrDeviceType = NULL; 
m_OpenParams . IpstrElementName = NULL; 
m_OpenParams . Ipstr Alias = NULL; 

} 

CMCIOb j ect : : -CMCIOb j eCt ( ) 
{ 

// make sure the object is not in use 
if (m_OpenParams - wDevicelD) 
Close ( ) ; 

ASSERT (m_OpenParams . wDevicelD == 0); 

} 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 in 1 1 1 11 III 1/ 1 1 / 1 1 1 / 1 1 1 1 u/ n 1 1 If 1 1 1 1 1 1 1 1 1 1 1 

II CMCIObject serialization 

void CMCIObject :: Serialize (CArchiveSt ar) 
{ 

ASSERT(l); // not supported 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II CMCIObject commands 

void CMCIObject : :MCIError( DWORD dwErr) 
{ 

char buf [25 6] ; 
buf [01 - ' \0 ' ; 

mciGetErrorString (dwErr , buf, sizeof (buf ) ) ; 
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if ( !strlen(buf ) ) 

strcpy(buf, "Unknown error") ; 
TRACE (buf ) / 

} 

BOOL CMCIObject :: Load (const char* pszFileName) 
DWORD dwResult; 

if (nn_OpenParams . wDevicelD) 
Close () ; 

ASSERT (m_OpenParams .wDevicelD == 0) ; 
m_OpenParams . IpstrDeviceType = NULL; 
m_OpenParams . IpstrElementName = pszFileName; 
dwResult = mciSendCommand (0 , 

MCI__OPEN, MCI_WAIT | MCI_OPEN_ELEMENT , 
(DWORD) (LPVOID) &:m_OpenParams) ; 

if (dwResult) 
{ 

MCIError (dwResult) ; 
m_OpenParams . wDevicelD = 0; 
return FALSE; 

} 

// Set the time format to milliseconds 
MCI_SET_PARMS set; 

set -dwTimeFormat = MCI_FORMAT_MILL I SECONDS ; 

dwResult - mciSendCommand (m_OpenParams .WDevicelD, 

MCI^SET, MCI_WAIT | MCI_SET_TIME_FORMAT , 
(DWORD) (LPVOID) &set) ; 

if (dwResult) 

{ 

MCIError (dwResult) ; 
m_OpenParams . wDevicelD - 0 ; 
return FALSE; 

} 

CString strName (pszFileName) ; 

strName . Make Lower ( ) ; 

int i = StrName . ReverseFind ( ' . ') ; 

if (strName [i+l] != 'm') // only for wave 

{ 

// Cue the file so it will play with no delay 
dwResult = mciSendCommand (m_OpenParams -WDevicelD, 

MC I_CUE , MC I_WAI T , 
(DWORD) (LPVOID) NULL) ; 

if (dwResult) 

{ 

MCIError (dwResult) ; 
m_OpenParams .WDevicelD = 0; 
return FALSE; 

} 

} 

return TRUE; 

} 

BOOL CMCIObject : :OpenDevice (const char* pszDevName) 
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{ 

DWORD dwResult; 

if (m_OpenParams . wDevicelD) 
Close 0 ; 

ASSERT (m__OpenParams .wDevice ID == 0) ; 
m_OpenParams , IpstrDeviceType - pszDevName; 
dwResult = mciSendCommand (0 , 

MCI_OPEN, MCI_WAIT \ MCI_OPEN_SHAREABLE | 

MCI_OPEN_TYPE, 

(DWORD) (LPVOID) &:m_OpenParams) ; 

if (dwResult) 
{ 

MCIError (dwResult) ; 
m__OpenParams . wDevicelD = 0; 
return FALSE; 

} 

// Set the time format to milliseconds 
MCI_SET_PARMS set; 

set .dwTimeFormat = MC I_FORMAT_MILLI SECONDS ; 
dwResult = mciSendCommand (m_OpenParams . wDevicelD, 

MCI_SET, MCI_WAIT | MCI_SET_TIME_FORMAT, 
(DWORD) (LPVOID) Scset) ; 

if (dwResult) 

{ 

MCIError (dwResult ) ; 
m__OpenParams . wDevicelD = 0; 
return FALSE; 

} 

return TRUE; 

} 

void CMCIObject :: Close 0 
{ 

MCI_GENERIC_PARMS gp ; 
DWORD dwResult; 

if (m_OpenParams - wDevicelD == 0) 
return; // already closed 
StopO; // just in case 

dwResult = mciSendCommand (m_OpenParams . wDevicelD, 

MCI_CLOSE , MCI_WAIT , 
(DWORD) (LPVOID) 6cgp) ; 

if (dwResult) 

MCIError (dwResult) ; 
m_OpenParams . wDevicelD = 0; 

} 

BOOL CMCIObject: : Play 0 
{ 

MC I_PLAY__PARMS p 1 ay ; 
DWORD dwResult ; 

if (m_OpenParams . wDevicelD =~ 0) 
return FALSE; // not open 
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mc is end Command (m_OpenParams . wDevicelD, 

MCI_SEEK, MCI_WAIT | MCI_SEEK_TO START, 
0) ; 

dwResult = mciSendCommand (m_OpenParams . wDevicelD, 

MCI_PLAY, NULL, 
(DWORD) (LPVOID) &play) ; 

if (dwResult) 
{ 

MCIError (dwResult) ; 
return FALSE; 

} 

return TRUE; 



} 



void CMCIObject : :Stop 0 
{ 

DWORD dwResult; 

if (m_OpenParams . wDevicelD == 0) 
return; // not open 

dwResult = mciSendCommand (m_OpenParams . wDevicelD, 

MC I_S TO P , MC I_WA I T , 
(DWORD) (LPVOID)NULL) ; 

if (dwResult) 

MCIError (dwResult) ; 

} 

DWORD CMCIObject : iGetPosition 0 
{ 

if (m_OpenParams . WDevicelD == 0) 
return 0; // not open 

MCI_STATUS_PARMS status; 

status .dwitem = MCI_STATUS_POSITION; 

if (mciSendCommand (m_OpenParams .wDevicelD, 

MCI_STATUS, MCI_WAIT | MCX_STATUS_ITEM , 
^ (DWORD) (LPVOID) &status) ! := 0) 

return 0; // some error 

} 

return status . dwRe turn ; 
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// 

// CMCIObj 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#ifndef MCIOBJ 

#define MCIOBJ 

#include <mmsystem.h> 

///////////////////////////////////////////////////////////////////////////// 
// CMCIObj ect object 

class AFX_EXT_CLASS CMCIObject : public CObject 

DECLARE_SERIAL (CMCIObject) 
public : 

CMCIObject () ; 
-CMCIObject 0 ; 

BOOL Load (const char* pszFileName) ; 

BOOL OpenDevice (const char* pszDevName) ; 

void Close ( ) ; 

BOOL Play 0 ; 

void Stop ( ) ; 

DWORD GetPosition ( ) ; 

// Implementation 
protected : 

virtual void Serialize (CArchiveS: ar) ; // Overridden for document i/o 

private : 

void MCIError (DWORD dwErr) ; 

MCI_OPEN_PARMS m OpenParams ; 

}; 

#endif // MCIOBJ 
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// 

// COSBView: Off -Screen Buffered View 
// 

// (C) Programmed by KEN 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include "stdafx.h" 
#include "DIB.h" 
#include "DIBPal . h" 
#include "OSBView. h" 

#include "PhSprite.h" // AddDirtyRegion (CPhasedSprite* pPS ) ; 
#include "Bubble. h" 

#ifdef _DEBUG 
#undef THIS__FILE 

static char BASED_CODE THIS__FILE[] = FILE 

//#if !def ined (KSM_REPORT) ' 

// #define KSM_REPORT 

//#endif 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// COSBView 

IMPLEMENT_DYNCREATE (COSBView, CScrollView) 

BEGIN_MESSAGE_MAP (COSBView, CScrollView) 

// { {AFX_MSG_MAP (COSBView) 

ON_WM_PALETTECHANGED ( ) 

ON_WM_QUERYNEWPAIjETTE ( ) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

// COSBView construction/destruction 

COSBView: : COSBView () 
{ 

mj>OSB = NULL; 

m_pOSBPal = NULL; 

m_hDIBSection NULL; 

m_pOneToOneClrTab = NULL; 

BOOL bUseCreateDIBSection = FALSE; 

// See if we are on Win32s which exports CreateDIBSection but does not 
support it 

DWORD dwVer = : : GetVersion () ; 

if ( (dwVer & OxSOOOOOFF) != 0x080000003) 

// Not on Win32s so try to get the CreateDIBSection procedure 

address . 

HANDLE hMod = : : GetModuleHandle ( " gdi 32 " ) ; 

if (hMod) 

{ 
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m_pCreateDIBSection =^ 
(CDSPROC*) GetProcAddress ( (HMODULE) hMod , "CreateDIBSect ion " ) ; 
if (m_pCreateDIBSection) 

bUseCreateDIBSection = TRUE; 

} 

} 

if {! bUseCreateDIBSection) 

{ 

AfxMessageBox ( "Sorry, This Program is only for Windows 95 and 

NT . " ) ; 

PostMessage (WM_CLOSE) ; 

} 



COSBView: :-COSBView() 
{ 

if (m_pOSB) delete m__pOSB; 

if (Tn_pOSBPal) delete m_pOSBPal; 

if (m_pOneToOneClrTab) f ree (m_pOneToOneClrTab) ; 

if (m_hDIBSection) : : DeleteObj ect (m^hDIBSection) ; 

EmptyDirtyList {) ; 

} 

// Create a new buffer, tables and palette to match a supplied DIB. 

BOOL COSBView: :CreateOSB (CDIB* pDIB) 

{ 

TRACE ( "COSBView: : CreateOSB { %lx) \n " , pDIB) ; 
// Create the 1-to-l palette index table, 
if {m_pOneToOneClrTab) 

free (m_jpOneToOneClrTab) ; 
m_pOneToOneClrTab = (LPBITMAPINFO) malloc ( sizeof (BITMAPINFOHEADER) + 
* sizeof (WORD) ) ; 

if ( ! m_pOneToOneCl rTab ) 
{ 

TRACE ( "Failed to create color table\n"); 
return FALSE; 

} 

/ / Set up the table header to match the DIB by copying the header 
// and then constructing the 1-to-l index translation table. 
: rCopyMemory (m_pOneToOneClrTab, pDIB- >GetBitmapInf oAddress () , 

sizeof ( BITMAP IN FOHE AD ER) ) ; 

// make sure the length of the table is set to 256 not to 
// the number of colors in the DIB which is irrelevant 
m_pOneToOneClrTab->bmiHeader .biClrUsed = 0; // default (256) 
WORD* pindex = (LPWORD) ( (LPBYTE) m_pOneToOneClrTab + 

sizeof (BITMAPINFOHEADER) ) ; 

for (int i = 0; i < 2 56; i++) 
*plndex++ = (WORD)i; 

// Create a palette from the DIB so that we can use it to do screen 
drawing . 

if (m_pOSBPal) 

delete m__pOSBPal; 
m_pOSBPal = new CDIBPal; 
ASSERT (m_pOSBPal) ; 
if (m__pOSBPal->Create (pDIB) ) 
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{ // Map the colors so that we get an identity palette. 

m_j)OSBPal - >SetSysPalColors ( ) ; 

} 

else 
{ 

TRACE ( "Failed to create palette\n"); 
delete m_pOSBPal; 
m_pOSBPal - NULL; 
return FALSE; 

} 

// Delete any existing DIB and create a new one . 
if (m_jpOSB) 

delete m__pOSB; 
m_pOSB = new CDIB; 
BOOL bResult = FALSE; 
// if (m_bUseCreateDIBSection) 

// { 

if (m_hDIBSection) 

: :DeleteObject (m_hDIBSection) ; 
ASSERT (m__pCreateDIBSect ion) ; 
CDC* pDC = GetDCO; 

CPalette* pPalOld = pDC- >SelectPalette (m__pOSBPal , FALSE); // 
foreground 

pDC->RealizePalette ( ) ; 
BYTE* pBitS = MULL; 

// The CreateDIBSection function creates a device-independent bitmap 

(DIB) 

// that applications can write to directly. 

m_hDIBSection - ( *m_j)CreateDIBSect ion) (pDC- >GetSaf eHdc ( ) , // 
CreateDIBSection 

m_pOneToOneClrTab, DIB_PAL_COLORS , (VOID**) &pBits, 

NULL , 0 ) ; 

pDC-:>SelectPalette (pPalOld, FALSE) ; 
ASSERT {m_hDIBSection) ; 
ASSERT (pBits) ; 

ReleaseDC (pDC) ; // int CWnd : : ReleaseDC (CDC* pDC) ; 

bResult = m__pOSB- >Create (pDIB->GetBitmapInf oAddress ( ) , pBits); 

// } 
// else 

// { 

// bResult = mjpOSB->Create (pDIB->GetWidth 0 , pDIB- >GetHeight ( ) ) ; 

// } 

if (IbResult) 

{ 

TRACE ( "Failed to create off-screen DIB\n"); 
delete Tn_pOSB; 
mjpOSB = NULL; 
return FALSE; 

} 

CSize sizeTotal (m_pOSB->GetWidth 0 , m_pOSB- >GetHeight ( ) ) ; 
SetScrollSizes (MM_TEXT, sizeTotal) ; 

return TRUE; 
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I / 1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 1 n 1 1 1 1 1 / 1 / 1 1 / /I // 1 / / 1 / 1 1 / It 1 1 1 / 1 1 1 1 1 / / / / 1 1 / / / / 1 / u / /I / / / 1 1 1 

I / COSBView drawing 

void COSBView: :OnInitialUpdate () 
{ 

CSize sizeTotal; 

if (m_pOSB) 

{ 

sizeTotal. cx = m_pOSB - >GetWidth ( ) ; 

^ sizeTotal. cy = m_jpOSB- > Get Height () ; 

else 

{ 

sizeTotal.cx = 64 0; 
sizeTotal. cy = 480; 

} 

SetScrollSizes (MM_TEXT, sizeTotal) ; 
CScrollView: : OnlnitialUpdate ( ) ; 

// Updated Feb 16 '98 Soomin, Kim 
void COSBView: :OnDraw(CDC* pDC) 

// CView: :OnDraw(pDC) ; // OnPrepareDC 

CRect rc; // Invalid Rect 

pDC->GetClipBox(rc) ; 
/ / TRACE ( " COSBView : : OnDraw ( %d , %d , %d , %d ) W : %d , H : %d\n " , 

// rc.left, rc.top, rc . right , rc.bottom, rc.WidthO, 

rc .Height ( ) ) ; 

DrawOSB (&rc) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// COSBView diagnostics 

#ifdef _DEBUG 

void COSBView: :AssertValid 0 const 
{ 

CScrollView: : AssertValid ( ) ; 

void COSBView: : Dump (CDumpContext& dc) const 
CScrollView: :Dump (dc) ; 

CDocument* COSBView :: GetDocument ( ) // Non-debug version is inline 
return m_pDocument ; 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// COSBView message handlers 

// Draw a section of the off -screen image buffer to the screen. 
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void COSBView: iDrawOSB (CRect* pClipRect) 
CClientDC dc(this); 

OnPrepareDC {&dc) ; // CScroll changes the viewport origin and mapping 

mode . 

CRect rcDraw; 

/ / Make sure we have what we need to do a paint . 
if (!m_pOSB II !m_pOneToOneClrTab) 

TRACE ( "COSBView: :DrawOSB() - No DIB or color table to paint 

from . \n" ) ; 

return; 

} 

// See if a clip rect was supplied, and use the client area if not. 
if (pClipRect) 

{ 

rcDraw = *pClipRect; 

} 

else 

{ 

GetClientRect (rcDraw) ; 
^ dc.DPtoLP(&rcDraw) ; // THIS WAS THE KEY! 

// Get the clip box. 

CRect rcClip; 

dc .GetClipBox (rcClip) ; 

// Create a rect for the DIB. 

CRect rcDIB(0, 0, mj)OSB- >GetWidth ( ) - 1 , m_j)OSB- >GetHeight ( ) - 1 ) ; 

// Find a rectangle that describes the intersection of the draw rect, 

// clip rect, and DIB rect. 

CRect rcBlt = rcDraw & rcClip & rcDIB; 

// Copy the update rectangle from the off -screen DC to the window DC. 
// Note that the DIB origin is the bottom- left corner, 
int w = rcBlt. right - rcBlt.left; 
int h = rcBlt. bottom - rcBlt.top; 
if (w == 0 h == 0) 

return; // nothing to draw 

int xs , ys, xd, yd; 
xs = xd = rcBlt.left; 

// ys = (m_bUseCreateDIBSection) ? rcBlt.top : mpOSB- >GetHeight ( ) - 
rcBlt .bottom; 

ys = yd = rcBlt.top; 

// If we have a palette, select and realize it. 
CPalette* ppalOld = NULL; 
if (m_pOSBPal) 
{ 

ppalOld = dc.SelectPalette(m_pOSBPal, FALSE); // foreground 
dc .RealizePalette () ; 

} 

// if (m_bUseCreateDIBSection) 
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// { 

HDC dcMem = : : CreateCompat ibleDC (dc . GetSaf eHdc ( ) ) ; 

HBITMAP hbmOld = (HBITMAP) : : SelectObj ect (dcMem, m_hDIBSection) ; 

// Note: you do not need to select the palette into the memory DC 
// because the DIB section is using palette index values not colors. 
:BitBlt (dc.GetSafeHdc {) , xd, yd, w, h, dcMem, xs , ys , SRCCOPY) ; 
:SelectObject (dcMem, hbmOld) ; 
:DeleteDC (dcMem) ; 
// CDC dcMem; 

// dcMem.CreateCompatibleDC(&dc) ; // pass NULL to be compatible 

with system display 

// CBitmap* bmpOld = 

dcMem.SelectObject (CBitmap: : FromHandle (m_hDIBSect ion) ) ; 

// dc .BitBlt (xd, yd, w, h, &:dcMem, xs , ys , SRCCOPY); 

/ / dcMem . SelectOb j ect (bmpOld) ; 

// dcMem.DeleteDC 0 ; 

/* } 

else 

{ 

BYTE* pBits = (BYTE*) m_pOSB->GetBitsAddress 0 ; 
: :StretchDIBits (dc. GetSaf eHdc () , 

xd, yd, w, h, // Destination x, y, 

width, height 

xs, ys, w, h, // Source x, y, 

width, height 

P^its, // Pointer to bits 

m_jpOneToOneClrTab, // BITMAPINFO 

DIB_PAL_COLORS, // Options 

^ SRCCOPY) ; // ROP 

*/ 

// Select old palette if we altered it. 
if (ppalOld) 

dc . SelectPalette (ppalOld, FALSE) ; 
#ifdef _DEBUG_RENDER 

static int D_DrawCount = 0; 
if (D_DrawCount++ % 100 == 0) 

TRACE3 ("COSBView: :Draw(W:%d,H:%d) =%d times\n" , w, h, 
D_DrawCount) ; 
#endif 
} 

// Add a region to the dirty list. 

void COSBView: : AddDirtyRegion (CRect* prcNew) 

// Get the rectangle currently at the top of the list. 
POSITION pos - m_DirtyList .GetHeadPosition 0 ; 
if (pos) 

{ 

CRect* prcTop = (CRect * ) m_DirtyList . GetNext (pos ) / 
CRect rcTest; 

//If the new one intersects the top one merge them, 
if (rcTest , IntersectRect (prcTop, prcNew) ) 

prcTop->UnionRect (prcTop, prcNew) ; 
return; 
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} 

} 

// List is empty, or there was no intersection. 

CRect* pre = new CRect; 

*prc = *prcNew; // Copy the data. 

// Add a new rectangle to the list. 

m^DirtyList . AddHead ( (CObject *) pre) ; 

} 

void COSBView: : AddDirtyRegion (CPhasedSprite* pPS) 
{ 

// if (!pPS) 

// return; 

CRect rcDirty; 

pPS->GetRect (rcDirty) ; 

AddDirtyRegion C&rcDirty) ; 

} 

void COSBView: : AddDirtyRegion (CBubble* pBB) 

{ 

CRect rcDirty; 
pBB->GetRect (rcDirty) ; 
AddDirtyRegion { &rcDirty ) ; 

} 

// Render and draw all the dirty regions, 
void COSBView: : RenderAndDrawDirtyList ( ) 

{ 

POSITION pos = m^DirtyList .GetHeadPosition 0 ; 
// Render all the dirty regions, 
while (pos) 

{ 

// Get the next region. 

CRect* pRect = (CRect* ) m_DirtyList . GetNext (pos) 
// Render it. 
Render (pRect ) ; 

} 

// Draw all the dirty regions to the screen, 
while ( !m_DirtyList . IsEmpty ( ) ) 

{ 

// Get the next region. 

CRect* pRect = (CRect *) m_DirtyList . RemoveHead ( ) 
DrawOSB (pRect) ; 
// InvalidateRect (pRect , FALSE); // Convert to LP 

// Done with it . 
delete pRect; 

} 

} 

// Empty the dirty list. 

void COSBView: :EmptyDirtyList 0 

{ 

while ( im_DirtyList . IsEmpty 0 ) 
{ 

CRect* pre - { CRect *) m_DirtyList , RemoveHead () ; 
delete pre; 

} 
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} 

// Update the view to reflect some change in the doc. 

void COSBView: :OnUpdate (CView* pSender, LPARAM iHint , CObject* pHint) 

/ / Render and draw everything . 
Render ( ) ; 
// DrawOSB () ; 

Invalidate (FALSE) ; 

} 

/nnn ///////////////////////////////////////// ///////// 

II Palette Control 

void COSBView: :OnPaletteChanged (CWnd* pFocusWnd) 
TRACED ("COSBView: : OnPaletteChanged\n" ) ; 

// See if the change was caused by us and ignore it if not. 
if (pFocusWnd != this) 

OnQueryNewPalette ( ) ; 

} 

// Note: Windows actually ignores the return value. 

BOOL COSBView : : OnQueryNewPalette ( ) 

{ 

TRACED ("COSBView: : OnQueryNewPalette\n" ) ; 
//We are going active so realize our palette, 
if (m_pOSBPal) 
{ 

CDC* pdc = GetDCO; 

CPalette* poldpal = pdc- >SelectPalette (m_pOSBPal , FALSE); // 

foreground 

UINT u = pdc->RealizePalette () ; 
if (poldpal) 

pdc- >SelectPalette (poldpal, FALSE) ; 
ReleaseDC (pdc) ; 
if (u) 

{ // Some colors changed so we need to do a repaint. 

Invalidate 0 ; // Repaint the lot. 
return TRUE; // Say we did something. 

} 

return FALSE; // Say we did nothing. 
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// 

// COSBView: 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 
// UNI CHAT INC 

///////////////////////////////////////////////////////////////////////////// 

#ifndef OSBVIEW_H 

#define OSBVIEW_H 

class CDIB; 
class CDIBPal; 
class CPhasedSprite; 
class CBubble; 

// Define the CreateDIBSection function, 
typedef HBITMAP (APIENTRY CDSPROC) 

(HDC hDC, BITMAPINFO* pbmi , UINT iUsage, 
VOID** ppvBits, HANDLE hSection, DWORD dwOff set) ; 

class AFX_EXT_CLASS COSBView : public CScrollView 
{ 

protected: // create from serialization only 
COSBView 0 ; 

DECIiARE_DYNCREATE (COSBView) 



// Attributes 

publ ic : 

CDocument^ 
CDIB* 
CDIBPal* 
HBITMAP 



GetDocument () ; 

GetOSBO { return m_pOSB; } 

GetOSBPalette {) { return m_pOSBPal ; } 

GetHBitmapO const { return m_hDIBSect ion ; } 



// Operations 
public : 

virtual BOOL 

buffer 

void 

screen buffer to screen 
virtual void 
void 
void 
void 
void 



CreateOSB (CDIB* pDIB) ; 

DrawOSB (CRect* pClipRect=NULL) ; 



// Create a new 
// Draw off- 



Render (CRect* pClipRect=NULL) { return; } 
AddDirtyRegion (CRect* pRect) ; 
AddDirtyRegion (CPhasedSprite* pPS) ; 
AddDirtyRegion (CBubble* pBB) ; 
RenderAndDrawDirtyList ( ) ; 



// Implementation 
public : 

virtual ~COSBView(); 

virtual void OnDraw(CDC* pDC) ; // Overridden to draw this view, 

virtual void OnlnitialUpdate ( ) ; // First time after 

construction . 

virtual void OnUpdate (CView* pSender, LPARAM iHint, CObject* 

pHint) ; 



#ifdef DEBUG 
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virtual void AssertValid ( ) const ; 

virtual void Dump ( CDumpCon text & dc) const; 

#endif 



protected : 

CDIB* m_pOSB; // The DIB buffer. 

CDIBPal* mjOSBPal; // Palette for drawing. 

HBITMAP m_hDIBSection; // Bitmap from CreateDIBSect ion 

private : 

BITMAPINFO* m_jpOneToOneClrTab; // Pointer to 1-to-l color 

table 

// BOOL m_bUseCreateDIBSection; // Flag 

CDSPROC* m_pCreateDIBSection; // Pointer to CreateDIBSect ion 

CObList m_DirtyList ; // Dirty regions 

void EmptyDirtyList { ) ; 



// Generated message map functions 
protected : 

//{ {AFX_MSG (COSBView) 

afx_msg void OnPaletteChanged (CWnd* pFocusWnd) ; 
afx_msg BOOL OnQueryNewPalette ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP { ) 

}; 

#ifndef _DEBUG // Debug version in osbview.cpp 
inline CDocument* COSBView :: GetDocument ( ) 
{ return (CDocument*) m_pDocument; } 

#endif 

///////////////////////////////////////////////////////////////////////////// 
#endif // OSBVIEW H 
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// 

// CPhasedSprite 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include "stdafx.h" 
#include "dib.h" 
#include "spriteno.h" 
#include "sprite. h" 
#include "phsprite.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE 

#endif 



const DWORD LONGTIMELATER = 3 600000L; 



1 1 1 1 1 // 1 1 1 1 11 11 1 1 1 1 1 1 1 1 1 / 1 1 / 1 1 1 1 1 1 1 // 1 1 1 1 1/ 11 11 / 11 / 1 1 1 / 1 1 1 1 1 1 // 1 1 // 1 / 1 1 11 1 1 1 / 
II CPhasedSprite 

IMPLEMENT_SERIAL (CPhasedSprite, CSprite, 0) 

CPhasedSprite : : CPhasedSprite ( ) 
{ 

m_iNumCellRows = m_iNumCe 11 Columns = 1; 

m_iCellRow = m_iCellColumn = 0; 

m_wType = SPRITE_PHASED ; 

m_ai =0; // animation index 

m_dwAlarmTick = : : GetTickCount ( ) + LONGTIMELATER; // Never call 

HeartBeat before Load 

m_nMSPT = 0; 

m_strHLink . Empty ( ) ; 

} 



CPhasedSprite: : -CPhasedSprite ( ) 

{ 

} 



CPhasedSprite^ CPhasedSprite :: operator- (const CPhasedSprite& rhs) 
{ 

if (this == &rhs) 

return *this; 
* (CSprite*) this - * ( (CSpri te* ) &rhs ) ; 



m_iNumCe 1 iRows 

m_iNumCe 1 1 Co 1 umn s 

m_iCellRow 

m_i Cell Column 

m__iCellHeight 

m_iCellWidth 

m_ai 

m_nMSPT 

m dwAlarmTick 



= rhs . m_iNumCe 1 iRows ; 
rhs .m__iNumCe 11 Columns ; 
= rhs .m_iCellRow; 
= rhs .m__iCe 11 Column ; 
= rhs .m_iCellHeight ; 
= rhs .m_iCellWidth ; 
= rhs.m_ai; 

= rhs . m_nMS PT ; 
= rhs . m_dwAlarmTick/ 
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m_strHLink = rhs . m_strHLink; 

return *this; 



BOOL CPhasedSprite : :operator== (const CPhasedSpri te& rhs) 

return ( ( * (CSprite* ) this == * ( (CSpri te* ) Scrhs ) ) && 
(GetCelllDO rhs.GetCelllDO ) 

(m_ai == rhs.m ai) ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
// CPhasedSprite serialization 

void CPhasedSprite :: Serialize (CArchive& ar) 
{ 

CSprite: : Serialize (ar) ; 
if (ar . IsStoring 0 ) 

{ 

ar << (DWORD) m_iNumCellRows; 
ar << (DWORD) m_iNumCellColumns ; 
ar << (DWORD) m_iCellRow; 
ar << (DWORD) m_iCellColumn ; 

} 

else 
{ 

DWORD dw; 
ar >> dw; 

SetNumCellRows (dw) ; 
ar >> dw; 

SetNumCe 11 Columns (dw) ; 
ar >> dw; 
SetCellRow(dw) ; 
ar >> dw; 

SetCellColumn (dw) ; 

} 

} 

///////////////////////////////////////////////////////////////////////////// 
// CPhasedSprite commands 

//Do any initialization after file load of a new image etc. 

void CPhasedSprite: : Initialize 0 

{ 

CSprite : : Initialize ( ) ; 

m_iNumCellRows = m_iNumCellColumns = 1; 

m_iCellRow = m_iCellColumn = 0; 

m_iCellHeight = CSprite :: GetHeight () ; 

m_iCellWidth = CSprite :: GetWidth () ; 

} 

/ / Divide the image into a given number of rows . 
BOOL CPhasedSprite : :SetNumCellRows (const int iRows) 
{ 

if (iRows < 1) 

{ 

TRACEl ( "Invalid number of rows(%d)\n", iRows); 
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return FAXiSE; 

} 

// Compute the height of each row. 

int iCellHeight = CSprite : : GetHeight ( ) / iRows ; 

if (iCellHeight < 1) 

{ 

TRACE 0 ("Can- 1 make them that small. \n»' ); 
return FALSE; 

} 

// Set the new height and row count. 
m_iNumCellRows =: iRows ; 
m_iCellRow = O; 

m_iCellHeight = iCellHeight ; 

return TRUE; 

} 

/ / Divide the image into a given number of columns . 

BOOL CPhasedSprite: :SetNumCellColumns (const int iColumns) 

if (iColumns < 1) 
{ 

TRACEl ("Invalid number of columns ( %d) \n" , iColumns); 
return FALSE; 

} 

// Compute the width of each column. 

int iCellWidth = CSprite :: GetWidth ( ) / iColumns; 

if (iCellWidth < 1) 

{ 

TRACEC'Can't make them that small. \n"); 
return FALSE; 

} 

/ / Set the new width and column count . 
m_iNumCel IColumns = iColumns; 
m_iCellColumn = O; 

m_iCellWidth = iCellWidth; 

return TRUE; 

} 

BOOL CPhasedSprite: zSetNumCells (const int iRows, const int iColumns) 

SetNumCel IRows (iRows) ; 
^ return (SetNumCel IColumns (iColumns) ) ; 

// Set the current column. 

BOOL CPhasedSprite: :SetCellColumn (const int iColumn) 

if ((iColumn >= m_iNumCel IColumns) || (iColumn < 0)) 

TRACEl ("Invalid column ( %d) \n" , iColumn); 
return FALSE; 

} 

if (iColumn == m_i Cell Column) return FALSE; // Nothing to do 

m_iCellColumn = iColumn; 

// Send a notification to redraw. 

if (m_pNotif yObj ) 

{ 
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CRect rcPos; 
GetRect (rcPos) ; 

m_jpNotifyObj ->Change (this, CSpriteNot if yObj : : IMAGE, &:rcPos) ; 
return TRUE; 

} 

// Set the current row. 

BOOL CPhasedSprite: iSetCellRow (const int iRow) 
{ 

if ({iRow >= m_iNumCellRows) | | (iRow < 0)) 

TRACE{"%x CPhasedSprite: :SetCellRow - Invalid row(%d)\n", this 

iRow) ; 

return FALSE; 

} 

if (iRow m_iCellRow) return FALSE; // Nothing to do 
m_i Ce 1 1 Row = i Row ; 

// Send a notification to redraw, 
if (m_pNotif yObj ) 

{ 

CRect rcPos ; 
GetRect (rcPos) ; 

^ mjNotifyObj ->Change (this, CSpriteNot if yObj : : IMAGE, &rcPos) ; 

return TRUE; 

} 

BOOL CPhasedSprite: :SetCell (const int iRow, const int iColumn) 

if (iRow == m_iCellRow && iColumn m_i Cell Column) 

return FALSE; // Nothing to do 

if ((iRow >= m_iNumCellRows) || (iRow < 0)) 

TRACE("%x CPhasedSprite: :SetCell - Invalid row(%d)\n", this, 

iRow) ; 

return FALSE; 

} 

m_i Cell Row = iRow; 

if ((iColumn >= m_iNumCellColumns ) || (iColumn < 0)) 

TRACE("%x CPhasedSprite: :SetCell - Invalid column (%d) \n" , this, 

iColumn) ; 

return FALSE; 

} 

Tn_iCellColumn - iColumn; 

// Send a notification to redraw. 

if (m_pNotifyObj ) 

{ 

CRect rcPos; 
GetRect (rcPos) ; 

^ m__pNotifyObj->Change(this, CSpri teNot if yObj :: IMAGE , &rcPos) ; 

return TRUE; 

) 

BOOL CPhasedSprite: : SetNextCell ( ) 
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{ 

int nID = GetCelllDO; 
nID++ ; 

if (nID >= GetNumCells 0 ) 

nID - 0; 
return SetCell (nID) ; 

} 



// Test for a hit in a non- transparent area. 

BOOL CPhasedSprite : -.HitTest (const CPoint& point) const 

{ 

// Test if the point is inside the sprite rectangle, 
if ( (point. X > m_x) && (point. x < m_x + GetWidthO) 

(point, y > m_y) && (point, y < Tn_y + GetHeight ( ) ) ) 

{ 

// Hit is in sprite rectangle . 

// See if this point is transparent by testing if the pixel value 
// is the same as the top- left corner value. 

// Note that top-left of the image is bottom- left in the DIB. 
// Get the address of the top- left pixel of the cell, not the 

DIB. 

// Note that the Get Pixel Address function refers to addresses in 
the DIB, not the cell. 

int X = point. X - m_x + (m_iCellColunm * m_iCellWidth) ; 
int y = point. y - m_y + (m_iCellRow * m_iCellHeight) ; 
BYTE* p = (BYTE*)m_pDIB->GetPixelAddress (x, y) ; 
ASSERT (p) ; 

if (*p != m_btTrans Index) 
return TRUE; 

} 

return FALSE; 

} 

// Render a sprite to a DIB (usually an OSB) . 

void CPhasedSprite :: Render (CDIB* pDIB, const CRect* pClipRect) 

{ 

ASSERT (pDIB) ; 

// Get the sprite rect and see if it's visible. 
CRect rcThis; // This sprite's region 

GetRect (rcThis) ; // CSprite : : GetRect '^_y/ 
m_x+GetWidth ( ) , m_y+GetHeight ( ) } 
CRect rcDraw; 
if (pClipRect) 

{ 

if (! rcDraw . IntersectRect (pClipRect , SircThis) ) 
return; // Not visible 

} 

else 

// if (IpClipRect II (m_wlm0p & OPACITY_MASK) ) 
{ 

CRect rcOSB; 
pDIB->GetRect (rcOSB) ; 

rcDraw. IntersectRect (&rcOSB , &rcThis) ; 

} 

// TRACE (" (%d,%d) Rendering: %s %d\n", rcDraw. Width () , rcDraw. Height 0 , 
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// * (GetDIB 0 ->GetName () ) , m wimOp & 

OPACITY_MASK) ; ~ 

/ / Modify the source x and y values for the current phase of the 
sprite . 

// IMAGE_VERTICAL added Feb 9 mon '98 

//I found these formula by the law of 'symmetry' ! 

// What a wonderful thing the symmetry is!!! 

int ys = (m_wImOp & IMAGE_VERTICAL) 

? (m_iCellRow + 1) * m_iCellHeight - (rcDraw . bottom - m_y) 
: m_iCellRow * m iCellHeight + rcDraw.top - m__y; 
ASSERT (ys 0 ys < CSprite : : GetHeight ( ) ) ; 

int xs = (m_wImOp & IMAGE_FL.IP) 

? (m_iCellColumn +1) * m_iCellWidth - ( rcDraw . right - m_x) 
: m_iCellColumn * m_iCellWidth + rcDraw. left - m_x; ~ 
ASSERT (xs >= 0 && xs < CSpri te : : GetWidth ( ) ) ; 
GetDIBC) ->CopyBits(pDIB, // Destination DIB 

rcDraw. left, rcDraw.top, // Destination x, y 

rcDraw. right - rcDraw. left, // Width 
rcDraw. bottom - rcDraw.top, // Height 

y^' // Source x, y 

PALETTEINDEX (m_btTransIndex) , 
m_wlm0p) ; // Transparent color index 

} 

// Added by Kim, Soomin, Dec3 tue'96, to use for frame animation as in Login 
Screen 

// Draw the DIB to a given DC. 

void CPhasedSprite: : Draw (CDC* pDC, const CPoint6c point) 

int ys = CSprite: : GetHeight 0 - (m_iCellRow + 1) * m_iCellHeight ; // 
bottom-up aligned DIB 

ASSERT (ys >= 0 && ys < CSpri te :: GetHeight ()) ; 
int xs = m_iCellColumn * m_iCellWidth; 
ASSERT (xs 0 && xs < CSprite: : GetWidth 0 ) ; 
: iStretchDIBits (pDC- >GetSaf eHdc () , 

point. X, point. y, GetWidth () , GetHeight (), // 
Destination x, y, width, height 

xs, ys, GetWidth 0, GetHeight (), // Source x, y, width 

height 

GetDlBO ->GetBitsAddress 0 , // Pointer to 

bits 

GetDIB ( ) - >GetBitmapInf oAddress ( ) , // BITMAPINFO 
DIB_RGB_COLORS, // Options 

SRCCOPY) ; // R^^ter 

operation code (ROP) 

} 

///////////////////////////////////////////////////////////////////// 

II Animation 

void CPhasedSprite: :SetAlarmTick (const DWORD dwAlarm) 

^ m_dwAlarmTick = dwAlarm ? dwAlarm : : : GetTickCount () ; 
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// Onldle 

// We use m_bi for animation type and m_ci for animation indices. 

BOOL CPhasedSprite : :HeartBeat (const DWORD dwCurTick) 

{ 

const static wIOSeq[] = 
{ 

OPACITY_12, OPACITY_25, OPACITY_50, OPACITY_75, OPACITY_100, 
OPACITY_75, OPACITY 50, OPACITY 25, OPACITY 12, OPACITY 0 

}; " ~ - 

switch (GetAniType ( ) ) 

{ 

case SPRITE_ANI_REPEAT: 
SetNextCell () ; 

SetAlarmTick (dwCurTick + GetMSPTO); 
break ; 
case SPRITE_ANI_FADE : 
{ 

WORD wIO = GetlmOpO; 

SetImOp((wIO & ^OPACITY_MASK) | wlOSeq [m_ai++] ) ; 
if (m_ai >= sizeof (wlOSeq) /sizeof (wlOSeq [0] ) ) 

m_ai = 0 ; 
SetNextCell () ; 

} 

// Set Alarm time to be called for the next frame 
if (m_ai 5) // OPACITY_100 

SetAlarmTick (dwCurTick + GetMSPT ( ) *2 0 ) ; 

else 

SetAlarmTick (dwCurTick + GetMSPTO); 

break; 

} 

case SPRITE_ANI_RANDOM : 

if ( (m_iCellRow == 0) && (m_iCel IColumn == 0)) 

SetAlarmTick (dwCurTick + GetMSPT ()*(1 + rand ( ) % 100)); 

else 

SetAlarmTick (dwCurTick + GetMSPTO); 
SetNextCell () ; 
break ; 

default: return FALSE; 

} 

return TRUE; 

} 



return HLINK_U2_ENTRY ; // e 
return HLINK_U2_EXIT ; // x 

// http://, ftp:// 




mt CPhasedSprite : :GetLinkType 0 const 

if (m_strHLink.GetLength 0 < 3) 

return HLINK_EMPTY; 
switch (m_strHLink [0] ) 
{ 

case 'e': if (m_strHLink tU == ':') 
case 'X': if (m_strHLink [1] == •:') 
case 'h' 
case ' f ' 

} 

return HLINK_EMPTY; 



} 

/* 



return HLINKHTTP; 
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m 



BOOL CPhasedSprite: :ParseHyperlink(CString& strHL, const int n) 

int nID = n; 

strHL m_strHLink; 

while (nID--) 

{ 

int i = strHL. Find ( ' I ' ) ; 
if (i >= 0) 

StrHL = strHIj.Lef t (i) ; 



a 
J I 

UJ 

ni 
□1 
m 
m 

m 

□I 
a 
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// 

// CPhasedSprite : 
// 

// (C) Programmed by Kim, 

// 

// Information Technology Institute 

// UNICHAT INC 

// 

#ifndef PHSPRITE^H 

#define PHSPRITE_H 

// index counts from 0 
//i=r*Nc+c 
// r - i / Nc 
// c = i % No 

#include "Sprite. h" 

class CDIB; 

class AFX_EXT_CL.ASS CPhasedSprite : public CSprite 
{ 

DECLARE_SERIAIi (CPhasedSprite) 
public : 

CPhasedSprite () ; 

virtual -CPhasedSprite () ; 



CPhasedSprite& operator= (const CPhasedSprite& rhs) ; 
BOOL operator== (const CPhasedSprite& rhs); 



enum 
{ 



HYPERLINK TYPE 



HLIWK_EMPTY, 
HLINK_U2_ENTRY , 
HLINK_U2_EXIT, 
HLINK_HTTP 

}; 

// Attributes 

int GetNumCells 0 const 

m_iNumCellRows*m_iNumCellColumns ; } 

int 

int 

int 

int 

int 



( return 



{ 



return m_iNumCellRows ; } 
return m_iNumCe 11 Columns 
{ return m_iCellRow; 
return m__i Cell Column; } 



// 



/ / f rom 

virtual 

virtual 

BOOL 

int 

CString^ 
BOOL 



GetNumCellRows ( ) const 
GetNumCellColumns 0 const 
GetCellRowO const 
Ge t Cell Column () const 
GetCelllDO const 
{ return (m_iCellRow*m_iNumCellColumns + m_i Cell Column) 
base classes 

int GetHeightO const { return m_iCellHeight ; } 
GetWidthO const { return m_iCellWidth; } 
HasHyperlink ( ) const { return ( !m_strHLink . IsEmpty ( ) ) ; 

GetLinkType ( ) const ; 
GetHyperlink ( ) { return &m_strHLink; } 

ParseHyperlink (CStringS: strHL, const int n) ; 



int 



// Operations 

virtual void Serialize (CArchive& ar) ; 
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BOOL SetNumCells (const int iNumRows , const int iNumColumns ) ; 

BOOL SetNumCells (const CSize s) { return SetNumCells ( s . cy , s.cx); } 

BOOL SetNumCellRows (const int iNumRows); 

BOOL SetNumCell Columns (const int iNumColumns); 

BOOL SetCell (const int nID) 

{ return SetCell (nID / m_iNumCellColumns , nID % 
m_iNumCellColumns ) ; } 

BOOL SetCell (const int iRow, const int iColumn) ; 

BOOL SetCell (const CPoint pt) { return SetCell (pt . y, pt,x); } 

BOOL SetCellRow (const int iRow) ; 

BOOL SetCellColumn (const int iColumn) ; 

BOOL SetNextCell ( ) ; 

virtual void Draw (CDC* pDC, const CPoint & point) ; 




// from base classes 



virtual BOOL 
virtual void 
virtual void 
void 
strHL; } 



HitTest (const CPointJSt point) const; 

Render (CDIB* pDIB, const CRect* pClipRect=NULL) ; 

Initialize ( ) ; 

SetHyperl ink (const CString& strHL) ( m_strHLink 



/ / for Animation 

DWORD GetAlarmTick ( ) const { return m_dwAlarmTick; } 
int GetMSPTO const { return m_nMSPT; 

} 

void SetMSPT (const int nMSPT) 

{ m_nMSPT = nMSPT; SetAlarmTick () ; } 

void SetAlarmTick (const DWORD dwAlarm=OL) ; 

virtual BOOL HeartBeat (const DWORD dwCurTick) ; // ticker 



protected : 

int m_iNumCellRows ; 

int m_iNumCel 1 Columns ; 

int m_iCellRow; 

int m_iCel IColumn; 

int m_iCellHeight ; 

int m_iCellWidth; 
// for Animation 

int m_ai ; 

int m_nMSPT; 

DWORD m_dwAlarmTick; 

est ring m_strHLink; 
"ht tp : //www. unichat . com/ | http 
); 

#endif // PHSPRITE H 



// Number of rows in the image grid 
/ / Number of columns in the image grid 

// Current cell row 

// Current cell column 

// Height of a row 
// Width of a column 

// current animation index 
// Milliseconds per Tick 
// to set alarm tick to be entered next 
// Hyperlink 

//. ^ 
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// 

// CPSButton 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institue 

// UNICHAT INC 

// 

#include " stdaf x . h" 
#include "PSButton.h" 
#include "PhSprite.h" 
#include "resource. h" 

#ifdef _DEBUG 

#def ine new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FIXjE[} ^ FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CPSButton 

CPSButton: : CPSButton () 

Init 0 ; 



CPSButton : : -CPSButton ( ) 

if (m_pPS) 

delete m_pPS; 



void CPSButton: : Init 0 

m_pPS - NULL; 
m_pPal = NULL; 



BOOL CPSButton :: Load (const CString& filename, const int nRows) 

// TRACE ( "%s\n" , filename) ; 
if {m_pPS) 

delete m j)PS ; 
m__pPS = new CPhasedSprite ; 
if ( lm__pPS->Load (filename) ) 

{ 

delete m_jpPS; 
m_pPS = NULL; 

AfxMessageBox ( "Failed to load Button DIB file"); 
return FALSE; 

} 

m_j3PS- >SetNumCells (nRows , 1); 
return TRUE; 

} 
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BOOL CPSButton :: Load (const WORD wResid, const int nRows) 
{ 

if (m_pPS) 

delete m__pPS; 
m_pPS = new CPhasedSprite ; 
if { !m_jpPS- >Load (wResid) ) 

{ 

delete m_pPS; 
m_pPS = NULL; 

AfxMessageBox C "Failed to load Button DIB file"); 
return FALSE; 

} 

m_pPS ->SetNumCel Is (nRows , 1) ; 
return TRUE; 

} 

void CPSButton :: Resize ( ) 
{ 

if (m_j)PS) 

SetWindowPos (NULL, -1, -1, m_pPS - >GetWidth ( ) , m_pPS- >GetHeight ( ) , 
SWP__NOMOVE I SWP_N020RDER | SWP_NOREDRAW | 

SWP_NOACTIVATE) ; 
} 

void CPSButton :: MoveResise (const int x, const int y) 
{ 

if (m_pPS) 

SetWindowPos (NULL, x, y, m_pPS - >GetWidth ( ) , mjpPS- >GetHeight ( ) , 
SWP__NOZORDER | SWP_NOREDRAW | SWP_NO ACTIVATE) ; 

} 

// virtual D : \MsDev\MFC\src\WINBTN . CPP ( 113 ) 
void CPSButton: :DrawItem(LPDRAWITEMSTRUCT IpDIS) 
{ 

ASSERTdpDIS != NULL); 
if (lm_pPS) 

return; 

m__pPS->SetCell { PSBTN_NORMAL , 0) ; 
UINT state = lpDIS->itemState; 

if ((state &: ODS_SELECTED) && ( PSBTN_SELECTED < m_pPS- 
>GetNumCellRows ( ) ) ) 

m_pPS->SetCell (PSBTN_SELECTED , 0) ; 
else if (state & ODS_FOCUS) 
{ 

if (PSBTN_FOCUS < m_j)PS- >GetNumCellRows ( ) ) 
m_pPS->SetCell { PSBTN_FOCUS , 0) ; 

else 

m_pPS->SetCell (PSBTN_NORMAL, 0) ; 

} 

else if (state & ODS_DISABLED) 
{ 

if (PSBTN^DISABLED < m_pPS - >GetNumCellRows () ) 
m_pPS->SetCell (PSBTN_DISABLED, 0) ; 

else 

m_pPS->SetCell (PSBTN_NORMAL, 0) ; 

} 
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CDC* pDC - CDC: :FromHandle {lpDIS->hDC) ; 
CPalette* pPalOld - NULL; 
if (mj)Pal) 

pPalOld = pDC->SelectPalette (m_jpPal, FALSE) ; 
CRect rect; 

rect . CopyRect (&lpDIS->rcItem) ; 
if (m_j3PS) 

m_jpPS - >Draw (pDC , rect . TopLef t ( ) ) ; 
if (pPalOld) 

pDC->SelectPalette (pPalOld, FALSE) ; 



BEGIN_MESSAGE_MAP (CPSButton, CButton) 

// { {AFX_MSG_MAP (CPSButton) 

ON_WM_SETCURSOR ( ) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CPSButton message handlers 

BOOL CPSButton: :OnSetCursor{CWnd* pWnd, UINT nHitTest, UINT message) 

// if (! (GetStateO & 0x0008)) // check if it doesn't have a focus yet 
// SetState(TRUE) ; // then highlights it, 

// commented out due to flickering problems on Rendering 
/ / : : SetCursor (Af xGetApp ( ) - >LoadCursor ( IDC_HARROW) ) ; 

return TRUE; 

// return CButton :: OnSetCursor (pWnd , nHitTest, message); 
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// 

// CPSButton : 256 palette- color button 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institue 

// UNICHAT IWC 

// 

#ifndef PSBUTTON_H 

#define PSBUTTON_H 

///////////////////////////////////////////////////////////////////////////// 
// CPSButton window 

#include "PhSprite.h" 

// PhasedSprite Button to draw with 256-color palette 
// Button DIB image should align cells only in rows 
class AFX_EXT_CLASS CPSButton : public CButton 

public : 

CPSButton ( ) ; 
void Init { ) ; 

void SetPalette (CPalette* pPal) { mjPal = pPal; } // follow 

the background's palette 

BOOL Load(const CString& filename, const int nRows=3); 
BOOL Load (const WORD wResid, const int nRows=3); 

void Resize 0; // call after SubclassDlgltem in OnlnitialDialog of 
the parent 

void MoveResize (const int x, const int y) ; 
^ void MoveResize (const CPoint& ptLT) { MoveResize (ptLT . x, ptLT.y) ; 

int GetWidthO const { return m_j)PS - >GetWidth ( ) ; } 

int GetHeightO const { return m_pPS - >GetHeight () ; } 

^ CDIB* GetDIBO { return m__pPS ? m_pPS - >GetDIB () : NULL; 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CPSButton) 
//} }AFX_VIRTUAL 

// Implementation 
public : 

virtual -CPSButton () ; 

// Generated message map functions 
protected: 
enum 
{ 

PSBTN_NORMAL=0 , PSBTN_SELECTED, PSBTN_FOCUS , PSBTN_DISABLED 
} PSBUTTON__STATE ; 

virtual void Drawl tem (LPDRAWITEMSTRUCT IpDIS) ; 

CPhasedSprite* m_pPS ; 
CPalette* m_pPal; 
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//{ {AFX_MSG (CPSButton) 

afx_msg BOOL OnSetCursor (CWnd* pWnd, UINT nHitTest, UINT message); 
//}}AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

#endif // PSBUTTON_H 
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MICROSOFT FOUNDATION CLASS LIBRARY : UC2Ani 



AppWizard has created this UC2Ani DLL for you. This DLL not only 
demonstrates the basics of using the Microsoft Foundation classes but 
is also a starting point for writing your DLL. 

This file contains a summary of what you will find in each of the files that 
make up your UC2Ani DLL. 

UC2Ani . cpp 

This is the main DLL source file that contains the definition of 
DllMainO . 

UC2Ani . rc 

This is a listing of all of the Microsoft Windows resources that the 
program uses. It includes the icons, bitmaps, and cursors that are 
stored 

in the RES subdirectory. This file can be directly edited in Microsoft 
Developer Studio. 

res\UC2Ani . rc2 

This file contains resources that are not edited by Microsoft 

Developer Studio. You should place all resources not 

editable by the resource editor in this file. 

UC2Ani . def 

This file contains information about the DLL that must be 
provided to run with Microsoft Windows. It defines parameters 
such as the name and description of the DLL. It also exports 
functions from the DLL. 

UC2Ani . clw 

This file contains information used by ClassWizard to edit existing 
classes or add new classes. ClassWizard also uses this file to store 
information needed to create and edit message maps and dialog data 
maps and to create prototype member functions . 

///////////////////////////////////////////////////////////////////////////// 
Other standard files: 

StdAfx.h, StdAfx. cpp 

These files are used to build a precompiled header (PCH) file 
named UC2Ani.pch and a precompiled types file named StdAfx. obj. 

Resource . h 

This is the standard header file, which defines new resource IDs. 
Microsoft Developer Studio reads and updates this file. 

///////////////////////////////////////////////////////////////////////////// 
Other notes : 

AppWizard uses "TODO:" to indicate parts of the source code you 
should add to or customize. 
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1 1 1 1 /// 1 1 /// 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 / 11 1 1 1 1 11 / III 1 1 
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// { {no_dependencies} } 

/ / Microsoft Developer Studio generated include 

// Used by UC2Ani_Kor . rc 

// 

#define IDC_HARROW 13 9 

// Next default values for new obnects 
// 

#ifdef APSTUDIO_INVOKED 
#ifndef APSTUDIO_READONLY_SYMBOLS 
#define _APS_NEXT_RESOlIRCE_VALUE 
#define _APS_NEXT_COMMAND_VALUE 
#define _APS_NEXT_CONTROL_VALUE 
#define _APS_NEXT_SYMED_VALUE 
#endif 
#endif 



130 
32771 
1000 
101 
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// 

// CSound 
// 

// (C) Programmed by Kim, 

// 

// Information Technology Institute 

// WICHAT INC 

// 

#include "stdafx.h" 
#include " sound. h" 

#ifdef __DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CSound 

IMPLEMENT_SER I AL (CSound, CObject, 0 /* Schema number*/ ) 
CSound : : CSound ( ) 

{ 

m__pSound Image = NULL; 

} 

CSound : : --CSound ( ) 

{ 

if {m_p Sound I mage) 

delete [] m__pSoundImage ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 u 1 1 1 1 u 1 1 1 1 1 // 1 1 1 // III I / n 11 / 1 1/ 1/ / u 1 1 1 1 1 1 1 / n 1 1 1 1 

II CSound serialization 

void CSound :: Serialize (CArchive& ar) 
{ 

ASSERT (1); // Not supported 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 
1 1 CSound commands 

BOOL CSound :: Load (const char* pszFileName) 
{ 

CString strFile; 

if (Istrlen (pszFileName) == 0) 

{ 

// Show an File Open dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 

NULL, // No initial file name 
OFN_FILEMUSTEXIST | OFN_HIDEREADONLY , 
"Wave files ( * . WAV) ( * . WAV | All files 

(*.*) |*.*| 1 ") ; 
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if (dig .DoModal ( ) == IDOK) 

strFile = dig .GetPathName ( ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
StrFile = pszFileName; 

} 

// Try to open the file for read access. 
CFile file; 

if (! file - Open (strFile, CFile : rmodeRead | CFile :: shareDenyWrite) ) 
{ 

TRACE("%s not found\n", strFile); 
// StrFile += " not found!"; 

// AfxMessageBox { StrFile) ; 

return FALSE; 

} 




BOOL bResult = Load(&file) ; 
file . Close ( ) ; 
// if (IbResult) 

// AfxMessageBox ( "Failed to load wave file"); 

return bResult; 

} 



BOOL CSound: -.Load (CFile* fp) 
{ 

// Load the whole file into memory. 
// Free any existing memory, 
if (m__p Sound Image) 

delete [] m_p Sound I mage ; 
// Allocate a new block big enough for the entire file, 
int iLength = f p- >GetLength () ; 
m_j)SoundImage = new BYTE [iLength] ; 
ASSERT (mjySound Image) ; 
// Read the entire file into memory, 
int iBytes - f p- >Read (m_pSoundImage ^ iLength); 
ASSERT (iBytes == iLength); 
return TRUE; 

} 

BOOL CSound :: Load (const WORD wResid) 
{ 

ASSERT (wResid) ; 

HINSTANCE hinst = Af xGetResourceHandle ( ) ; 

HRSRC hrsrc = : : FindResource (hInst , MAKE INTRESOURCE (wResid) , "WAVE") 
if ( ! hrsrc) 

{ 

TRACE ("WAVE resource not found"); 
return FALSE; 

} 

HGLOBAL hg = LoadResource (hInst , hrsrc); 

if (!hg) 

{ 
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TRACE { "Failed to load WAVE resource"); 
return FALSE; 

} 

m_pSound Image = (BYTE* ) LockResource (hg) 
AS S ERT ( m_p S ound Image ) ; 
return TRUE; 

} 

BOOL CSound: :Play 0 

{ 

if {! m_p Sound I mage} 
{ 

TRACE ("Nothing to play"}; 
return FALSE; 

} 

return : : PlaySound ( (LPCSTR) m__pSoundImage , NULL, 

SND_MEMORY | SND_ASyNC | SND_NODEFAULT ) ; 

} 
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// 

// CSound 

// 

// (C) Programmed by Kim 

//UNI CHAT 

/ / Information Technology Institute 
// UNI CHAT INC 

// 

#ifndef SOUND 

#define SOUND 

#include <mmsystem.h> 

///////////////////////////////////////////////////////////////////////////// 
// CSound object 

class AFX_EXT_CLASS CSound : public CObject 

DECLARE_SERIAL (CSound) 
public : 

CSound ( ) ; 

virtual -CSound () ; 

BOOL Load (const char* pszFileName-^NULL) ; 

BOOL Load(CFile* fp) ; 

BOOL Load (const WORD wResid) ; 

BOOL Play 0 ; 

/ / Implementation 
protected : 

// Overridden for document i/o 

virtual void Serialize (CArchive& ar) ; 

private : 

BYTE* m_pSound Image; 

}; 

#endif // SOUND 
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// 

// CSpriteNotifyObj : 
// 

// (C) Programmed by Kim 

// SDS Media Lab 

// Information Technology Institute 

// UNICHAT INC 

// 



#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 



"stdafx.h" 
"dib.h" 
"dibpal .h" 
"spriteno.h" 
"splstno.h" 
"sprite. h" 
"spritlst .h" 
"osbview.h" 



#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FIIjE[] = FILE 

#endif 



///////////////////////////////////////////////////////////////////////////// 
// CSpriteListNotifyObj 

CSpriteListNotifyObj : : CSpriteListNotif yObi {) 
{ 

mj>SpriteList = NULL; 
m_pBuf f erView = NULL; 

} 

CSpriteListNotifyObj : : -CSpriteListNotif yObj () 
} 



// Notification callback from a CSprite object. 

void CSpriteListNotifyObj :: Change (CSprite* pSprite, CHANGETYPE change, 

CRect* pRectl, CRect* pRect2) 



{ 



if (change & CSpriteNotif yObj : : ZORDER) 
{ 

// Reposition the sprite in the z-order list. 
ASSERT (m_pSpriteList) ; 
'^_pSpriteList*>Reorder (pSprite) ; 
// Add the sprite position to the dirty list. 
ASSERT {m_jpBufferView) ; 

m__pBuf f erView->AddDirtyRegion (pRectl) ; 

if (change & CSpriteNotif yObj :: POSITION) 

// pRectl and pRect2 point to old and new rectangle positions; 
// add these rectangles to the dirty list. 
ASSERT (m_pBufferView) ; 

m_jpBuf f erView- >AddDirtyRegion (pRectl) ; 
m__pBuf f erView->AddDirtyRegion (pRect2) ; 
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if (change & CSpriteNot if yObj :: IMAGE) 
{ 

/ / redraw the sprite 

// Add the sprite position to the dirty 
ASSERT (m_pBuf f erView) ; 

m_jpBuf f erView- >AddDirtyRegion (pRectl) ; 

} 
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// 

// CSpriteListNotifyObj ; 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 
// UNI CHAT INC 

// 

// This is a class derived from CSpriteNotif yObj which is used in 
// CSpriteList to handle notification calls from CSprite objects. 



#ifndef SPLSTNO_H 

#define SPLSTNO^H 

class CSpriteList; 
class COSBView; 

#include "SpriteNo.h" 

class AFX_EXT_CLASS CSpriteListNotifyObj : public CSpriteNotif yObj 

public : 

CSpriteListNotifyObj () ; 
-CSpriteListNotifyObj () ; 

void SetList (CSpriteList* pSpriteList) { m_j>SpriteList = 

pSpriteList; } 

void SetView (COSBView* pBufferView) { m __pBuf f erView - 

pBufferView; } 

COSBView* GetViewO { return m_jpBuf f erView; } 

void Change (CSprite* pSprite, CHANGETYPE change, 

CRect* pRectl=NULL, CRect* pRect2-NULL) ; 

TT^_PSpriteList ; 
m_pBuf f erView; 



protected : 

CSpriteList* 
COSBView* 

}; 

#endif // SPLSTNO H 
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// 

// CSprite : 
// 

// (C) Programmed by Kim, 1995-96 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include "stdafx.h" 
#include "DIB .h" 
#include " Spri t eNo . h " 
#include "Sprite. h" 

#ifdef _DEBUG 

#undef THIS_FILE 

static char BASED_CODE THIS__FILE[] = FILE 
#endif 



///////////////////////////////////////////////////////////////////////////// 
// CSprite 



IMPLEMENT_SERIAL (CSprite, CObject, 0 /* Schema number */ ) 



CSprite : : CSprite 0 
{ 

m_pDIB 

m_bDeleteDIB 
m_wImOp 

m_x = m_y = m__z 

m_sEarth 

m_wType 

m_btTrans Index 
m_pNotif yObj 



= NULL; 
= TRUE; 

= DEFAULT_IO; 
m_e = 0 ; 
= CSize (0, 0) ; 

= SPRITE_STATIC; 

- 0; 

= NULL; 



CSprite : : -CSprite ( ) 
{ 

if (m_bDeleteDIB m_j3DIB) 
delete m pDIB; 

} 



CSprite& CSprite : :operator= (CSpriteS: rhs) 

if (this &rhs) 

return *this; 
SetZ (rhs .GetZ () ) ; 
if (rhs , IsResManUsed () ) 

SetDIB (rhs .GetDIB 0 ) ; 

else 
{ 

ASSERT ( rhs. GetDIBO ) ; 
if (m_pDIB) 

delete m_pDIB; 
m_pDIB = new CDIB; 
*m_pDIB = *rhs .GetDIB 0 ; 
Initial! ze ( ) ; 
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} 

SetLT{rhs.GetLT() ) ; 
SetlmOp (rhs .GetlmOp ( ) ) ; 
SetElevation (rhs .GetElevation 0 ) ; 
Set Type ( rhs . Ge tType ( ) ) ; 

m_pNotifyObj = rhs . m_pNot if yOb j ; 

return *this; 



BOOL CSprite: :operator== (CSprite& rhs) 



} 



return {(GetZ() == 

(GetDIBO = = 
{ IsResManUsed { ) 
(GetLTO = = 
(GetlmOpO = = 
(GetElevation ( ) 



rhs .GetZ () ) && 

rhs . GetDIB ( ) ) 

rhs . IsResManUsed ( ) ) 

rhs . GetLT ( ) ) && 

rhs . Get ImOp ( ) ) 

rhs - GetElevation { ) ) ) 



Sc6c 



// Set the initial state of the sprite from its DIB image. 

void CSprite: rInitializeO 

{ 

// Get the address of the top-left pixel. 

BYTE* p = (BYTE*)GetDIB() ->GetPixelAddress(0, 0) ; 

ASSERT (p) ; 

// Get the pixel value and save it. 
m_btTrans Index = *p; 



void CSprite: :SetDIB(CDIB* pDIB) 

m_pDIB = pDIB; 
m_bDeleteDIB = FALSE; 
Initialize ( ) ; 



// Set a new left-top x, y position. 

// This will move m_rcBase by the displacements 

// Notify to update the old and new rectangle area 

void CSprite : :SetLT (const int x, const int v) 

{ 

if (x == m_x && y == m_y) 
return; 

// Save the current position. 

CRect rcOld; 

GetRect (rcOld) ; 

// Move to new position. 

m_x = x ; 

m_y = y; 

CRect rcNew; 

GetRect (rcNew) ; 

// Notify that we have moved from our old position to our new positi 
if (m_pNotifyObj ) // for sprites inserted into CSpriteList 

m_j)NotifyObj ->Change (this, CSpri teNot if yObj : : POSITION, ficrcOld, 

ScrcNew) ; 

} 
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//////////////////////////////////////////////////////////////////////////f// 
// CSprite serialization 

void CSprite :: Serialize (CArchiveSc ar) 

if (ar . IsStoring {) ) 
{ 

ar << (DWORD) m__x; 
ar << (DWORD) m_y; 
ar << (DWORD) m_z/ 



{ 

DWORD dw; 

ar >> dw; m_x = (int)dw; 
ar >> dw; m_y = (int)dw; 
ar >> dw; m_z = (int)dw; 

/ / Now generate the other parameters from the DIB 
Initialize () ; 

} 

} 




iiii/iiiii/iii/i/iiiii/iii///iii//ii/ii/iii/i/iiii///ii//f//ii////i/,,,,,,,,i 

// CSprite commands 

// Render a sprite to a DIB. 

void CSprite: : Render (CDIB* pDIB, const CRect* pClipRect) 



// 



ASSERT (pDIB) ; 

// Get the sprite rectangle. 

CRect rcThis; // This sprite's region 

GetRect (rcThis) ; 

CRect rcDraw; 

// See if the sprite is visible inside the rectangle. 

if (pClipRect) 

{ 

if ( 1 rcDraw. IntersectRect (pClipRect , &rcThis) ) 
return; // not visible 

} 

else 

// For images with opacity, 

// set drawing area to contain the whole sprite rectangle. 

// So, withdraw pClipRect. pClipRect is just for hit test. 

// This is to prevent "different initial position problem" Feb 21 '98 

if (IpClipRect II (m_wlm0p & OPACITY_MASK) ) 

CRect rcOSB; 
pDIB->GetRect (rcOSB) ; 

rcDraw. IntersectRect (ircOSB, fcrcThis) ; 



/ / Copy the image of the sprite . 

GetDIB 0 ->CopyBits (pDIB, 

rcDraw. left, rcDraw. top, 
rcDraw. right - rcDraw. left, 
rcDraw. bottom - rcDraw. top, 
rcDraw. left - m x. 



// Dest DIB 
// Dest X, y 
// Width 
// Height 

/ / Source x 
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rcDraw.top - in_y, // Source y 

PALETTEIWDEX (m_btTransIndex) , 

m_wlm0p) ; // Transparent color index, Image Operation 

} 

// Load a sprite image from a disk file. 

BOOL CSprite :: Load (const char* pszFileName, const char* pszPalFileName) 
{ 

if (!m_pDIB) 

m_j)DIB = new CDIB; 
if ( iGetDIB { ) - >Load (pszFileName, pszPalFileName)) 

{ 

delete m_jpDIB; 
mjpDIB = NU-Lh; 
return FALSE; 

} 

// Make sure this is an 8 bpp DIB 
if (GetDIB 0 ->GetBitCount 0 != 8) 
{ 

Af xMessageBox ( "Only 8 bpp DIBs are supported"); 
delete m_jpDIB; 
m_pDIB = ^rULL; 
return FALSE; 

} 

Initialize ( ) ; 
return TRUE; 

} 

// Load a sprite image from a disk file. 

BOOL CSprite : :Load (CFile* const fp, const char* pszPalFileName) 
{ 

if (!m_pDIB) 

m_pDIB = new CDIB; 
if ( !GetDIB 0 ->Load(fp, pszPalFileName) ) 
{ 

delete m_jpDIB; 
m_pDIB = NULL; 
return FALSE; 

} 

Initialize ( ) ; 
return TRUE; 

} 

// Load a sprite image from a resource. 
BOOL CSprite :: Load (const WORD wResid) 
{ 

if (!m_pDIB) 

m_jpDIB = new CDIB; 
if ( IGetDIB 0 ->Load (wResid) ) 
{ 

delete m_pDIB; 
m_pDIB = NULL; 
return FALSE; 

} 

Initialize ( ) ; 
return TRUE; 
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} 

// Map colors to palette. 

BOOL CSprite : :MapColorsToPalette (CPalette* pPal) 
{ 

BOOL bResult = GetDIB ( ) ->MapColorsToPalette (pPal) ; 
// Get the transparency info again. 

// Note: Local call only; don't call any derived class. 
CSprite : : Initialize ( ) ; 
return bResult; 

} 

// Get the bounding rectangle. 

void CSprite :: GetRect (CRect& rect) const 

{ 

rect - left ~ m_x; 

rect . top = m_y; 

rect. right = m_x + GetWidthO; 

rect. bottom = m__y + GetHeightO; 

} 

// Test for a hit in a non- transparent area 
BOOL CSprite : :HitTest (const CPoint& point) const 

{ 

// Test if the point is inside the sprite rectangle 
if ( (point. X > m_x) && (point. x < m_x + GetWidthO) 
ScSc (point. y > m_y) && (point. y < m__y + GetHeightO)) 

{ 

// See if this point is transparent by testing whether the pixel 

value 

// is the same as the top left corner value. 

// Note that top left of the image is bottom left in the DIB. 
BYTE* p = (BYTE*) m_pDIB->GetPixelAddress (point -x - m__x, point. y - 

m_y) ; 

if (*p != m_btTrans Index) 
return TRUE; // hit 

} 

return FALSE; 

} 

// Set a new 2-order. 

void CSprite :: SetZ (const int z) 

{ 

if (m_z 1= z) 

{ 

m_z = z ; 

// See if we have to notify anyone, 
i f ( m_pNot i f yOb j ) 

{ 

CRect rc; 
GetRect (rc) ; 

nn_pNotifyObj ~>Change (this , CSpriteNotif yOb j : rZORDER, &rc) ; 

} 

} 

} 

/* 
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int CSprite: iSetZByGroup (const int nG) 

int nZO = -nG*GetGroupHeight ( ) - GetEarthPointY ( ) ; 
// TRACE {"Z Order=%d\n", nZO) ; 
SetZ (nZO) ; 
return nZO; 

} 

*/ 

/ / virtual 

void CSprite: :SetImOp (const WORD wImOp) 
if (m_wlm0p ! = wImOp) 

{ 

m_w I mOp = w I mOp ; 

// See if we have to notify anyone, 
if (m_pNotif yObj ) 

{ 

CRect rc ; 
GetRect (rc) ; 

m_j)NotifyObj ->Change (this, CSpriteNotif yObj : : IMAGE, &rc) 

} 

} 



BOOL CSprite :: IsSameDIB (CSprite* pS) const 

if ( !m_pDIB II !pS) 

return FALSE ; 
if (IsResManUsedO ) 

return (m_pDIB- >GetName ( ) == pS - >GetDIB ( ) - >GetName ( ) ) ; 
CString* pSl = m_pDIB- >GetName ( ) ; 
CString* pS2 = pS- >GetDIB ( ) - >GetName ( ) ; 
^ return (*pSl == *pS2); // Compare the string value 

// The y pixel coord, of the ground (earth) 

int CSprite :: GetEarthPointY 0 const 

{ 

if (GetSrcType ( ) SPRITE_TILE) 

if (m_e > 0) // For an elevated tile, look it as a normal 

spri te 

return (m_y + GetHeight () /2 - 1 + m_e) ; 
// for a tile with elev<=0, give it somewhat high priority in 

rendering 

^ return (m_y - GetHeight () *4 + m_e) ; 

^ return (m_y + m_sEarth.cy + m_e) ; 
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// 

// CSprite: 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNICHAT INC 

// 



#ifndef SPRITE_H 

#define SPRITE_H 

class CSpriteNotifyObj ; 

#include "DIB.h" 



enum SPRITE TYPE 
{ 

SPRITE_TILE = 0x0 001, 

SPRITE_WALL = 0x0002, 

SPRITE__STATIC = 0x0004, 

SPRITE_PHASED = 0x0008, 

SPRITE_ACTOR ^ 0x0010,' 

SPRITE_SRC_MASK = OxOOFF, // lower 1 byte 

SPRITE_ANI__REPEAT = 0x0100, 
SPRITE_ANI_FADE = 0x0200, 

SPRITE_ANI_RANDOM = 0x04 00, 

SPRITE_ANI_ACTOR - 0x1000, 
SPRITE_ANI_MASK = OxFFOO 



}; 



class AFX_EXT__CLASS CSprite : public CObject 



{ 

public : 



DECLARE_SERIAL (CSprite) 



CSprite () ; 

virtual -CSprite (); 

CSprite& operator= (CSpritefic rhs) ; 

BOOL operator== (CSprite& rhs) ; 



// Attributes 

CDIB* GetDIBO 
virtual int 
// Image width 

virtual int GetHeightO const { return m_pDIB- >GetHeight () • 

// Image height 



{ return m_pDIB; } 

GetWidthO const { return m_jpDIB- >GetWidth {) ; ) 



BOOL 
BOOL 
BOOL 
WORD 
WORD 
WORD 
WORD 
BOOL 
CStri 



IsImageFlipO const { return m_wlm0p & IMAGE_FLIP; 

IsImageVertical () const { return m_wimOp & IMAGE VERTICAL- ) 
IsSameDIB (CSprite* pS) const; ~ ' 

GetlmOpO const { return m_wImOp; } 
GetTypeO const { return m_wType; } 

GetSrcTypeO const { return (m_wType & SPRITE_SRC_MASK) 

GetAniTypeO const { return (m_wType & SPRITE AWI MASK) 

IsResManUsedO const { return ( !m_bDeleteDIB) ; } 

ng* GetNameO { return (m_pDIB ? m_j:)DIB- >GetName ( ) : NULL)- } 
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int GetX { ) const { return m__x; } // Get x. 

int GetYO const { return m_y; } // Get y. 

int GetZO const { return m_z ; } // Get z -order. 

int GetElevation ( ) const { return m_e; } 

CPoint GetLTO const { return CPoint (m_x, m_y) ; } 

CPoint GetCenterO const { return CPoint (m__x + GetWidth()/2, m__y + 

GetHeight (} /2) ; } 

virtual void GetRect (CRect&: rect) const; 

int GetEarthPointy ( ) const; 

CPoint GetEarthPoint ( ) const 

{ return CPoint (m_x + m_sEarth - cx, GetEarthPointY ( ) ) ; } 

CSize GetEarthO const { return m_sEarth; } 

int GetEarthCYO const { return Tn_sEarth , cy ; } 

// int GetZGroupO const { return (GetZ ( ) /GetGroupHeight { ) ) ; ) 



// Operations 

virtual void Serialize (CArchiveS: ar) ; 
void SetDIB(CDIB* pDIB) ; 

virtual BOOL Load (CFile* const fp, const char* pszPalFileName=NULL) ; 
// Load from file 

virtual BOOL Load (const char* pszFileName=NULL, const char* 
pszPalFileName=NULL) ; // Load DIB from disk file 

virtual BOOL Load (const WORD wResid) ; // Load DIB 

from resource 

void SetNotif icationObject (CSpriteNotif yObj * pNO) { m_pNotifyObj = 

pNO; } 

// Bitmap 

virtual BOOL MapColorsToPalette (CPalette* pPal) ; 

virtual void Render (CDIB* pDIB, const CRect* pClipRect=NULL) ; 

virtual void SetlmOp (const WORD wImOp) ; 

void SetOpacity (const WORD wOpacity) 

{ SetlmOp ( (m__wImOp & -'OPACITY_MASK) j wOpacity); } 
void SetOrient (const WORD wOrient) // Mirror Stage 

{ SetlmOp ( (m_wImOp & -'ORIENT_MASK) | wOrient) ; } 

void SetType (const WORD wSrcType, const WORD wAniType=0) 

{ m_wType = (wSrcType | wAniType) ; } 
void SetSrcType (const WORD wSrcType) 

{ m_wType = (wSrcType | (m_wType & ~SPRITE_SRC_MASK) ) ; } 
void Se t An i Type (const WORD wAniType) 

{ m_wType = ( (m_wType & -SPRITE_ANI_MASK) | wAniType) ; } 

// for Actors 

int TickAllO; // CPXCl ientApp : : Onldle calls this 

function 



HitTest (const CPointSt point) const; 
SetLT (const int x, const int y) ; 



// Coordinates 

virtual BOOL 
virtual void 

void SetLT (const CPoint& point) 
void SetZ (const int z) ; 
void UnelevateO { m_y += m__e; } 
void Elevate () { m_y -= m__e; } 
// int SetZByGroup (const int nG) ; 

void SetZByEarth 0 { SetZ ( -GetEarthPointY ()) ; } 

void SetEarth (const CSize sEarth) { m_sEarth = sEarth; } 



{ SetLT (point .X, point. y); } 

// Temporal use for rendering 
// " 
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} 



void SetElevation (const int e) { ^ e = e ; } 

void IncElevation (const int ie) { m~e += ie; } 

void MoveBy(const int xs , const int ys) { SetLT (m__x + xs , m_y + ys) ; 



void MoveToEarth (CPointfi: point) 

{ SetLT (point .X - m_sEarth . cx , point. y - m_sEarth.cy - 

; } 

void MoveToCenter (CPointfic point) 

{ SetLT (point ,x - GetWidth()/2, point. y - GetHeight ( ) /2 ) ; } 



protected : 

virtual void Initialize () ; 

// int GetGroupHeight 0 const { return 1000; } 

Screen . cy 



// 



// 
// 

}; 

#endif // 



CDIB* mj)DIB; 
BYTE m_btTrans Index 
WORD m_wImOp ; 
BOOL m_bDeleteDIB; 
int rn_>^ ; 

int nn_y; 
int "^_^/' 
int m_z; 
CSize m_sEarth; 
WORD m_wType ; 
CSpriteNotifyObj * m_pNo 
CSize m_offset; 
CRect m rcBase; 



/ / Transparency index value 
// Bitmap operation options 
// Delete DIB on exit? 

// X Coordinate of top-left corner 

// Y Coordinate of top-left corner 

// Elevation 

// Z-order for sprite 
// Center of Earth Point (offset) 
// Sprite Type 
tifyObj; // Pointer to a notification object 

/ / offset of the m_rcBase 
// for hit-test between actors 



SPRITE H 
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// 

// CSpriteNotifyObj : 
// 

// (C) Programmed by Kim 
// 

// Information Technology Institute 

// UNICHAT INC 

// 

// spriteno.h : header file 
// 

// CSpriteNotifyObj class: Nigel Thompson 
// 

// This is a class of pure virtual functions with no data. It is used 

// by sprite objects to make notification callbacks. A user of the CSprite 

// class can derive an object from CSpriteNotifyObj and pass a pointer to 

this 

// derived class object to the sprite object for notification calls - 

// Just like OLE's IClientSite interface really. 

// 

#ifndef SPRITENO_H 

#define SPRITENO_H 

class CSprite; 

class AFX_EXT_CLASS CSpriteNotifyObj : public CObject 
{ 

public : 

enum CHANGETYPE { 

ZORDER = 0x0001, 

POSITION = 0x0002, 

IMAGE = 0x00 04 

}; 

public : 

virtual void Change (CSprite* pSprite, CHANGETYPE change, 

CRect* pRectl=NULL, CRect* pRect2=NULL) 

0; 

}; 

#endif // SPRITENO H 
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// 

// CSpriteList : 
// 

// (C) Programmed by Kim 

// UNI CHAT 

// Information Technology Institute 
// UNICHAT INC 

// 

#include " stdaf x . h" 
#include "dib.h" 
#include "spriteno.h" 
#include "sprite. h" 
#include "splstno.h" 
#include "spritlst.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CSpriteList 

IMPLEMENT_SERIAL (CSpriteList , CObList, 0 /* Schema number */ ) 

CSpriteList: rCSpriteList () 
{ 

// Give the sprite notification object 
// a pointer to the list object. 
m_NotifyObj .SetList (this) ; 

} 

CSpriteList : : -CSpriteList ( ) 

{ 

} 

///////////////////////////////////////////////////////////////////////////// 

// CSpriteList serialization 

void CSpriteList :: Serialize (CArchive& ar) 

{ 

// Let the base class create the set of objects. 
CObList : :Serialize (ar) ; 

// If we've just loaded, initialize each sprite, 
if (ar . IsLoading ( ) (m Notif yObj . GetView ( ) ) ) 

{ 

POSITION pos = GetHeadPosition () ; 
while (pos) 

{ 

CSprite* pSprite = GetNext (pos) ; // Increment position. 
pSprite->SetNotif icationObject (&:m_NotifyObj ) ; 

} 

} 
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1 1 1 1 1 1 1 / 1 / 1 1 1 1 1 11 1 1 1 1 1 / / 1 1 11 1 1 1 1 / 1 / 1 / 1 1 // 1 1 1 / 1 1 1/ // / 1 1 / 1 1 / / 1 1 / 1 / 1 / 1 / / 1 / / / / / / 1 
II CSpriteList commands 

// Add a sprite to the list, placing it according to its z-order value. 

BOOL CSpriteList :: Insert (CSprite* pNewSprite) 

{ 

// Set the notification object pointer in the sprite 

// to the sprite list's notification object. 

if {m_NotifyObj .GetViewO ) // has associated view 

pNewSprite->SetNotif icationObject (&m_Notif yObj ) ; 

// Walk down the list until we either get to the end 
// or we find a sprite with the same or higher z-order 
// in which case we insert just before that one. 

POSITION pos = GetHeadPosition 0 ; 
POSITION posThis; 
CSprite* pSprite; 
while (pos) 

{ 

posThis = pos ; 

pSprite = GetNext (pos) ; // Increment position, 
if (pSprite->GetZ 0 >= pNewSprite- >GetZ ( ) ) 
{ 

InsertBefore (posThis, pNewSprite) ; 
return TRUE; 

} 

} 

// Nothing with the same or a higher z-order, so add the sprite to 

// the end. 

AddTail (pNewSprite) ; 

return TRUE; 

} 

// Remove a sprite from the list, but do not delete it 
CSprite* CSpriteList :: Remove ( CSprite* pSprite) 

POSITION pos = Find (pSprite) ; 
if (pos NULL) 

return NULL; 
RemoveAt (pos) ; 
return pSprite; 

} 

// Remove everything from the list deleting all the sprites we remove 

void CSpriteList : :RemoveAll (const BOOL bDelete) 

{ 

if (bDelete) 
{ 

// Walk down the list deleting objects as we go. 

//We need to do this here because the base class simply deletes 
the pointers . 

POSITION pos = GetHeadPosition 0 ; 
CSprite* pSprite; 
while (pos) 

{ 

pSprite = GetNext (pos) ; // Increment position. 
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if (pSprite) 
{ 

ASSERT (pSprite->IsKindOf (RUNTIME_CLASS (CSprite) ) ) 
if (pSprite->GetSrcType () != SPRITE_TILE) 
delete pSprite; 

} 

} 

} 

// Now call the base class to remove the pointers. 
CObList : : RemoveAll ( ) ; 

} 

// Move a sprite to its correct z-order position, 
void CSpriteList :: Reorder (CSprite* pSprite) 

{ 

// Remove the sprite from the list. 

if ( I Remove (pSprite) ) 

{ 

TRACE ("Unable to find sprite"); 
return; // Not there. 

} 

// Now insert it again in the right place. 
Insert (pSprite) ; 

} 

// Test for a mouse hit on any sprite in the list. 
CSprite* CSpriteList : :HitTest (const CPoint& point) 

{ 

// Walk the list top down. 
POSITION pos = GetHeadPosition 0 ; 
CSprite* pSprite; 
while (pos) 

{ 

pSprite = GetNext (pos) ; // Increment position, 
if (pSprite- >HitTest (point ) ) 
return pSprite; 

} 

return NULL; 

} 

void CSpriteList : :RemoveRedundantSprite (CSprite* pSprite) 
{ 

POSITION pos = GetTailPositionO ; 
POSITION posOld = pos; 
CSprite* pS; 
while (pos) 

{ 

pS ~ (CSprite* ) GetPrev (pos) ; 

if ((pS->GetZ() >= pSprite->Get2 0 ) 

(pS->GetSrcType 0 •= SPRITE_TILE) && 

(pS pSprite) ScEc // skip for tile or itself 

{*pS *pSprite) ) 

{ 

TRACE ( "RemoveRedundant Sprite - (%d,%d)\n", pS->GetX() , 

>GetY{) ) ; 

pS = (CSprite*) GetAt (posOld) ; 
Remove At (posOld) ; 
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delete pS ; 

} 

pOSOld = pOS ; 



yj 
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// 

// CSpriteList : 

// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 
// UNI CHAT INC 

// 

#ifndef SPRITELST 

#define SPRITELST 

#include "SpLstNo . h" 

class AFX_EXT_CLASS CSpriteList : private CObList 
{ 

DECLARE__SERIAL (CSpriteList) 
public : 

CSpriteList ( ) ; 

virtual -CSpri teList ( ) ; 

int GetCountO const { return CObList :: GetCount () ; } 

BOOL Insert (CSprite* pSprite) ; 

void Reorder (CSprite* pSprite) ; 

CSprite* Remove ( CSprite* pSprite) ; 

void RemoveAll (const BOOL bDelete=TRUE) ; 

CSprite* GetNext (POSITION &pos) { return 

(CSprite*) CObList : : GetNext (pos ) ; } 

CSprite* GetPrev ( POSITION &pos) { return 

(CSprite*) CObList : : GetPrev (pos) ; } 

POSITION GetTailPosition 0 const { return 

CObList: : GetTailPosition () ; } 

POSITION GetHeadPosition { ) const { return 

CObList: : GetHeadPosition ( ) ; } 

CSprite* HitTest ( const CPointSc point) ; 

virtual void Serialize (CArchiveS: ar) ; 

BOOL IsEmptyO { return CObList :: IsEmpty {) ; } 

void RemoveRedundantSprite (CSprite* pSprite); 

public : 

CSpriteListNotifyObj m__NotifyObj ; 

}; 

ftendif // SPRITELST 
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// stdafx.cpp : source file that includes just the standard includes 
// UC2Ani.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type information 
#include "stdafx.h" 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

// 



#if ! defined (AFX_STDAFX_H C193E4D9_88DD_11D1_ACEA_0 8000 9B9F3 3 9 INCLUDED_) 

#def ine AFX_STDAFX_H C193E4D9_88DD_11D1_ACEA_08 000 9B9F3 3 9 INCLUDED__ ~ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows 

headers 



#include <afxwin.h> // MFC core and standard components 

#include <afxext.h> // MFC extensions 

#ifndef _AFX_NO_OLjE_SUPPORT 

#include <afxole.h> // MFC OLE classes 

#include <afxodlgs.h> // MFC OLE dialog classes 

#include <afxdisp.h> // MFC OLE automation classes 

#endif // _AFX NO OLE SUPPORT 



#ifndef _AFX_NO_DB_SUPPORT 

#include <afxdb.h> 

#endif // _AFX_NO_DB__SUPPORT 

# i f nde f _AFX_NO_DAO_SUPPORT 

#include <afxdao.h> 

#endif // __AFX_NO_DAO__SUPPORT 

#ifndef _AFX_NO_AFXCMN_SUPPORT 

#include <afxcmn.h> 

Controls 

#endif // _AFX_NO_AFXCMN_SUPPORT 
// UC2Ani 

#include <mmsystem.h> 



// MFC ODBC database classes 



// MFC DAO database classes 



// MFC support for Windows Common 



// { { AFX_INSERT_LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

1 de f i ned ( AFX STDAFX H C 193E4D9_8 8DD_1 ID 1_ACEA_0 80009B9F33 9 INCLUDED ) 
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// UC2Ani.cpp : Defines the initialization routines for the DLL. 

// (C) Programmed by Kim 

// 

// Information Technology Institute 
// UNICHAT INC 

#include "stdafx.h" 
#include <afxdllx-h> 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS__FILE [] = FILE 

#endif ' 

static AFX_EXTENSION_MODULE UC2AniDLL = { NULL, NULL }; 
extern "C" int APIENTRY 

DllMain(HINSTANCE hinstance, DWORD dwReason, LPVOID IpReserved) 

// Remove this if you use IpReserved 
UNREFERENCED_PARAMETER( IpReserved) ; 

if (dwReason DLL_PROCESS_ATTACH) 

TRACED ("UC2ANI .DLL Ini t ializing ! \n " ) ; 

// Extension DLL one-time initialization 

if ( ! AfxInitExtensionModule (UC2AniDLL, hinstance) ) 
return 0 ; 

// Insert this DLL into the resource chain 

// NOTE: If this Extension DLL is being implicitly linked to by 

// an MFC Regular DLL (such as an ActiveX Control) 

// instead of an MFC application, then you will want to 

// remove this line from DllMain and put it in a separate 

// function exported from this Extension DLL. The Regular DLL 

// that uses this Extension DLL should then explicitly call that 

// function to initialize this Extension DLL. Otherwise, 

// the CDynLinkLibrary object will not be attached to the 

// Regular DLL's resource chain, and serious problems will 

// result. 

^ new CDynLinkLibrary (UC2AniDLL) / 

else if (dwReason == DLL_PROCESS_DETACH) 

TRACEO ( "UC2ANI . DLL Terminating ! \n" ) ; 

// Terminate the library before destructors are called 
^ AfxTermExtensionModule (UC2AniDLL) ; 

return 1; // ok 

) 
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/ /Microsoft Developer Studio generated resource script . 
// 

#include "resource. h" 

#define APSTUDIO_READONLY_SYMBOLS 

1 1 1 11 / 1 1 1 1 1 1 1 / 11 1 11 // f 1 11 1 1 1 1 11 / 1 1 1 1 1 11 1 11 1 1 / 1 1 1 1 1 1 1 1 1 / 11 1 1 1 / 1 1 1 / 1 / 1 1 1 1 / 1 1 1 11 
// 

// Generated from the TEXTINCLUDE 2 resource. 
// 

#include "afxres.h" 

///////////////////////////////////////////////////////////////////////////// 
#undef APSTUDIO_READONLY_SYMBOLS 

///////////////////////////////////////////////////////////////////////////// 
// English (U.S.) resources 

#if ! defined (AFX_RESOURCE_DLL) | | defined ( AFX_TARG_ENU ) 
#ifdef _WIN32 

LANGUAGE LANG__ENGLISH , SUBLANG_ENGLISH_US 
#pragma code j)age (12 52) 
#endif //_WIN32 

#ifdef APSTUDIO_INVOKED 

I / 1 / 1 1 1 1 / 1 1 1 n / 1 1 1 1 / / 1 1 / / 11 1 1 1 1 1 1 1 1 1 1 1 f / / 1 1 / 1 / 1 1 1 / 1 1 1 1 f 1 1 1 1 / 11 1 1 / 1 / 1 1 n / 1 1 1 11 

II 

II TEXTINCLUDE 
// 

1 TEXTINCLUDE DISCARDABLE 
BEGIN 

resource . h\ 0 " 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include " "afxres .h" "\r\n" 
" \ 0 " 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#def ine _AFX_NO_SPLITTER_RESOURCES\r\n" 

"#def ine _AFX_NO_OLE_RESOURCES\r\n" 

" #de f i ne _AFX_NO_TRACKER_RE S OURCE S \ r \ n " 

"#def ine _AFX_NO_PROPERTY_RESOURCES\r\n" 

"\r\n" 

"#if 'defined (AFX_RESOURCE_DLL) | | def ined (AFX_TARG_ENU) \ r\n" 

"#ifdef _WIN32\r\n" 

"LANGUAGE 9, l\r\n" 

"#pragma code_page ( 12 52 ) \r\n" 

"#endif \r\n" 

"#include " " res\\UC2Ani . rc2 " " // non-Microsoft Visual C++ edited 
resources \r\n" 

"#include "" afxres . rc " " // Standard component s\r\n" 

"#endif \0" 

END 
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Eng.K 





#endif 



// APSTUDIO_INVOKED 



#ifndef _MAC 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 // 1 1 1 1 1 1 / 1 1 1 1 1 // 1 1 1 1 / 1 1 1 1 // 11 1 / 1 1 / 1 / 1 11 1 n I / 1 1 1 1/ 1 / 1 11 11 1 11 1 / 1 1 
II 

II Version 
// 

VS_VERSION_INFO VERSIONINFO 

FILEVERSION 2,1998,3,30 

PRODUCTVERSION 2,0,0,0 

FILEFLAGSMASK 0x3 fL 
#ifdef __DEBUG 

FILEFLAGS OxlL 
#else 

FILEFLAGS OxOL 
#endif 

FILEOS 0x4L 

FILETYPE 0x2L 

FILESUBTYPE OxOL 
BEGIN 

BLOCK "StringFilelnfo" 
BEGIN 

BLOCK "040904b0" 

BEGIN 



VALUE "Comments", "Special Thanks to mimi-..\0" 

VALUE "CompanyName" , "UNICHAT\0" 

VALUE "FileDescription" , "UC2Ani DLL\0" 

VALUE "FileVersion" , "2, 1998, 3, 30\0" 

VALUE "InternalName" , "UC2Ani\0" 

VALUE "LegalCopyright " , "Copyright (C) 1998 Programmed by 



VALUE " LegalTrademarks " , " \ 0 " 

VALUE "OriginalFilename" , "UC2Ani . DLL\ 0 " 

VALUE "PrivateBuild" , "\0" 

VALUE "ProductName" , "UC2Ani Dynamic Link Library\0" 

VALUE "ProductVersion" , "2, 0, 0, 0\0" 

VALUE "SpecialBuild" , "\0" 



END 

END 

BLOCK "VarFilelnfo" 
BEGIN 

VALUE "Translation", 0x409, 1200 

END 

END 

#endif // !_MAC 



///////////////////////////////////////////////////////////////////////////// 



UNICHAT\0 



// 

// Cursor 
// 



IDC HARROW 



CURSOR 



DISCARDABLE 



res\\harrow . cur 



II 
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#endif // English (U.S.) resources 

///////////////////////////////////////////////////////////////////////////// 



#ifndef AP STUD I 0_ INVOKED 

///////////////////////////////////////////////////////////////////////////// 

// Generated from the TEXTINCLUDE 3 resource. 
// 

#define _AFX_NO_SPLITTER_RESOURCES 
#define _AFX_NO_OLE_RE SOURCES 
#define _AFX_NO_TRACKER_RE SOURCES 
#def ine _AFX_NO_PROPERTY_RESOURCES 

#if !def ined(AFX_RESOURCE_DLL) | | def ined { AFX_TARG_ENU) 

#ifdef _WIN32 

LANGUAGE 9, 1 

#pragma code_page ( 12 52 ) 

#endif 

#include " res\UC2Ani . rc2 " // non-Microsoft Visual C++ edited resources 

#include "afxres.rc" // Standard components 

#endif 

///////////////////////////////////////////////////////////////////////////// 
#endif // not APSTUDIO INVOKED 
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// 

// CWave : 

// 

// (C) Programmed by Kim 

// 

// Information Technology Instituge 

// UNI CHAT INC 

// 

#include " s tdaf x . h" 
#include "wave.h" 
#include "mem.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] ^ FILE ; 

#endif ' 

///////////////////////////////////////////////////////////////////////////// 
// CWave 

IMPLEiy[ENT_SERIAL {CWave, CObject, 0 /* Schema number*/ ) 

// Create a simple waveform so there's something there. 
CWave : : CWave ( ) 

{ 

m_pS amp 1 e s = NULL ; 
m_jDOutDev = NULL; 
m_bBusy = FALSE; 
Create (16) ; 

} 

CWave : : -CWave ( ) 
{ 

if {m__bBusy) 
{ 

StopO ; 

} 

ASSERT ( !m_bBusy) ; 
if {mj>Samples) 

FREE (m_jpSamples) ; 



///////////////////////////////////////////////////////////////////////////// 
// CWave serialization 

void CWave :: Serialize (CArchive& ar) 

{ 

ar . Flush C ) ; 

CFile* fp = ar .GetFile 0 ; 
if (ar . IsStoring ( ) ) 

{ 

^ ASSERT(O); // Save(fp); 

else 



A-911 



UC2Ani\Wave.cpp 

{ 

Load (f p) ; 

} 

} 

1 1 1 1 II 1 1 1 1 1 1 1 1 / 1 II 1 1 / 1 1 1 // 1 1 III // 1 III 1 1 /I I // 1 1 1 1 1 1 / 1 1 // 1 1 1 1 m / 1 1 // 1 / 1 1 1 / 1 1 

II CWave notification functions 

void CWave : : OnWaveOutDone ( ) 

{ 

} 

void CWave : : OnWavelnData ( ) 

{ 
} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 / 1 1 / 1 / 1 1 / 

II CWave commands 

BOOL CWave :: Create (const int nsamples, const int samprate, const int 
sampsize) 

{ 

// validate the args 

if ( (samprate != 11025) && (samprate != 22050) && (samprate != 44100)) 

TRACE ("Invalid sample rate: %d", samprate); 
return FALSE; 

} 

if ((sampsize 8) && (sampsize != 16)) 

TRACE ( "Invalid sample size: %d'\ sampsize); 
return FALSE; 

} 

// Allocate memory for the samples, 
int iBytes = nsamples * sampsize / 8; 
void* pSamples = ALLOC (iBytes ) ; 
if ( IpSamples) 
{ 

TRACE ("Out of memory for samples"); 
return FALSE; 

} 

// Free existing memory and replace it. 
if (m_pSamples) FREE (mjSamples ) ; 
m_pSamples = pSamples ; 
m_iSize = iBytes; 

// Fill out the format info, 

m _jpcmf mt . wFormatTag = WAVE FORMAT PCM; 

m_pcmfmt .nChannels ^ 1- // Q^ly do mono, 

m_pcmf mt . nSamplesPerSec = samprate; 

m_pcmf mt . nAvgBytesPerSec ^ samprate; 

m_pcmfmt .nBlockAlign = sampsize I Q; II Number of bytes 

m _pcmf mt . wBitsPerSample = sampsize; 

// Set the buffer to silence. 
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for (int i=0; i < nsamples; 

{ 

SetSample (i , 0) ; 

} 

return TRUE; 

} 

BOOL CWave : : Play (CWaveOutDevice* pWaveDevice) 
if (pWaveDevice) 

{ 

m_pOutDev = pWaveDevice; 
return pWaveDevice- >Play (this ) ; 

else 

{ 

m j>OutDev = &theDef aultWaveOutDevice; 
return theDef aultWaveOutDevice . Play (this) ; 

) 

void CWave:: Stop 0 

{ 

if ( ! m_bBusy) 
return; 
ASSERT (mjOutDev) ; 
m_j50utDev- >Stop () ; 

} 

BOOL CWave :: Load (const char* pszFileName ) 
CString strFile; 

if ((pszFileName == NULL) || ( strlen (pszFileName) 0)) 

// Show an open file dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 

NULL, // No initial file name 

OFN_FILEMUSTEXIST | OFN_HIDEREADONLY , 
"Wave files ( * . WAV) I * . WAV | All files 

(*.*) |*.*| I ") ; 

if (dlg.DoModal ( ) == IDOK) 

{ 

StrFile = dlg.GetPathName () ; 

} 

else 

{ 



} 

else 

{ 



} 



return FALSE ; 



// Copy the supplied file path. 
StrFile = pszFileName; 
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// Try to open the file for read access. 
CFile file; 

if C 1 file .Open (strFile, CFi le : : modeRead | CFile :: shareDenyWrite) ) 

{ 

AfxMessageBox C "Failed to open file"); 
return FALSE; 

} 

BOOL bResult = Load(&file); 
file. Close {) ; 

if (IbResult) AfxMessageBox ( "Failed to load file"); 
return bResult; 

} 

BOOL CWave Load (CFile *fp) 
{ 

return Load (f p- >m_hFile) ; 

} 

BOOL CWave :: Load (const UINT hFile) 
{ 

HMMIO hmmio; 
MMIOINFO info; 

: : ZeroMemory (&inf o, sizeof (info) ) ; 
inf o . adwinf o [0] = hFile; 

hmmio = mmioOpen (NULL , &:info, MMIO_READ | MMIO_ALLOCBUF) ; 
if ( ! hmmio) 

{ 

TRACE ( "mmioOpen failed"); 
return FALSE; 

} 

BOOL bResult = Load (hmmio); 
mmioClose (hmmio, MMIO_FHOPEN) ; 
return bResult; 

} 

BOOL CWave :: Load (const HMMIO hmmio) 

{ 

// Check whether it's a RIFF WAVE file. 
MMCKINFO ckFile; 

ckFile . f ccType = mmioFOURCC ( ' W ' , ' A ' , • V ' , ' E ' ) ; 

if (mmioDescend (hmmio, ickFile, NULL, MMIO_FINDRIFF) 0} 

{ 

TRACE("Not a RIFF or WAVE file"); 
return FALSE; 

} 

// Find the ' f mt ' chunk. 
MMCKINFO ckChunk; 

ckChunk . ckid = mmioFOURCC ( ' f ' , ' m ' , ' t ' , ' • ) ; 

if (mmioDescend (hmmio, &:ckChunk, &ckFile, MMIO_FINDCHUNK) != 0) 
{ 

TRACE("No fmt chunk in file"); 
return FALSE; 

} 

// Allocate some memory for the fmt chunk, 
int isize = ckChunk . cksize ; 
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WAVEFORMATEX* pfmt = ( WAVE FORMATEX* ) ALLOC { iSi ze ) ; 

ASSERT (pfmt) ; 

// Read the fmt chunk. 

if {mmioRead (hmmio, (char* ) pfmt , iSize) •= iSize) 

TRACE ( "Failed to read fmt chunk"); 
FREE (pfmt) ; 
return FALSE; 

} 

// Check whether it's in PCM format. 

if (pf mt->wFormatTag != WAVE_FORMAT PCM) 

TRACE ("Not a PCM file"); 
FREE (pfmt) ; 
return FALSE ; 

} 

// Get out of the fmt chunk. 
mmioAscend (hmmio, &ckChunk, 0); 
// Find the 'data' chunk. 

ckChunk . ckid = mmioFOURCC ( ' d ' , • a ' , ' t ' , ' a ' ) ; 

if (mmioDescend (hmmio, tckChunk, &ckFile, MMIO_FINDCHUNK) 

TRACEC'No data chunk in file"); 
FREE (pfmt) ; 
return FALSE; 

} 

// Allocate some memory for the data chunk. 

iSize = CkChunk. cksize; 

void* pdata = ALLOC ( iSize) ; 

if (ipdata) 

{ 

TRACE ("No mem for data"); 
FREE (pfmt) ; 
return FALSE; 

} 

// Read the data chunk. 

if (mmioRead (hmmio, (char* ) pdata , iSize) != iSize) 

TRACEC'Failed to read data chunk"); 
FREE (pfmt) ; 
FREE (pdata) ; 
return FALSE; 

} 

// Wrap the CWave object around what we have, 
memcpy (&m_pcmfmt, pfmt, sizeof (m_pcmfmt) ) ; 
// Replace the samples, 
if (m_pSamples) 

FREE (m_pSamples) ; 
m_pSamples = pdata; 
m_iSize -- iSize; 

return TRUE; 

} 

BOOL CWave :: LoadResource (const WORD wID) 

{ 

ASSERT (wID) ; 
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HINSTANCE hinst = Af xGetResourceHandle ( ) ; 

HRSRC hrsrc - : : FindResource (hInst , MAKEINTRESOURCE ( wID) , "WAVE"); 
if ( Ihrsrc) 

{ 

TRACE ('*WAVE resource not found"); 
return FALSE; 

} 

HGLOBAL hg = : : LoadResource (hInst , hrsrc); 

if (Ihg) 

{ 

TRACE ( "Failed to load WAVE resource"); 
return FALSE; 

} 

char* pRes = (char* ) : : LockResource (hg) ; 
ASSERT (pRes) ; 

// Mark the resource pages as read/write so the mmioOpen 
// won't fail 

int iSize :: Sizeof Resource (hInst , hrsrc); 
DWORD dwOldProt; 

BOOL b = : : VirtualProtect (pRes , iSize, PAGE_READWRITE , &dw01dProt) 
ASSERT (b) ; 

// Open the memory block as an HMMIO object 
HMMIO hmmio; 
MMIOINFO info; 

memset (&:inf o, 0, sizeof ( info) ) ; 
inf o . f ccIOProc = FOURCC_MEiyi ; 
inf o - pchBuf f er = pRes; 
inf o . cchBuf f er = iSize; 

hmmio ^ mmioOpen (NULL , Siinfo, MMIO_READ) ; 
if ( ! hmmio) 

{ 

TRACE ( "mmioOpen failed. Error %d\n" , inf o . wErrorRet ) ; 
return FALSE; 

} 

BOOL bResult = Load (hmmio) ; 
mmioClose (hmmio, MMIO__FHOPEN) ; 

// Note: not required to unlock or free the resource in Win32 
return bResult; 

} 

// Get the number of samples, 
int CWave : : GetNumSamples 0 const 

{ 

ASSERT (m_pcmfmt . wBitsPerSample) ; 

return m_iSize * 8 / m_pcmf mt , wBitsPerSample ; 

} 

// Get a sample value scaled as a 16 bit signed quantity, 
int CWave : :GetSample (int index) const 

{ 

if ((index < 0) || (index >= GetNumSamples ()) ) 

{ 
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TRACE ( "Sample index out of range"); 
return 0 ; 

} 

switch (m__pcmf mt . wBi tsPerSample ) 

{ 

case 8 : 
{ 

BYTE *p = (BYTE *) m_jpSamples; 
int i = p [index] ; // 0 ~ 255; 
return (i - 128) * 256; 

} 

break; 
case 16: 
{ 

ASSERT (sizeof (short int) 2); 

short int* p (short int *) m_pSamples; 

return p [index] ; 

} 

break; 

default : 

break; 

} 

ASSERT(l); // Invalid bits per sample 
return 0 ; 

} 

// Set a sample value from a 16 bit signed quantity, 
void CWave :: SetSample (const int index, const int iValue) 

{ 

if ((index < 0) || (index >= GetNumSamples ( ) ) ) 

{ 

TRACE ( "Sample index out of range"); 
return; 

} 

switch (m_pcmf mt . wBitsPerSample) 

{ 

case 8 : 
{ 

BYTE* p - (BYTE*)m_pSamples; 
p [index] = iValue / 256 + 128; 
} break; 

case 16: 

{ 

ASSERT (sizeof (short int) 16); 
short int* p = (short int * ) mjiSamples ; 
p [index] - iValue; 
} break; 

default : 

ASSERT(l); // Invalid bits per sample 
break; 

} 

} 
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#ifndef WAVE 

#define WAVE 

#include "waveodev.h" 



///////////////////////////////////////////////////////////////////////////// 

// CWave object 

class AFX_EXT_CLASS CWave : public CObject 

DECLARE_SERIAL (CWave) 
public : 

CWave ( ) ; 
^CWave ( ) ; 

BOOL Create (const int nsamples, const int samprate=ll025 , const int 
samps ize = 8 ) ; 

BOOL Play (CWaveOutDevice* pWaveOutDevice = NULL) ; 
void Stop () ; 

BOOL Load (const char* pszFileName=NULL) ; 

BOOL Load(CFile* fp) ; 

BOOL Load (const UINT hFile) ; 

BOOL Load (const HMMIO hmmio) ; 

BOOL LoadResource (const WORD wID) ; 

// Attributes 
public : 

^ WAVEFORMATEX* GetFormat ( ) { return (WAVEFORMATEX* ) &m_pcmf mt ; 

CWaveOutDevice* GetOutDevice ( ) { return m_pOutDev; } 

int GetSizeO const { return m_iSize; } 

int GetNumSamples () const ; 

int GetSample (const int index) const ; 

virtual void OnWaveOutDone ( ) ; 

virtual void OnWavelnData ( ) ; 

SetSample (const int index, const int iValue) ; 

// Implementation 
public : 

void* GetSamplesO { return m_pSamples; } 

BOOL IsBusyO const { return m_bBusy; } 

void SetBusy (const BOOL b) { m_bBusy = b; } 

protected : 

virtual void Serialize (CArchive& ar) ; // Overridden for document 

I/O 



private : 
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WAVEFORMATEX 
■ >WAVEFORMATEX 
void* 
int 

CWaveOutDevice* 
BOOL 



}; 

#endif // 



WAVE 



m__pcmf mt ; 



// PCM wave format header; PCMWAVE FORMAT - 



m_pSamples; // Pointer to the samples 

ni_isize; // Size in bytes 

m__pOutDev; // Output device 

m_bBusy; // Set to TRUE if playing or recording 
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II 

II CWaveOutDevice : 
// 

// (C) Programmed by Kim 

// 

/ / Information Technology Institute 

// UNI CHAT INC 

// 



#include "stdafx.h" 
#include "wave.h" 



#ifdef __DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [] = FILE 
#endif 



// global items 

CWaveOutDevice theDef aultWaveOutDevice ; 

if/in/ii//ii/iii/ii//i//i/iii//////,/ii/i//mi////i/n/i/////i//i,,ii,,,/,, 

1 1 CWaveOutDevi ce 



CWaveOutDevice : : CWaveOutDevice ( ) 

m_hOutDev = NULL; 
m_iBlockCount = 0; 

} 



CWaveOutDevice : : -CWaveOutDevice ( ) 

} 



BEGIN_MESSAGE_MAP (CWaveOutDevice, CWnd) 
// { {afx_MSG_MAP (CWaveOutDevice) 
ON^MESSAGE (MM_WOM_DONE , OnWomDone ) 
//} }AFX_MSG_MAP 

END_MESSAGE_MAP ( ) 



BOOL CWaveOutDevice : : Create ( ) 
{ 

if ( !CreateEx(0, Af xRegisterWndClass ( 0 ) , "Wave Wnd" , 
^ WS_POPUP, 0, 0, 0, 0, NULL, NULL)) 

TRACE ("Failed to create wave notification window"), - 
return FALSE; 

} 

return TRUE; 

} 



#ifndef _DEBUG 
#define lyiMERR(n) 0 
#else 

void MMERR (MMRESULT mmr) 
{ 

switch (mmr) 

{ 
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case WAVERR_BADFORMAT : 

TRACE ("No wave device supports format"); 

break; 
case MMSYSERR_NOMEM : 

TRACE ( "Out of memory" ) ; 

break; 

case MMSYSERR_ALLOCATED : 

TRACE { "Resource is already allocated"); 
break; 

case MMSySERR_BADDEVICEID: 

TRACE ("Bad device id"); 
break; 

case MMSYSERR_INVALHANDLE: 

TRACE (" Invalid device handle"); 
break; 

case MMS YSERR_HANDLEBUSY : 

TRACE ( "Device in use by another thread"); 

break; 
case WAVERR_UNPREPARED : 

TRACE { "Header not prepared"); 

break; 
default : 

TRACE ( "Unknown error" ) ; 

break; 

} 

} 

#endif // _DEBUG 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / n / 1 /// 1 1 1 1 / 1 1 1 1 1 //// 1 1 1 m 1 1 / 1 1 1 1 / 1 1 

II CWaveOutDevice message handlers 




LRESULT CWaveOutDevice :: OnWomDone (WPARAM w, LPARAM 1) 

{ 

ASSERT (1) ; 

WAVEHDR* phdr = (WAVEHDR*)1; 

CWave* pWave = (CWave*) (phdr- >dwUser) ; 

ASSERT (pWave->lsKindOf (RUNTIME_CLASS (CWave) ) ) ; 

CWaveOutDevice* pOutDev = pWave- >GetOutDevice ( ) ; 

ASSERT (pOutDev) ; 

pOutDev- >WaveOutDone (pWave , phdr) ; 
return 0 ; 

} 

BOOL CWaveOutDevice : : IsOpen ( ) 

{ 

return m_hOutDev ? TRUE : FALSE; 

} 

// WAVEFORMAT superseded by WAVEFORMATEX in Visual C++ 4.0 
BOOL CWaveOutDevice; -.Open (WAVEFORMATEX* pFormat) 

{ 

// Make sure we have a callback window. 

if (lm_hWnd) 

{ 

Create 0; // Create the window. 
ASSERT (m_hWnd) ; 

} 
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// See whether it's already open for this format. 

if (IsOpen 0 ) 

{ 

// See whether it can handle this format, 
if (CanDoFormat (pFormat) ) 

{ 

return TRUE; 

} 

else 
{ 

TRACE ("Open for different format"); 
return FALSE ; 

} 

} 



// See whether we can open for this format. 

MMRESULT mmr = waveOutOpen ( &:m_hOutDev , WAVE_MAPPER, pFormat , 

(DWORD) (GetSafeHwndO ) , 0, 

CALLBACK_WINDOW) ; 
if (mmr) 
{ 

MMERR(mmr) ; 
return FALSE; 

} 



return TRUE; 

} 

BOOL CWaveOutDevice :: CanDoFormat (WAVEFORMATEX* pFormat) 

if (! IsOpen 0) 
{ 

TRACE ("Not open"); 
return FALSE; 

} 

HWAVEOUT hDev = NULL; 

MMRESULT mmr = waveOutOpen ( fichDev , WAVE_MAPPER, pFormat, NULL, 
WAVE_FORMAT_QUERY) ; 
if (mmr) 
{ 

MMERR (mmr) ; 
return FALSE; 

} 

return TRUE; 

} 



BOOL CWaveOutDevice: : Close 0 

{ 

if (m_hOutDev) 

{ // Close the device. 

waveOut Reset (m_hOutDev) ; 

MMRESULT mmr = waveOutClose (m_hOutDev) ; 
if (mmr) 

MMERR (mmr) ; 
m_hOutDev = NULL; 
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// Destroy the window. 
DestroyWindow ( ) ; 
ASSERT (Tn_hWnd == NULL) ; 
return TRUE; 

} 

BOOL CWaveOutDevice : : Play (CWave* pWave) 

{ 

if ( I Open (pWave- >Get Format 0) ) 
return FALSE; 

// Allocate a header. 

WAVEHDR* phdr = ( WAVEHDR* ) malloc ( sizeof (WAVEHDR) ) ; 
ASSERT (phdr) ; 

// Fill out the wave header. 
: : ZeroMemory (phdr, sizeof (WAVEHDR) ) ; 
//#if 1 // BUGFIX for VC++ 2.0 

// phdr->lpData = (BYTE*) pWave- >GetSamples ( ) ; 
//#else 

phdr->lpData = (char*) pWave- >GetSamples { ) ; 
//#endif 

phdr->dwBuf f erLength - pWave- >GetSize ( ) ; 

phdr->dwUser = (DWORD) (void* ) pWave ; // So we can find the object 

/ / Prepare the header 

MMRESULT mmr = waveOutPrepareHeader (m_hOutDev, phdr, sizeof (WAVEHDR) ) 
if (mmr) 

{ 

MMERR (mmr) ; 
return FALSE; 

} 

// Mark the wave as busy. 
pWave->SetBusy (TRUE) ; 

// Start it playing. 

mmr = waveOutWrite (m_hOutDev, phdr, sizeof (WAVEHDR) ) ; 

if (mmr) 

{ 

MMERR (mmr) ; 
return FALSE; 

} 

// Add one to the block count. 
m_iBlockCount ++ ; 

return TRUE; 

} 

void CWaveOutDevice : : Stop ( ) 
{ 

ASSERT (m_hOutDev) ; 
waveOut Reset (m_hOutDev) ; 

} 

void CWaveOutDevice :: WaveOutDone (CWave* pWave, WAVEHDR* pHdr) 

{ 

// Unprepare the header. 
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MMRESULT mmr = waveOutUnprepareHeader {m_hOutDev , pHdr, 
sizeof (WAVEHDR) ) ; 
i f ( mmr ) 

MMERR (mmr) ; 
// Free the header, 
free (pHdr ) ; 

/ / Decrement the block count . 
ASSERT (m_iBlockCount > 0); 
m_iBlockCount - - ; 

if (m_iBlockCount == 0) // Close the device. 
Close {) ; 

// Notify the object that it is done. 
pWave- >SetBusy (FALSE) ; 
pWave- >OnWaveOutDone { ) ; 
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// 

// CWaveOutDevice 
// 

// (C) Programmed by Kim 
// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#ifndef WAVEODEV 

#define WAVEODEV 

#include <mmsystem . h> 

///////////////////////////////////////////////////////////////////////////// 
// CWaveOutDevice object 

class CWave; 

class AFX_EXT_CLASS CWaveOutDevice : public CWnd 
{ 

// Attributes 
public : 

BOOL IsOpen {) ; 

BOOL CanDoFormat (WAVEFORMATEX* pFormat) ; 

// Operations 
public : 

CWaveOutDevice 0 ; 

BOOL Open (WAVEFORMATEX* pFormat); 

BOOL Close {) ; 

BOOL Play (CWave* pWave) ; 

void Stop ( ) ; 

void WaveOutDone (CWave* pWave, WAVEHDR* pHdr) ; 

// Implementation 
public : 

virtual -^CWaveOutDevice () ; 

private : 

BOOL Create () ; 

HWAVEOUT m^hOutDev; // Output device handle 

int m_iBlockCount ; // Number of blocks in the queue 

// Generated message map functions 
protected : 

//{ {AFX_MSG (CWaveDevWnd) 

afx_msg LRESULT OnWomDone (WPARAM w, LPARAM 1) ; 
//} }AFX__MSG 
DECLARE_MESSAGE_MAP ( ) 

}; 

// some global items 

extern CWaveOutDevice theDef aultWaveOutDevice ; 

///////////////////////////////////////////////////////////////////////////// 
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#endif // WAVEODEV 
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// 

// CDIB 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#include "stdafx.h" 
#include "DIB.h" 
#include "DiBPal .h" 

#include <lzexpand.h> 

#ifdef _VICTOR 

#include <vicdefs.h> // link Vic32ms.lib 
#endif 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

//#if ! defined (KSM_REPORT) 
// #define KSM_REPORT 

//#endif 
#endif 

///////////////////////////////////////////////////////////////////////////// 
// CDIB 

IMPLEMENT_SERIAL(CDIB, CObject, 0 /* Schema number */) 

// Create a small DIB here so mjBMI and m_j)Bits are always valid. 
CDIB: :CDIB () 

{ 

m_jpBMI = NULL; 

inj)Bits = NULL; 

m_bMy B its ^ TRUE ; 
m_bMapColorsDone = FALSE; 
m_strName . Empty ( ) ; 
Create (16, 16) ; 

} 

CDIB: :~CDIB() 
{ 

// Free the memory, 
if (m_pBMI) 

free (mjBMI) ; 
if (m_bMyBits m_pBits) 

f ree {m_jpBits ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 

// CDIB serialization 

//We don't support this yet. 
void CDIB :: Serialize (CArchive& ar) 
{ 
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} 



ar. Flush () ; 

CFile* fp = ar.GetFileO 

if (ar . IsStoring 0 ) 
{ 

Save (fp) ; 

} 

else 

{ 

Load (fp) ; 

} 



///////////////////////////////////////////////////////////////////////////// 

// Private functions 

static BOOL IsWinDIB (const BITMAP I NFOHEADER *pBIH) 
ASSERT (pBIH) ; 

if ( { (BITMAPCOREHEADER*)pBIH) ->bcSi2e sizeof (BITMAPCOREHEADER) ) 

return FALSE ; 
return TRUE; 

} 

static int NumDIBColorEntries (BITMAPINFO* pBmpInfo) 

BITMAPINFOHEADER* pBIH 
BITMAPCOREHEADER* pBCH 
int iColors, iBitCount 

ASSERT (pBmpInfo) ; 

pBIH = & (pBmpInfo->bmiHeader) ; 
pBCH = (BITMAPCOREHE7UDER*)pBIH; 

// Start off by assuming the color table size from the bit -per-pixel 

field. 

iBitCount = IsWinDIB (pBIH) ? pBIH- >biBi tCount : pBCH- >bcBi tCount ; 

switch ( iBitCount ) 
{ 

case 1: iColors = 2; break 

case 4: iColors = 16; break 

case 8: iColors = 256; break 

default: iColors = 0; break; 



//If this is a Windows DIB, then the color table length is determined 
//by the biClrUsed field if the value in the field is nonzero, 
if (IsWinDIB (pBIH) && (pBIH- >biClrUsed 1= 0)) 
iColors = pBIH->biClrUsed; 

// BUGFIX 18 Oct 94 NigelT 

// Make sure the value is reasonable since some products 
// will write out more then 256 colors for an 8 bpp DIB ! ! ! 
int iMax = 0 ; 
switch (iBitCount) 
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{ 

case 1 : iMax = 2 ; break 

case 4; iMax = 16; break 

case 8: iMax - 256; break 

default: iMax ^ 0; break; 

} 

if (iMax) 
{ 

if (iColors > iMax) 



{ 



TRACE ( "Invalid color count\n"); 
iColors = iMax; 



} 



} 

return iColors ; 



1 1 / 1/ 1 1 / 1 11 / 1 1 1 / 11 1 n / / 1 f 1 11 / 1/ 1 / 1 / / 1 / 1 / / / 1 1 1 / 1/ 11 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 
II CDIB commands 
#ifdef DEBUG 



#endif 

// Create a new empty 8bpp DIB with a 256 entry color table. 

BOOL CDIB :: Create (const iwidth, const iHeight, const char* pszPalFileName) 

{ 

// Delete any existing stuff, 
if (m_pBMI) 

free (m_pBMI) ; 
if (m__bMyBits && m_pBits) 

free (Tn_jpBits) ; 



// Allocate memory for the header. 

m_pBMI = (BITMAPINFO*) malloc (sizeof (BITMAPINFOHEADER) + 256 * 
sizeof (RGBQUAD) ) ; 

if (!m_jpBMI) 
{ 

TRACE ("Out of memory for DIB header\n"); 
return FALSE; 

} 

// Allocate memory for the bits (DWORD aligned) . 
int iBitsSize = ((iWidth + 3) & --3) * iHeight; 
m_jpBits ~ (BYTE* ) malloc ( iBitsSize) ; 
if ( !m_j>Bits) 

{ 

TRACE ("Out of memory for DIB bits\n"); 
free (m_pBMI) ; 
m_pBMI = NULL; 
return FALSE; 

} 

m_bMyBits = TRUE; 

// Fill in the header inf o . 

BITMAPINFOHEADER* pBI = (BITMAPINFOHEADER* ) m_jpBM I ; 
pBI->biSi2e = sizeof (BITMAPINFOHEADER) ; 

pBI->biWidth = iWidth; 

pBI->biHeight = iHeight; 
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pBI- >biPlanes = 1; 

pBI->biBitCount = 8; 
pBI - >biCompression 
pBI - >biSize Image 
pBI- >biXPelsPeriyieter 
pBI - >biYPelsPerMeter 
pBI->biClrUsed 
pBI - >biClrImportant 



= 0 
= 0 
= 0 



= BI RGB; 



0 ; 
0; 



// Create an arbitrary color table (gray scale) 
if (pszPalFileName) 

{ 



} 

else 
{ 



LoadPalette (pszPalFileName) ; 



RGBQUAD* prgb = GetClrTabAddress ( ) ; 
for (int i=0; i < 256; i++) 



{ 



} 



prgb->rgbBlue = prgb- >rgbGreen = prgb->rgbRed = (BYTE) i 
prgb->rgbReserved = 0; 
prgb++ ; 



} 

// Set all the bits to a known state (black). 
: :ZeroMemory (m_pBits, iBitsSize) ; 



return TRUE; 

} 



int CDIB : :GetBitsSize 0 const 
{ 

if (Im_pBMI) 

return 0 ; 

BITMAPINFOHEADER* pBI = (BITMAPINFOHEADER* ) m_pBMI ; 
^ return ( ( (pBI->biWidth + 3) & -3 ) *pBI - >biHeight ) ; 

void CDIB: rClearlmage () 
{ 

if (m_pBits) 

{ 

: :ZeroMemory (m_pBit:s, GetBitsSize () ) ; 

} 

void CDIB: iClearRect (CRect& rcClear) 
{ 

if ( Im_pBits) 

return; 
int w = rcClear.WidthO ; 
int h ^ rcClear .Height 0 ; 
// Test for silly cases, 
if (w == 0 I I h 0) 

return; 
int xd = rcClear. left; 
int yd = rcClear. top; 
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} 



BYTE* pDest = (BYTE* ) GetPixelAddress (xd , yd + h - 1) ; 
ASSERT (pDest) ; 

// Get the scan line widths of each DIB. 

int iDInc = StorageWidth ( ) ; // Source increment value 

while (h--) // Fill the lines 

{ 

: : ZeroMemory (pDest , w) ; 
pDest iDInc ; 

} 



// Create a CDIB structure from existing header and bits. 

// The DIB won't delete the bits and makes a copy of the heade 

BOOL CDIB :: Create (BITMAPINFO* pBMI , BYTE* pBits) 

{ 

ASSERT (pBMI) ; 
ASSERT (pBits) ; 
if (m_pBMI} 

free (m_jpBMI) 

m_pBMI = (BITMAPINFO* ) malloc (sizeof (BITMAPINFOHEADER) + 
256*si2eof (RGBQUAD) ) ; 

ASSERT (m_pBMI) ; 

// Note: This will probably fail for < 256 color headers 
: : CopyMemory (m_pBMI , pBMI , sizeof (BITMAPINFOHEADER) + 
NumDIBColorEntries (pBMI) *sizeof (RGBQUAD) ) ; 

if (m_bMyBits m_pBits) 

f ree (m_pBits ) ; 
m__pBits = pBits; 

m_bMyBits = FALSE; //We can't delete the bits- 
return TRUE; 

} 

// Load a palette from the file and replace existing one 
BOOL CDIB ; :LoadPalette (const char* pszPalFileName) 

{ 

CDXBPal pal; 
PALETTEENTRY PE [ 2 5 6 ] ; 

BOOL bRes = pal . Load (pszPalFileName , PE) ; 
SetPaletteEntries (0, 256, PE) ; 
return bRes; 

} 

// Load a DIB from an open file. 

// Soomin Kim made the following BMP variations 

// BMZ : LZ compressed BMP file 

// BM: Excluding palette section from BMP 

// BMC: Compressed BM file 

BOOL CDIB : :Load (CFile* const f p , const char* pszPalFileName) 
{ 

BOOL bIsPM = FALSE; 
BOOL bIsLZ = FALSE; 
BOOL bIsBMC = FALSE; 
BITMAPINFO* pBmpInfo = NULL; 
BYTE* pBitS = NULL; 
UINT hLZFile; 
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// Get the current file position. 
DWORD dwFileStart = f p- >GetPosit ion ( ) ; 

// Read the file header to get the file size and to find where the bits 
start in the file. 

BITMAPFILEHEADER BmpFileHdr; 

int iBytes = f p - >Read (^BmpFileHdr , sizeof (BmpFileHdr) ) ; 

if (iBytes 1= sizeof (BmpFileHdr) ) 

{ 

TRACE ( "Failed to read file header\n"); 
goto $abort; 

} 

if (BmpFileHdr .bf Type == Ox5a53) // • SZ ' 

( 

bIsLZ = TRUE; 

hLZFile = : : LZInit (f p- >m_hFile) ; 
// long iFileSize = : : L2Seek (hFile , OL, 2); // points to the end of 

file 

// TRACE ("Compressed BMP: %ld bytes . \n" , IFileSize); 

: :LZSeek (hLZFile, dwFileStart, 0); // seek to beginning of file 
: :LZRead (hLZFile, (char* ) &BmpFileHdr , sizeof (BmpFileHdr) ) ; 



f (BmpFileHdr.bfType == 0x4342) // 'BC 

bIsBMC = TRUE; 

Ise if (BmpFileHdr.bfType i= Ox4d42) // • BM • 

TRACE("Not a bitmap file\n"); 
goto $abort ; 



// Make a wild guess that the file is in Windows DIB format and read 
the BITMAPINFOHEADER. 

// If the file turns out to be a PM DIB file we'll convert it later. 
BITMAPINFOHEADER BmpInfoHdr; 
if (blsIiZ) 

iBytes = : : LZRead (hLZFile , (char* ) &BmpInf oHdr , 
sizeof (BmpInfoHdr) ) ; 
else 

iBytes = f p- >Read {&BmpInf oHdr , sizeof (BmpInfoHdr) ) ; 
if (iBytes != sizeof (BmpInfoHdr) ) 

{ 

TRACE ( "Failed to read BITMAPINFOHEADER\n" ) ; 
goto $ abort; 

} 

// Check that we got a real Windows DIB file. 

if (BmpInfoHdr. biSize != sizeof (BITMAPINFOHEADER) ) 

{ 

if (BmpInfoHdr .biSize 1= sizeof (BITMAPCOREHEADER) ) 
{ 

TRACE (" File is not Windows or PM DIB format\n"); 
goto $ abort; 
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} 

// Set a flag to convert PM file to Win format later . 
bIsPM = TRUE; 

// Back up the file pointer and read the BITMAPCOREHEADER 
// and create the BITMAPINFOHEADER from it. 
if (bIsLZ) 

: :LZSeek (hLZFile, dwFileStart + sizeof (BITMAPFILEHEADER) , 

0) ; 

else 

fp->Seek {dwFileStart + sizeof (BITMAPFILEHEADER) , 

CFile : :begin) ; 

BITMAPCOREHEADER BmpCoreHdr ; 
if (bIsLZ) 

iBytes = : -. LZRead (hLZFile , (char* ) &:BmpCoreHdr , 
sizeof (BmpCoreHdr) ) ; 

else 

iBytes = fp- >Read (&BmpCoreHdr , sizeof (BmpCoreHdr) ) ; 
if (iBytes 1= sizeof (BmpCoreHdr) ) 
{ 

TRACE ("Failed to read BITMAPCOREHEADER\n" ) ; 
goto $ abort; 

} 

Bmpinf oHdr . biSize 
Bmpinf oHdr . biwidth 
Bmpinf oHdr . biHeight 
Bmpinf oHdr . biP lanes 
Bmpinf oHdr . biBi tCount 
Bmpinf oHdr . biCompression 
Bmpinf oHdr . biSize Image 
BmpInfoHdr . biXPelsPerMeter 
Bmpinf oHdr . biYPelsPerMeter 
BmpInfoHdr . biClrUsed 
BmpInfoHdr . biClrlmportant 

} 

// Work out how much memory we need for the BITMAPIMFO structure, color 

table 

// and then for the bits. Allocate the memory blocks. 

// Copy the BmpInfoHdr we have so far, and then read in the color table 
from the file. 

int iColors ; 

int iColorTableSize ; 

iColors 

NumDIBColorEntries { (LPBITMAPINFO) &BmpInf oHdr) ; 

iColorTableSize = iColors * sizeof (RGBQUAD) ; 
// Always allocate enough room for 256 entries, 
int iBISize; 
int iBitsSize; 

iBISize = sizeof (BITMAPINFOHEADER) + 256 * sizeof (RGBQUAD) ; 

iBitsSize = BmpFileHdr . bf Size - BmpFileHdr . bf Of f Bits ; 

TRACEC'CDIB: :Load(\"%s\") size=%ld\n'\ m__strName, BmpFileHdr . bf Size) ; 

// Allocate the memory for the header. 



sizeof (BITMAPINFOHEADER) ; 

= ( int ) BmpCoreHdr . bcWidth ; 

= (int) BmpCoreHdr .bcHeight; 

:= BmpCoreHdr . bcPlanes ; 
BmpCoreHdr . bcBit Count ; 
BI_RGB; 
0; 
0; 
0; 
0; 
0; 
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pBmpInfo = (LPBITMAPINFO) malloc (iBISize) ; 

if { IpBmpInfo) 

{ 

TRACE ("Out of memory for DIB header\n"); 
goto $abort; 

} 

// Copy the header we already have. 

: :CopyMemory (pBmpInf o, &:BmpInfoHdr, sizeof (BITMAPINFOHEADER) ) ; 

// Now read the color table from the file, 
if (bIsBMC) 

{ 

: : ZeroMemory { { (LPBYTE) pBmpInf o) + sizeof (BITMAPINFOHEADER) , 
iColorTableSize) ; 

} 

else 
{ 

if (IblsPM) 
{ 

// Read the color table from the file, 
if (bIsLZ) 

iBytes = : : LZRead (hLZFile , ( char* )(( (LPBYTE) pBmpInfo) 
+ sizeof (BITMAPINFOHEADER) ) , iColorTableSize) ; 
else 

iBytes = fp- >Read (( (LPBYTE) pBmpInfo) + 
sizeof (BITMAPINFOHEADER) , iColorTableSize) ; 

if (iBytes != iColorTableSize) 
{ 

TRACE ( "Failed to read color table\n"); 
goto $abort; 

} 

} 

else 
{ 

// Read each PM color table entry in turn and convert it to 
Win DIB format as we go. 

LPRGBQUAD IpRGB = (LPRGBQUAD) ( (LPBYTE ) pBmpInfo + 
sizeof (BITMAPINFOHEADER) ) ; 

RGBTRIPLE rgbt ; 

for (int i=0; i < iColors; i++) 
{ 

if (bIsLZ) 

iBytes = : : LZRead (hLZFile , { char* ) &rgbt , 



sizeof (RGBTRIPLE) ) ; 



else 

iBytes = f p- >Read ( &rgbt , sizeof (RGBTRIPLE) ) ; 
if (iBytes != sizeof (RGBTRIPLE) ) 
{ 

TRACE ( "Failed to read RGBTRIPLE\n" ) ; 
goto $abort; 

} 

lpRGB->rgbBlue = rgbt . rgbtBlue ; 
lpRGB->rgbGreen = rgbt . rgbtGreen ; 
lpRGB->rgbRed = rgbt . rgbtRed ; 

IpRGB- >rgbRe served = 0; 
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lpRGB++ ; 

} 

} 

} 

// Allocate the memory for the bits and read the bits from the fi 

pBits = (BYTE*)malloc (iBitsSize) ; 

if (IpBits) 

{ 

TRACE ("Out of memory for DIB bits\n"); 
goto $abort; 

} 

// Seek to the bits in the file, 
if (bIsLZ) 

: :LZSeek (hLZFile, dwFileStart + BmpFileHdr . bf Of f Bits , 0) ; 

else 

fp->Seek (dwFileStart + BmpFileHdr . bf Of f Bits , CFile : :begin) ; 

// Read the bits, 
if (bIsLZ) 

iBytes = :: LZRead (hLZFile , (char* ) pBits , iBitsSize) ; 

else 

iBytes = fp->Read(pBits, iBitsSize); 
if (iBytes != iBitsSize) 
{ 

TRACE ("Failed to read bits\n"); 
goto $abort ; 

} 

// Everything went OK. 
if (bIsLZ) 

: :LZClose (hLZFile) ; 
if (m_pBMI) 

free (m__pBMI ) ; 
m_pBMI = pBmpInfo; 
if (m_bMyBits && m__pBits) 

free (m__pBits) ; 
mj)Bits = pBitS; 

m_bMyBits = TRUE; 

if (pszPalFileName) // Overload the palette entries with that 

the specified file 

{ 

LoadPalette (pszPalFileName) ; 

} 

return TRUE; 

$abort : // Something went wrong. 

if (blsLZ) : iLZClose (hLZFile) ; 

if (pBmpInfo) f ree (pBmpInfo) ; 

if (pBits) free(pBits); 
return FALSE; 



// Load a DIB from a disk file. 
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// If no file name is given, show an Open File dialog to get one . 
BOOL CDIB :: Load (const char* pszFileName , const char* pszPalFileName ) 

if ( (pszFileName == NULL) || (strlen CpszFileName) 0)) 

{ 

// Show an Open File dialog to get the name. 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 
NULL, // No initial file name 
OFN_FILEiyiUSTEXIST | OFN_HIDEREADONLY, 

#ifdef _VICTOR 

"Bitmap 

files|*.DIB;*.BMP,-*.BM;*.gif jpg,-*.tif |A11 files ( * . * ) | * . * | | " ) ; 
#else 

"Bitmap 

files (* .DIB; * .BM*) | * .DIB; * .BM* | All files ( * . * ) | * , * | | " ) ; 
#endif // ^VICTOR 

if (dlg.DoModal () == IDOK) 

m_strName = dig . GetPathName ( ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
m_strName = pszFileName; 

} 

BOOL bResult; 
#ifdef _VICTOR 

int nFT = GetBitmapFileType (m_strName) ; 

if ((nFT == FILE_BMP) || (nFT == FILE_BM) || (nFT =- FILE_BMZ) || (nFT 
= = FILE_BMC) ) 

{ 

#endif // _VICTOR 

// Try to open the file for read access. 
CFile file; 

if (! file . Open (m_strName , CFile :: modeRead | 
CFile: : shareDenyWrite) ) 
{ 

TRACEl("File Open Failure: %s\n", m_strName) ; 
return FALSE; 

} 

bResult = Load(&file, pszPalFileName); 
file. Close () ; 
#ifdef _VICTOR 

} 

else 

{ 

imgdes orglmg; // original image 

imgdes cnvlmg; // converted image (24bit color -> 8bit color) 

switch (nFT) 

{ 

case FILE_GIF: 

LoadGIF (m_strName , &orgImg) ; 

break; 
case FILE TIF: 
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liOadTIF (m_strName, &orgImg) ; 
break ; 
case FILE_JPG: 

LoadiJPG {m_strName , &orgImg) ; 
break; 

} 

if (orglmg - bmh->biBi t Count != 8) 
{ 

if ( Great elmageS (&orgImg, &cnvlmg) NO_ERROR) 

AfxMessageBox ( "Image color dithering failure.") 
return FALSE; 

} 

free image (&orgImg) ; 

bResult = LoadFromlmage ( (LPVOID) cnvlmg.bmh) ; 
free image (&cnvlmg) ; 

} 

else 
{ 

bResult = LoadFromlmage ( (LPVOID) orglmg .bmh) ; 
freeimage {&orgImg) ; 

} 

} 

#endif // _VICTOR 

return bResult; 

} 

BOOL CDIB :: LoadSource (const char* pszSrcFileName , 

const char* pszFileName, 
const char* pszPalFileName ) 

{ 

// Open pszSrcFileName 
// 

/* 

CFile file; 

if (! file . Open (m_strName, CFile : imodeRead | 
CFile: : shareDenyWrite) ) 

{ 

TRACElC'File Open Failure: %s\n'\ m_strName) ; 
return FALSE; 

} 

: :LZSeek(hLZFile, dwFileStart + BmpFileHdr . bf Of f Bits , 0) ; 
bResult = Load(&file, pszPalFileName); 

*/ 

return TRUE; // Load DIB from disk file 

} 

// Load a DIB from a resource id. 
BOOL CDIB: : Load (const WORD wResid) 
{ 

ASSERT (wResid) ; 

HINSTANCE hinst = Af xGetResourceHandle () ; 

HRSRC hrsrc = : : FindResource (hInst , MAKEINTRE SOURCE (wResid) , "DIB" 
if { ! hrsrc) 

{ 

TRACEIC'DIB resource not found (HRSRC : %x) " , hrsrc); 
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return FALSE; 

} 

HGLOBAL hg = : : LoadResource (hins t , hrsrc) ; 

if (!hg) 

{ 

TRACEl ("Failed to load DIB resource (HGLOBAIi : %x) " , hg) ; 
return FALSE; 

} 

m_strName . Format ( "RES : %d" , wResid) ; 

BYTE* pRes = (BYTE* ) : : LockResource (hg) ; 
ASSERT (pRes) ; 

int iSize = :: Sizeof Resource (hinst , hrsrc); 

// Mark the resource pages as read/write so the mmioOpen won't fail 
DWORD dwOldProt; 

BOOL, b = : :VirtualProtect (pRes, iSize, PAGE READWRITE, &dwOldProt) • 
ASSERT (b) ; ~ 

// Now create the CDIB object. We will create a new header from the 

data 

//in the resource image and copy the bits from the resource to a new 
block of memory. 

//We can't use the resource image as-is because we might want to map 
the DIB colors ^ 

// and the resource memory is write protected in Win32. 
BITMAPFILEHEADER* pFileHdr = (BITMAPFILEHEADER* ) pRes ; 
ASSERT (pFileHdr->bf Type == 0x4D42); // BM file 
BITMAP INFOHEADER* pInfoHdr = ( BITMAP I NFOHEADER* ) (pRes + 
sizeof (BITMAPFILEHEADER) ) ; 

ASSERT (pInfoHdr->biSize sizeof (BITMAPINFOHEADER) ) ; // must be a Win 

DIB 

BYTE* pBits = pRes + pFileHdr->bfOf fBits; 

BOOL bResult = Create ( (BITMAPINFO* ) pInfoHdr , pBits); 

return bResult; 

^ // Note: not required to unlock or free the resource in Win32 

// Draw the DIB to a given DC. 

void CDIB: --Draw (CDC* pDC, const x, const y) 

: iStretchDIBits (pDC- >GetSaf eHdc () , 

X, y, DibWidthO, DibHeightO, // Destination x, y 

width, height 

0, 0, DibWidthO, DibHeightO, // Source x, y, width 

height 

GetBitsAddress () , // Pointer to bits 

GetBitmapInf oAddress ( ) , // BITMAPINFO 

DIB_RGB_COLORS, // Options 

SRCCOPY); // Raster 

operation code (ROP) 

} 

// Draw a portion of source DIB to the destination 

void CDIB: : Draw (CDC* pDC, const xd, const yd, const w, int h, const xs , const 
ys) 
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{ 

: rStretchDIBits (pDC->GetSafeHdc 0 , 

xd, yd, h, // Destination x, 

y, width, height 

xs, DibHeight ( ) - (ys+h) , w, h, // Source x, y, width, height 
GetBitsAddress () , // Pointer to bits 

GetBitmapInf oAddress ( ) , // BITMAPINFO 

DIB_RGB_COLORS, // Options 

SRCCOPY) ; // Raster 

operation code (ROP) 

} 

// Tile 

void CDIB: : Tile (CDC* pDC, const xO, const yO , CRect&: rcClient) 

for (int y=yO; y <= rcClient . bottom; y += DibHeight ( ) ) 

for (int x=xO; x <= rcClient . right ; x += DibWidthO) 
Draw(pDC, x, y) ; 

} 

// Get the number of color table entries, 
int CDIB : iGetNumClrEntries ( ) const 

{ 

return NumDIBColorEntries {m_pBMI) ; 



// map the colors in this DIB to the identity palette specified 

// NOTE: This assumes all CDIB objects have 256 color table entries. 

BOOL CDIB : :MapColorsToPalette (const CPalette* pPal) 

if (m_bMapColorsDone) 

return TRUE; 
if (!pPal) 
{ 

TRACE ("No palette to map to\n"); 
return FALSE; 

} 

ASSERT (m__pBMI) ; 

ASSERT (m_j5BMI->bmiHeader.biBitCount == 8); 
ASSERT (m_jpBits) ; 

LPRGBQUAD pctThis = GetClrTabAddress ( ) ; // We can redirect the 
palette address 

// with 

SetClrTabAddress (...) function. 
ASSERT (pctThis) ; 

// Build an index translation table to map this DIBs colors to those of 
the reference DIB. 

BYTE imap [2 56] ; 
#ifdef _DEBUG 

int iChanged = 0; // For debugging only 

#endif 

for (int i=0; i < 256; i++) 
{ 

imap [i] = (BYTE) pPal - >GetNearestPaletteIndex ( 

RGB (pctThis ->rgbRed, 

pctThis ->rgbGreen, 
pctThis ->rgbBlue) ) ; 
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pctThis++ ; 
#ifdef _DEBUG 

if (imap[i] != i) 

iChanged++; // For debugging 

TRACE { "CDIB : :MapColorsToPalette changed %d colors. \n", iChanged) ; 

#else 

} 

#endif 

// Now map the DIB bits, 

BYTE* pBits = (BYTE*)GetBitsAddress () ; 
int isize = StorageWidth ( ) * DibHeightO; 
while (isize--) 

{ 

*pBits = imap [*pBits] ; 
pBitS++ ; 

} 

// Now reset the DIB color table so that its RGB values match those in 
the palette. 

PALETTEENTRY pe [2 56] ; 

pPal->GetPaletteEntries (0, 2 56, pe) ; 
pctThis = GetClrTabAddress 0 ; 
for (i=0; i < 256; i++) 
{ 

pctThis ->rgbRed = pe[i].peRed; 

pctThis ->rgbGreen ^ pe [i] .peGreen; 
pctThis - >rgbBlue = pe [i] .peBlue; 
pctThis++ ; 

} 

// Now say all the colors are in use 
m_pBMI->bmiHeader .biClrUsed = 256; 
m_bMapColorsDone = TRUE; 
return TRUE; 

} 

// Get a pointer to a pixel . 

// NOTE: DIB scan lines are DWORD aligned. 

// The scan line storage width may be wider than the scan line image width 
// so calc the storage width by rounding the image width to the next highest 
DWORD value - 

void* CDIB : iGetPixelAddress (const x, const y) const 

// Note: This version deals only with 8 bpp DIBs . 

ASSERT (m_pBMI->bmiHeader.biBitCount =^ 8); 

// Make sure it's in range and if it isn't return zero. 

if ( (x >= DibWidthO) || (y >= DibHeight ( ) ) ) 

{ 

TRACE ( "Attempt to get out of range pixel address\n"); 
return NULL; 

} 

// Calculate the scan line storage width, 
int iWidth = StorageWidth () ; 

return mjBits + (DibHeight () -y- 1 ) * iWidth + x; 
// Get the bounding rectangle. 
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void CDIB : iGetRect {CRect& rect) const 
{ 

rect . left = rect . top = 0; 
rect. right = DibWidth ( ) ; 
rect. bottom = DibHeightO; 

} 



// Copy a rectangle of the DIB to another DIB. 
// Note: We only support 8bpp DIBs here. 

void CDIB : : CopyBits (CDIB* pdibDest, const xd, const yd, 

const w, int h, const xs , const ys, const COLORREF 

clrTrans , 

const WORD wImOp) 

{ 

ASSERT (m_pBMI- >bmiHeader .biBitCount == 8) / 
ASSERT (pdibDest) ; 

WORD opacity = wImOp & OPACITY_MASK; 
// Test for silly cases. 

if (w == 0 II h 0 II opacity OPACITY_0) 

return ; 

BOOL bMirror = wImOp & IMAGE_FLIP; 

BOOL bVT - wImOp & IMAGE_VERTICAL ; // Vertical Transformation 

// Get pointers to the start points in the source and destination DIBs. 
// Note that the start points will be the bottom-left corner of the 

DIBs 

// because the scan lines are reversed in memory. 
BYTE* pSrc = (BYTE* ) GetPixelAddress (xs , ys+h-1) ; 
ASSERT (pSrc) ; 

BYTE* pDest = (BYTE* ) pdibDest - >GetPixelAddress (xd, (bVT) ? yd : (yd+h- 

D) ; 

ASSERT (pDest) ; 



// Get the scan line widths of each DIB. 

int iScanS = StorageWidth ( ) ; 

int iScanD = pdibDest- >StorageWidth () ; 

int iSInc = (bMirror) ? iScanS : (iScanS - w) ; // Source increment 

value 

int iDInc - (bVT) ? (-iScanD - w) : (iScanD - w) ; // Destination 
increment value 

int i Count; 
BYTE pixel ; 



if (clrTrans == OxFFFFFFFF) // 6c& opacity == OPACITY_100) 

{ 

if (bMirror) 

{ 

while (h--) // Copy the lines 

{ 

iCount = w; // Number of pixels to scan. 

pSrc += W; 
while (iCount--) 

{ 

pixel = *(--pSrc); 

*pDest++ = pixel; 

} 
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pSrc += iSInc; 
pDest += iDInc; 

} 

} 

else // IMirror 
{ 

while (h--) // Copy the lines 
{ 

: :CopyMemory (pDest, pSrc, w) ; 
pSrc += iScanS; 
if (bVT) 

pDest -= iScanD; 

else 

pDest += iScanD; 

} 

} 

} 

else // USE_COLORKEY 

{ 

// Copy lines with transparency. 

// Note: We accept only a PALETTEINDEX description for the color 

definition . 

ASSERT ( (clrTrans & OxFFOOOOOO) == 0x01000000); 
BYTE bTransClr = LOB YTE (LOWORD (clrTrans )) ; 

if (opacity OPACITY 100) 
{ 

if (bMirror) 

{ 

while (h--) 

{ 

iCount = w; // Number of pixels to scan. 

pSrc += w; 
while (iCount--) 
{ 

pixel = *(--pSrc)/ // *pSrc-- 

was THE BUG!!! 22:30 Oct 12 Sat '96 at ImKwang 

// Copy pixel only if it isn't 

transparent . 

if (pixel != bTransClr) *pDest++ = pixel ; 
^ ^Ise pDest++; 

// Move on to the next line. 
pSrc += iSlnc; 
pDest += iDInc ; 

} 

} 

else // ! bMirror 
{ 

while (h--) 

{ 

iCount = w; // Number of pixels to scan, 

while (iCount--) 

{ 

pixel = *pSrc++; 

// Copy pixel only if it isn't 

transparent . 
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if (pixel != bTransClr) *pDest++ = pixel 
else pDest++; 

} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc; 



else if (opacity == OPACITY 75) 



0,2,1,3,0, 



transparent . 
bTransClr) ) 



mt r; 
int d=4; 

if (bMirror) 

{ 



// zero or one 
// 3/4 



while (h--) 

{ 



i Count = w; 
r - h % d; 



// Number of pixels to scan. 
// 0,1,2,3,0, . . . => 



if (r==l) 

r = 2; 
else if (r==2) 

r = 1; 
pSrc += W; 
while (iCount--) 

{ 

pixel = * (--pSrc) ; 

// Copy pixel only if it isn't 

if ((iCount % d != r) && (pixel != 

*pDest++ = pixel; 



else 



pDest++ ; 



transparent . 



} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc; 

} 

} 

else // ibMirror 

{ 

while (h--) 

{ 

iCount = w; 
r = h % d; 
if (r==l) 

r = 2; 
else if (r==2) 

r = 1; 

while (iCount--) 

{ 

pixel = *pSrc++; 

// Copy pixel only if it isn't 



// Number of pixels to scan. 
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bTransClr) ) 



} 

} 

else // 
{ 



if ( (iCount % d != r) (pixel 
*pDest + + = pixels- 



else 



pDest ++ ; 



} 

/ / Move on to the next line . 
pSrc += iSInc; 
pDest += iDInc; 



!OPACITY_100 , OPACITY_75 



int r; 
int d; 

switch (opacity) 
{ 

case OPACITY__12 
case OPACITY__2 5 
case OPACITY_5 0 
default : 



d = 4 
d = 2 



breaks- 
break; 



d = 2 



break; 



// 
// 
// 



1/64 paint 

1/4 

1/2 



different 



line 

transparent . 
bTransClr) ) 



if (bMirror) 

{ 



while (h--) 

{ 

iCount = w; // Number of pixels to scan. 

r = h % d; // Since adjacent lines should be 

pSrc += W; 
while (iCount--) 
{ 

if ((opacity != OPACITY_5 0) && (r != 0)) 



{ 



pSrc -= (iCount+1) ; 
pDest += (iCount+1) ; 

break; // skip this scan 

} 

pixel = *(--pSrc); 

// Copy pixel only if it isn't 

if ((iCount % d == r) (pixel 

*pDest++ = pixel; 



else 



pDest++ ; 



} 



} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc ; 



} 

else // iMirror 
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while (h--) 



decreased in while statement 



line 



transparent . 
bTransClr) ) 



i Count ^ w; 
r = h % d; 
while (iCount--) 



// Number of pixels to scan. 



{ 



if ({opacity 1= OPACITY_5 0) (r !^ 0)) 

pSrc (iCount+1) ; // since 1 

pDest += (iCount+1) ; 

^^eaJ^; // skip this scan 

} 

pixel = *pSrc++; 

// Copy pixel only if it isn't 
if ({iCount % d == r) && (pixel != 
*pDest++ = pixels- 



else 



pDest++ ; 



} 

// Move on to the next line. 
pSrc += iSInc; 
pDest += iDInc; 



} 



} 



#ifdef KSM_REPORT 

Static int D_CopyBitsCount = 0; 

TRACE3("CDIB::CopyBits(%d,%d)=%d\n", h, ++D CopyBitsCount) ; 

#endif — 

} 

// Save a DIB to a disk file. 

// This is somewhat simplistic because we only deal with 256 color DiBs 

// and we always write a 256 color table. 

BOOL CDIB: :Save(CFile* const fp, const BOOL bPalette) 

BITMAPFILEHEADER bfh; 

// Construct the file header. 

bfh.bfType - (bPalette) ? 0x4D42 : 0x4342; // • BM ' or ' BC ' 
bfh.bfSize = 

sizeof (BITMAPFILEHEADER) + 

sizeof (BITMAPINFOHEADER) + 

StorageWidthO * DibHeight ( ) ; 
if (bPalette) 

bfh.bfSize += 256 * sizeof (RGBQUAD) ; 
bf h . bf Reservedl = 0; 
bfh .bfReserved2 = 0; 

bfh bfOffBits = sizeof (BITMAPFILEHEADER) + sizeof (BITMAPINFOHEADER) - 
if (bPalette) ' 

bfh. bfOffBits 256 * sizeof (RGBQUAD) ; 
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// Write the file header, 
int iSize = sizeof (bfh) ; 
TRY 
{ 

fp->Write (£cbf h, iSize) ; 

} 

CATCH (CFileException, e) 

TRACE ( "Failed to write file header"); 
return FALSE ; 
} END_CATCH 

// Write the BITMAPINFO structure. 

// Note: we assume that there are always 256 colors in the color table 
ASSERT (m_pBMI) ; 

iSize = sizeof (BITMAPINFOHEADER) ; 
if (bPalette) 

iSize += 256 * sizeof (RGBQUAD) ; 

TRY 
( 

fp->Write {m_pBMI, iSize) ; 

} 

CATCH (CFileException, e) 
{ 

TRACE ( "Failed to write BITMAPINFO"); 
return FALSE; 
} END_CATCH 

// Write the bits. 

iSize = StorageWidth 0 * DibHeightO; 

TRY 

{ 

fp->Write {m_pBits, iSize) ; 

} 

CATCH (CFileException, e) 
{ 

TRACE ( "Failed to write bits"); 
return FALSE; 
} END_CATCH 

return TRUE; 

} 

// Save a DIB to a disk file. If no file name is given, show a File Save 
dialog to get one. 

BOOL CDIB :: Save (const char* pszFileName) 

{ 

CString strFile; 

if ((pszFileName == NULL) || (strlen (pszFileName) ==: 0)) 

// Show a File Save dialog to get the name. 

CFileDialog dig (FALSE, // Save 

NULL, //No default extension 
m_strName, //No initial file name 

0FN_OVERWRITEPR0MPT | OFN_HIDEREAJDONLY , 
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"Image files 

(* .DIB; * .BM*) I * .DIB; * . BM* | All files ( * - * ) | * . * | | " ) 
if (dlg-DoModal 0 IDOK) 
{ 

strFile = dig . GetPathName ( ) ; 

} 



} 

else 

{ 



} 



else 

{ 
} 



return FALSE; 



// Copy the supplied file path. 
StrFile pszFileName ; 



// Try to open the file for write access. 
CFile file; 

if (! file .Open (strFile, CFile :: modeReadWrite 
CFile: : shareExclusive) ) 



{ 



} 



AfxMessageBox ( "Failed to open file"); 
return FALSE; 



CFile: :modeCreate 



BOOL bResult = Save(&file, (GetFileType ( strFile) ! FILE_BM) ) 
file . Close ( ) ; 
if (IbResult) 

AfxMessageBox ( "Failed to save file"); 
return bResult; 



CDIB: :BITMAP_FILE_TYPE CDIB : : GetFi leType ( LPCSTR szFile) 
{ 



char* p = strrchr (szFile , '.'); 

if (p) 

{ 

if (Istrcmpi (p, "BM") 



// -extension 



0) // BMP, BMZ, BMC, 



switch (toupper (p [2] ) ) 

{ 

case NULL: return FILE_BM; 
case ' Z • : return FILE_BMZ 
case 'C: return FILE_BMC 
default: return FILE_BMP 

} 

} 

if (Istrcmpi (p, "GIF") == 0) 

return FILE__GIF; 
if (Istrcmpi (p, "TIF") == 0) 

return FILE_TIF; 
if (Istrcmpi (p, "JPG") == 0) 
return FILE_JPG; 



} 

char szMsg[256] 



// 
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wsprintf (szMsg, "Unrecognized bitmap file type - \"%s\"", szFile) ; 
AfxMessageBox(szMsg) ; 
return FILE_NONE; 

} 

#ifdef _VICTOR 

///////////////^ 
// Victor 

// Load a DIB from an open file. 
BOOL CDIB : :LoadFromImage (LPVOID pimg) 

BYTE* pSrc = (BYTE*)pImg; 

/ / Work out how much memory we need for the BITMAPINFO structure color 

table 

// and then for the bits. Allocate the memory blocks. 
// Always allocate enough room for 256 entries. 
// Allocate the memory for the header. 

BITMAPINFO* pBmpInfo = (LPBITMAPINFO) malloc ( sizeof (BITMAPINFOHEADER) + 
256 * sizeof (RGBQUAD) ) ; 
if ( IpBmpInf o) 
{ 

TRACE ("Out of memory for DIB header"); 
return FALSE; 

} 

/ / Copy the header 

: :CopyMemory (pBmpInf o, pSrc, sizeof (BITMAPINFOHEADER) ) ; 
pSrc += sizeof (BITMAPINFOHEADER) ; 

int iBitsSize = pBmpInf o- >bmiHeader . biSizelmage ; 

// Copy the BmpInfoHdr we have so far, and then read in the color table 
from the file. 

int iColorTableSize = NumDIBColorEntries (pBmpInf o) * 

sizeof (RGBQUAD) ; 

// Read the color table from the file. 

: :CopyMemory ( ( ( LPBYTE) pBmpInf o) + sizeof (BITMAPINFOHEADER) , pSrc, 
iColorTableSize) ; 

pSrc += iColorTableSize; 

// Allocate the memory for the bits and read the bits from the file 
BYTE* pBits = (BYTE*) malloc (iBitsSize) ; 
if (IpBits) 
{ 

TRACE("Out of memory for DIB bits"); 
if (pBmpInfo) 

free (pBmpInfo) ; 
return FALSE; 

} 



// Read the bits. 

: rCopyMemory (pBits, pSrc, iBitsSize) ; 

// Everything went OK. 
if (mjBMI) 

free (m_pBMI ) ; 
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m_pBMI = pBmpInfo; 

if {m_bMyBits m_jpBits) 

free (m_pBits) ; 
m_pBits = pBits; 

m_bMyBits = TRUE; 
return TRUE; 

} 

int CDIB : iLoadGIF (LPCSTR fname, imgdes* image) 

// Get info on the file we're to load 
GifData gdat; 
CString str; 

int rcode = gif info ( (char* ) f name , &gdat) ; 
if (rcode != NO_ERROR) // Fill structure 
{ 

str. Format ("Error in reading %s", fname) ; 
AfxMessageBox (str) ; 
return rcode; 
} // Allocate space for an 8 -bit image 

rcode = allocimage (image , gdat. width, gdat. length, gdat . vbitcount ) 

if (rcode != NO_ERROR) 

{ 

str . Format ( "Not enough memory to load %s", fname); 
AfxMessageBox (str) ; 
return rcode; 

} 

/ / Load image 

rcode = loadgif ( fname , image); 
if (rcode I NO_ERROR) 

{ 

freeimage (image) ; // Free image on error 
str. Format { "Could not load %s", fname); 
AfxMessageBox (str) ; 

} 

return rcode; 



int CDIB : :LoadTIF (LPCSTR fname, imgdes* image) 

// Get info on the file we're to load 
Tiff Data tdat ; 
CString str; 

int rcode = tiff info (( char* ) fname , ttdat) ; 
if (rcode 1= NO_ERROR) // Fill structure 
{ 

str . Format ( "Error in reading %s", fname); 
AfxMessageBox ( str) ; 
return rcode; 

} 

// Allocate space for an image 

rcode = allocimage ( image , tdat. width, tdat. length, tdat - vbitcount ) 

if (rcode != NO_ERROR) 

{ 

str . Format ( "Not enough memory to load %s", fname); 
AfxMessageBox (str) ; 
return rcode; 
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} 

rcode := loadtif ( f name , image); 

if (rcode != NO_ERROR) // Free image on error 
freeimage (image) ; 

str. Format ( "Could not load %s", fname) ; 
Af xMessageBox (str) ; 

} 

return rcode; 

} 



int CDIB: : Load JPG (LPCSTR fname, imgdes* image) 

// Get info on the file we're to load 
JpegData jdat; 
CString str; 

int rcode = jpeginfo (fname , &jdat) ; 

if (rcode != NO ERROR) // Fill structure 

{ 

str . Format ( "Error in reading %s", fname); 
Af XMessageBox (str) ; 
return rcode; 

} 

// Allocate space for an image 

rcode = allocimage ( image , ( int ) jdat . width, (int ) j dat . length 
jdat . vbitcount ) ; 

if (rcode != NO ERROR) 
{ 

str . Format ( "Not enough memory to load %s", fname); 
AfxMessageBox(str) ; 
return rcode; 

} 

/ / Load image 

rcode = loadjpg { (char* ) fname , image); 

if (rcode != NO ERROR) 

{ 

freeimage (image) ; // Free image on error 
str. Format ("Could not load %s", fname); 
AfxMessageBox (str) ; 

} 

return rcode; 

} 

// Source image will remain intact. 

// Destination image should be a pointer to an imgdes object. 

// You should call freeimage (desimg) on success 

int CDIB: :CreateImage8 (imgdes* srcimg, imgdes* desimg) 

int rcode; 

//To view the entire image, use a temporary image descriptor 
// and set the image area to the entire image 
imgdes timage; 

copyimgdes (srcimg, it image) ; 
setimagearea ( fictimage , 0, 0, 

(unsigned) timage .bmh->biWidth - 1, 

(unsigned) timage .bmh->biHeight - i) ; 
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// If we're displaying a 24 -bit image on an 8 -bit 

// display adapter, create a temporary 8-bit image for display 

if (srcimg->bmh->biBitCount == 24) 

{ 

rcode = allocimage (desimg, (int ) timage . bmh- >biWidth, 
(int) timage.bmh->biHeight , 8) ; 

if (rcode == NO ERROR) 
{ 

// Quick dither representation of 24 -bit image 
/ / {Or use colorscatter) 

rcode - colordither (&timage , desimg, COLORDITHER256 ) ; 
rcode = convert rgbtopal (256 , &timage, desimg); 
//If error, free allocated memory 
if (rcode != NO_ERROR) 

freeimage (desimg) ; 

} 

else 

copyimgdes (&t image, desimg) ; 
return rcode; 

} 

#endif // _viCTOR 

/* 

void CDIB: :ReplaceColor( const int nl , const RGBQUAD& rgbQ) 
ASSERT (m_jDBMI) ; 

ASSERT (m_j)BMI->bmiHeader.biBitCount 8); 
ASSERT (m_pBits) ; 



BYTE* pBits = (BYTE*)GetBitsAddress 0 ; 
int iSize = StorageWidth ( ) * DibHeightO; 
while (iSize--) 
{ 

*pBits = imap [*pBits] ; 
pBits++ ; 

} 

LPRGBQUAD pctThis = GetClrTabAddress ( ) ; 

ASSERT (pctThis) ; 

RGBQUAD oc = pctThis [nWhat] ; 

pctThis [nWhat] = pctThis [nWith] ; 

TRACE ("CDIB: : ReplaceColor (%d,%d,%d) - > ( %d , %d , %d) \n" , 
oc . rgbRed , oc . rgbGreen , oc . rgbB lue , 
pctThis [nWith] .rgbRed, pctThis [nWith] .rgbGreen, 

pctThis [nWith] .rgbBlue) ; 

} 



UINT CDIB: rSetPaletteEntries (UINT nStartlndex, UINT nNumEntries 

LPPALETTEENTRY IpPaletteColors ) 

{ 

RGBQUAD* pctThis - GetClrTabAddress () ; 
// : :CopyMemory (pctThis, IpPaletteColors + nStartlndex, nNumEntries * 

sizeof (PALETTEENTRY) ) ; 

//We can't use CopyMemory function, because the byte order of PALETTEENTRY 
(R,G,B, f ) 

// is different with that of RGBQUAD (B,G,R,res). 
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// RGBQUAD <- when read from the file {byte order reversed in word) 

// PALETTEENTRY <- in memory 

for (UINT i = 0; i < nNumEntries; i + -t-) 

{ 

int k = nStartlndex + i; 

pctThis [k] . rgbRed = IpPaletteColors [i] .peRed; 

pctThis [k] . rgbGreen = IpPaletteColors [i] . peGreen; 

pctThis [k] . rgbBlue = IpPaletteColors [i] . peBlue ; 

pctThis [k] .rgbReserved ^ IpPaletteColors [i] -peFlags; 

} 

return 0 ; 

} 

/* 

UINT CDIB: : SetPaletteEntriesFileIndex(UINT nStartlndex, UINT nNumEntries, 

LPPAIiETTEENTRY IpPaletteColors) 

{ 

RGBQUAD* pctThis = GetClrTabAddress ( ) ; 
// :: Cop yMemory {pctThis , IpPaletteColors + nStartlndex, nNumEntries * 

Sizeof (PALETTEENTRY) ) ; 

// We can't use CopyMemory function, because the byte order of PALETTEENTRY 
(R,G,B, f ) 

// is different with that of RGBQUAD (B,G,R,res). 
for (UINT i=0; i < nNumEntries; i++) 

{ 

int k - m_imap [nStartlndex + i] ; 

pctThis [k] -rgbRed = IpPaletteColors [i] .peRed; 

pctThis [k] . rgbGreen = IpPaletteColors [i] .peGreen; 

pctThis [k] . rgbBlue = IpPaletteColors [i] . peBlue ; 

pctThis [k] -rgbReserved - IpPaletteColors [i] .peFlags ; 

} 

return 0 ; 

} 

*/ 

UINT CDIB: : ShiftRGBPercent (UINT nStartlndex, UINT nNumEntries, int nPer) 
{ 

RGBQUAD* pctThis = GetClrTabAddres s ( ) ; 
if (nPer < -100) 

nPer = -10 0; 
float f Factor = ( float )nPer / 100; 
for (UINT i=0 ; i < nNumEntries; i++) 

{ 

int k = nStartlndex + i; 
int nVal; 

nVal = pctThis [k] . rgbRed + ( int ) (pctThis [k] , rgbRed * f Factor) ; 
if (nVal > 255) 

nVal = 255; 
pctThis [k] . rgbRed = nVal ; 

nVal = pctThis [k] .rgbGreen + (int) (pctThis [k] .rgbGreen * 

f Factor) ; 

if (nVal > 255) 

nVal - 255; 
pctThis [k] . rgbGreen = nVal; 

nVal = pctThis [k] . rgbBlue + (int ) (pctThis [k] . rgbBlue * fFactor) 
if (nVal > 255) 

nVal = 255; 
pctThis [k] . rgbBlue = nVal; 
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} 

return 0; 

} 

UINT CDIB: :RotatePaletteIndex(UINT nStartlndex, UINT nNumEntries 
{ 

while (nBy > nNumEntries) 
nBy -= nNumEntries; 
RGBQUAD* pctSt - GetClrTabAddress ( ) ; 
pctSt += nStartlndex; 

RGBQUAD* pRGBBuf = new RGBQUAD [nNumEntries ] ; 
int nTotalSize = nNumEntries * sizeof (RGBQUAD) ; 
int nBySize = nBy * sizeof (RGBQUAD) ; 

: : CopyMemory (pRGBBuf + nBy, pctSt, 
nTotalSize - nBySize) ; 

:: CopyMemory (pRGBBuf , pctSt + nNumEntries - nBy, 

: : CopyMemory (pctSt , pRGBBuf , 

nTotalSize) ; 

delete [] pRGBBuf; 

return 0 ; 

} 

/* 

void CDIB :: SaveResourceNaitie (const char* pszPath) 

{ 

if (ipszPath) 
return; 

int nLen = Istrlen (pszPath) ; 

char* p = strrchr (pszPath, '\\'); // Exclude path 
if (!p) 

return; 

char* q = strrchr (pszPath , '.'); // Exclude extension 

if (q) 

*q = NULL; 

P++; 

m_strName = (char*)p; 

} 

*/ 
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// 

// CDIB: 
// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

// Nov 25mon '96 Added GIF, TIF, JPG support using Victor Library 

// #include <mmsystem. h> // link winmm.lib 

#ifdef ^VICTOR 

#include <vicdefs.h> // link Vic32ms . lib , runtime Vic32.dll 
#endif 

#ifndef D1B_H 

#define DIB_H 

typedef struct tagBITMAPCOMBHEADER 
{ 

WORD wType; // • DS ' for Data Source. 

DWORD dwFileSize; // Total file size. 



WORD wNumEntries 
WORD bcReservedl 
WORD bcReserved2 
} BITMAPCOMBHEADER; 



// Number of entries 



typedef struct tagBMPFILEINFOENTRY 

{ 

char id [13]; // org filename (with extension) + NULL 

DWORD dwOffset; // offset to the BITMAPFILEHEADER 
} BMPFILEINFOENTRY; 

enum IMAGE__OPERATION 
{ 



OPACITY_100 




0x0000 , 


// 


100% default 


0PACITY__75 




0x0001, 






OPACITY__50 




0x0002, 


// 


50% 


0PACITY_2 5 




0x0004 , 


// 


25% 


0PACITY_12 




0x0008 , 


// 


12.5% paint 


OPACITY_0 




0x0010, 


// 




0PACITY_MASK 




OxOOlF, 






IMAGE_FLIP 




0x0100, 


// 


change Mirror 


I iyiAGE_VERT I C AL 




0x0200 , 






0RIENT_MASK 




OxOFOO, 






USE_COLORKEY 




0x1000, 


// 


Colorkey 


COLORKEY_MASK 




OxFOOO, 






DEFAULT_IO 




0x1000 







}; 

class CDIB : public CObject 
{ 

DECLARE_SERIAL (CDIB) 
public : 

CDIB ( ) ; 

// By using virtual destructor, derived classes' destructors can be 
called. . . 
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virtual -CDIB () ; 
// Attributes 

BITMAPINFO* GetBitmapInf oAddress ( ) const { return m_pBMI ; } // 

Pointer to bitmap info 

void* GetBitsAddress ( ) const { return mj)Bits; } 

// Pointer to the bits 

int GetBitsSize ( ) const; 

RGBQUAD* GetClrTabAddress 0 const // Pointer 

to color table 

{ return (LPRGBQUAD) ( ( (BYTE*) (mjpBMI) ) + 

sizeof (BITMAPINFOHEADER) ) ; } 

int GetNumClrEntries ( ) const; 

// Number of color table entries 

void* GetPixelAddress (const x, const y) const; 

int GetBitCount ( ) const { return m_pBMI- 

>bmiHeader . biBitCount ; } 

virtual int GetWidth () const { return DibWidthO; } // Image 

width 

virtual int GetHeightO const { return DibHeightO; } // Image 

height 

virtual void GetRect (CRect& rect) const; 

CString* GetName{) { return &m_strName; } 

enum BITMAP_FILE_TYPE 

{ 

FILE_NONE, 
FILE_BMP, 

FILE_BM, // without palette table 
FILE__BMZ, // LZ compressed 

FILE_BMC, // LZ compressed without palette table 

FILE_GIF, 

FILE_TIF, 

FILE_JPG 

}; 

BITMAP_FILE_TYPE GetFileType (LPCSTR szFile) ; 

// Operations 

virtual void Serialize {CArchive& ar) ; 

BOOL Create (const iwidth, const iHeight , const char* 
ps2PalFileName=NULL) ; // Create a new DIB 

BOOL Create (BITMAPINFO* pBMI , BYTE* pBits); // Create 

from existing mem 

virtual BOOL Load(CFile* const fp, const char* 

pszPalFileName^NULL) ; // Load from file 

virtual BOOL Load (const char* pszFileName=NULL, const char* 

ps2PalFileName=MtJLL) ; // Load DIB from disk file 

BOOL LoadSource (const char* pszSrcFileName=NULL, 

const char* pszFileName=NULL, 
const char* pszPalFileName^^NULL) ; // 

Load DIB from disk file 

virtual BOOL Load (const WORD wResid) ; // 

Load DIB from resource 

BOOL LoadPalette (const char* pszPalFileName) ; 

virtual BOOL Save (const char* pszFileName=NULL) ; // Save DIB 

to disk file 

BOOL SaveSource (const char* pszSrcFileName^NULL, 
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const char* pszFileName=NULL) ; 

/ / Save to Data Source 

virtual BOOL Save(CFile* const fp, const BOOL bPalette=TRUE) ; 

// Save to file 
virtual void Draw{CDC* pDC, const x, const y) ; 

^^^^ Draw (CDC* pDC, const xd, const yd, const w, int h, 

const xs, const ys) ; 

^^^^ Tile(CDC* pDC, const xO , const yO , CRect& rcClient) ; 

virtual BOOL MapColorsToPalette ( const CPalette* pPal) ; 

virtual void CopyBits (CDIB* pDIB, 

const xd; const yd, const w, int h, 

const xs, const ys , const COLORREF 

clrTrans=OxFFFFFFFF, 

const WORD wImOp=DEFAULT_IO) ; 
UINT SetPaletteEntries (UINT nStartlndex, UINT nNumEntries 
LPPALETTEENTRY IpPaletteColors ) ; 

UINT ShiftRGBPercent (UINT nStartlndex, UINT nNumEntries, int nPer) ; 
UINT RotatePaletteIndex(UINT nStartlndex, UINT nNumEntries, UINT nBy) - 
void Clearlmage () / ' 
void ClearRect (CRectSc rcClear) ; 

protected : 

BITMAPINFO* m_^BMI; // Pointer to BITMAPINFO struct 

BYTE* m __pBits/ // Pointer to the bits 

BOOL m_bMyBits; // TRUE if DIB owns Bits memory 

BOOL m_bMapColorsDone ; 

CString m_strName; // BMP Filename, resource name 

#ifdef _VICTOR 

// For Victor Library 

BOOL LoadFromlmage (LPVOID pimg) ; 

LoadGIF (LPCSTR f name , imgdes* image) ; 

LoadTIF (LPCSTR fname, imgdes* image); 

Load JPG (LPCSTR fname, imgdes* image); 

. CreatelmageS (imgdes* srcimg, imgdes* desimq) ; 

#endif // _VICTOR 

private : 

J ^"^^ DibWidthO const { return mjBMI - >bmiHeader . biWidth ; 

DibHeightO const { return mpBMI- 

>bmiHeader . biHeight ; } 

int StorageWidthO const { return (m_pBMI - >bmiHeader . biwidth 

+3) & -3; } 

}; 

/* 

// CBmpUsage 

class AFX_EXT_CLASS CBmpUsage : public CObject 

DECLARE_SERIAL (CBmpUsage) 
public : 

CBmpUsage () ; 
--CBmpUsage ( ) ; 

void AddRefO; { ++m_nRef; } 

ReleaseO { return (--m_nRef); } 
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protected : 

CString m_strName; // Filename 

BITMAPINFO* mjBMI; // Pointer to BITMAPINFO 

BYTE* m_pBits/ // Pointer to the bits 

m_nRef; // Reference Count 



// CBUT : Bitmap Usage Table 
class AFX_EXT CLASS CBUT 

{ 

public : 

CBUT ( ) ; 
-CBUT ( ) / 

}; 

*/ 

#endif // DIB H 
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// 

// CDIBPal : 

// 

// (C) Programmed by Kim 

// 

// Information Technology Institute 

// UMICHAT INC 

// 

#include " s tdaf x . h" 
#include "DIBPal .h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE 
#endif ' 

///////////////////////////////////////////////////////////////////////////// 
If CDIBPal 

CDIBPal : : CDIBPal ( ) 

{ 

} 

CDIBPal : : --CDIBPal () 

{ 

} 

// Create a palette from the color table in a DIB. 
BOOL CDIBPal :: Create (CDIB* pDIB) 

DWORD dwColors = pDIB- >GetNumClrEntries ( ) ; 
// Check the DIB has a color table, 
if (1 dwColors) 
{ 

TRACEC'No color table"); 
return FALSE; 

} 

// Get a pointer to the RGB quads in the color table. 
RGBQUAD* pRGB = pDIB - >GetCl rTabAddress ( ) ; 

// Allocate a log pal and fill it with the color table info. 
LOGPALETTE* pPal = (LOGPALETTE* ) malloc ( sizeof (LOGPALETTE) + dwColors * 
sizeof (PALETTE ENTRY) ) ; 
if (ipPal) 
{ 

TRACE ("Out of memory for logpal"); 
return FALSE; 

} 

pPal->palVersion = 0x300; // windows 3.0 

pPal->palNumEntries = (WORD) dwColors ; // Table size 

for (DWORD dw=0; dw < dwColors; dw++) 

pPal->palPalEntry [dw] .peRed ^ pRGB [dw] . rgbRed; 

pPal->palPalEntry [dw] .peGreen = pRGB [dw] . rgbGreen ; 
pPal->palPalEntry [dw] .peBlue = pRGB [dw] . rgbBlue ; 
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pPal - >palPalEntry [dw] -peFlags = 0; 

} 

BOOL bResult = CreatePalette (pPal) ; 
free (pPal ) ; 
return bResult; 

} 

/ 1/ 1 1 1 1 1 1 / 1 1 1 1 1 1 1 11 1 1 / 11 1 / 1 1 / 1 1 1 1 1 1 1 1 / 1 / 1 1 / 1 / 1 1 1 1 / n 1 1 / 1 1 1 / 1 1 1 / III 1 1 / 1 1 III I / 1 

II CDIBPal commands 

int CDIBPal : : GetNumColors ( ) 
{ 

int iColors = 0; 

if ( iGetObject (sizeof (iColors) , &iColors) ) 

{ 

TRACE ( "Failed to get num pal colors"); 
return 0; 

} 

return iColors ; 

} 

// bBkgnd : Force Background 

void CDIBPal :: Draw (CDC* pDC, CRect& rect, const BOOL bBkgnd, const BOOL 
bShowIndex) 

{ 

int iColors = GetNumColors () ; 

CPalette* pOldPal = pDC- >SelectPalette ( this , bBkgnd); 

pDC- >RealizePalette ( ) ; 

int i, j, top, left, bottom, right; 

for (j=0, top-0; j<16 &&: iColors ; j + top=bottom) 

{ 

bottom = (j+1) * rect. bottom / 16 + 1; 

for (i=0, left=0; i<16 && iColors; i++, left=right) 

{ 

right = (i+l) * rect. right / 16 + 1; 
CBrush br( PALETTE INDEX (j * 16 + i)); 
CBrush* brold = pDC- >SelectObj ect ( &br ) ; 
pDC->Rectangle (lef t-1, top-1, right, bottom); 
pDC->SelectObject (brold) ; 
if (bshowlndex) 

{ 

CString strldx; 

strldx. Format ( "%0x" , j * 16 + i) ; 
pDC->SetBkMode (TRANSPARENT) ; 

pDC->SetTextColor (PALETTERGB (128, 128, 0)); // 

Dark Yellow 

pDC->TextOut {lef t , top, strldx); 

} 

iColors- - ; 

} 

} 

pDC->SelectPalette (pOldPal, FALSE) ,- 

} 

BOOL CDIBPal : : SetSysPalColors ( ) 
{ 

BOOL bResult = FALSE; 
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int i, iSysColors, iPalEntries; 
HPALETTE hpalOld; 

// Get a screen DC to work with. 
HWND hwndActive = : : GetActiveWindow ( ) ; 
HDC hdcScreen = :: Get DC (hwndActive) ; 
ASSERT (hdcScreen) ; 

// Make sure we are on a palettized device. 

if ( ! ( : :GetDeviceCaps (hdcScreen, RASTERCAPS) & RC_PALETTE) ) 

TRACE ("Not a palettized device\n"); 
goto abort ; 

} 

/ / Get the number of system colors and the number of palette 
// entries. Note that on a palletized device the number of 
// colors is the number of guaranteed colors, i.e., the number 
// of reserved system colors. 

iSysColors = :: GetDeviceCaps (hdcScreen, NUMCOLORS) ; 
iPalEntries = :: GetDeviceCaps (hdcScreen, SIZEPAL.ETTE) ; 

//If there are more than 256 colors we are wasting our time, 
if (iSysColors < 0 | | iSysColors > 256) goto abort; 

// Now we force the palette manager to reset its tables so that 
// the next palette to be realized will get its colors in the order 
they are 

//in the logical palette. This is done by changing the number of 
// reserved colors. 

: : SetSystemPaletteUse (hdcScreen, SYSPAL_NOSTATIC) ; 
: : SetSystemPaletteUse (hdcScreen, SYSPAL_STATIC) ; 

// Select our palette into the screen DC and realize it so that 
// its colors will be entered into the free slots in the physical 
palette . 

hpalOld = : iSelectPalette (hdcScreen, (HPALETTE) m_hObj ect , // Our hpal 

FALSE) ; 

#ifdef _DEBUG 

UINT nColorsRemap; 

nColorsRemap = :: RealizePalette (hdcScreen) ; 

TRACE ( "CDIBPal : iSetSysPalColors 0 returned %d.\n", nColorsRemap) ,- 

#else 

: : RealizePalette (hdcScreen) ; 

#endif 

// Now replace the old palette (but don't realize it) 
: rSelectPalette (hdcScreen, hpalOld, FALSE) ; 

// The physical palette now has our colors set in place and its own 
// reserved colors at either end. We can grab the lot now. 
PALETTEENTRY pe [256] ; 

GetSystemPaletteEntries (hdcScreen, 0, iPalEntries, pe) ; 

/ / Set the PC_NOCOLLAPSE flag for each of our colors so that the GDI 
// won't merge them. Be careful not to set PC_NOCOLLAPSE for the 
// system color entries so that we won't get multiple copies of these 
// colors in the palette when we realize it. 
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for {i = 0; i < iSysColors/2 ; i++) 

pe [i] .peFlags = 0; 
for (; i < iPalEntries-iSysColors/2 ; i++) 

pe [i] -peFlags = PC_NOCOLLAPSE; 
for (; i < iPalEntries; i++) 

pe[i] .peFlags = 0; 

// Resize the palette in case it was smaller, 
ResizePalette (iPalEntries) ; 

// Update the palette entries with what is now in the physical palette 
SetPaletteEntries (0 , iPalEntries, pe) ; 
bResult = TRUE; 

abort : 

: :ReleaseDC (hwndActive, hdcScreen) ; 
return bResult; 

} 

// Load a palette from a named file. 

// To get the PALETTEENTRY only, allocate a memory for it and pass it. 
BOOL CDIBPal :: Load (const char* pszFileName, PALETTEENTRY* pPE) 

{ 

CString strFile; 

if ((pszFileName == NULL) || (strlen (pszFileName) == 0)) 
{ 

// Show an File Open dialog to get the name . 

CFileDialog dig (TRUE, // Open 

NULL, // No default extension 

NULL, // No initial file name 

OFN_F I LEMUSTEX 1ST | OFN_HlDEREADONL Y , 
"Palette files (* . PAL) | * . PAL j All files 

{*.*) |*.*| I") ; 

if (dlg.DoModal 0 == IDOK) 

StrFile = dig . GetPathName ( ) ; 

else 

return FALSE; 

} 

else 

{ 

// Copy the supplied file path. 
StrFile = pszFileName; 

} 

// Try to open the file for read access. 
CFile file; 

if (! file .Open (strFile, CFi le : : modeRead | CFile :: shareDenyWrite) ) 

{ 

StrFile += " not found!"; 
AfxMessageBox (strFile) ; 
return FALSE; 

} 

BOOL bResult ^ Load(&file, pPE) ; 
file. Close () ; 
if (ibResult) 
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AfxMessageBox { "Failed to load palette file"); 
return bResult; 

} 

// Load a palette from an open CFile object. 

BOOL CDIBPal t :Load (CFile* const fp, PALETTEENTRY* pPE) 

return Load ( f p- >m_hFile , pPE) / 

// Load a palette from an open file handle. 

BOOL CDIBPal :: Load (const UINT hFile, PALETTEENTRY* pPE) 

MMIOINFO info; 

memset (&inf o, 0, sizeof ( inf o) ) ; 
inf o. adwinf o [0] = hFile; 

HMMIO hmmio = mmioOpen (NULL , &info, MMIO_READ | MMIO ALLOCBUF) 
if ( ! hmmio) ~ 

{ 

TRACE ( "mmioOpen failed\n"); 
return FALSE; 

} 

BOOL bResult = Load (hmmio, pPE) ; 
mmi oCl OS e (hmmio, MMIO_FHOPEN) ; 
return bResult; 

} 

/ / Load a palette from an open MMIO handle . 

BOOL CDIBPal :: Load (const HMMIO hmmio, PALETTEENTRY* pPE) 

// Check whether it ' s a RIFF PAL file. 
MMCKINFO ckFile; 

ckFile . f ccType = mmioFOURCC ( ' P ' , • A • , ' L ' , ' '); 

if (mmioDescend (hmmio, &ckFile, NULL, MMIO_FINDRlFF) != 0) 

TRACE ("Not a RIFF or PAL file\n"); 
return FALSE; 

} 

// Find the 'data' chunk. 
MMCKINFO ckChunk; 

ckChunk . ckid mmioFOURCC ( ' d ' , ' a ' , • t • , ' a • ) ; 

if (mmioDescend (hmmio, &ckChunk, &ckFile, MMIO_FINDCHUNK) != 0) 

TRACE("No data chunk in file\n"); 
return FALSE; 

} 

// Allocate some memory for the data chunk, 
int iSize = ckChunk . cksize ; 
void* pdata = malloc ( iSize) ; 
if (ipdata) 

{ 

TRACEC'No mem for data\n"); 
return FALSE; 

} 

// Read the data chunk. 

if (mmioRead (hmmio, (char *) pdata, iSize) != iSize) 
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TRACE ( "Failed to read data chunk\n"); 
free (pdata) / 
return FALSE; 

} 

/ / The data chunk should be a LOGPALETTE structure 

// that we can create a palette from. 

LOGPALETTE* pLogPal = (LOGPALETTE* ) pdata / 

if {pLogPal->palVersion 1= 0x300) 

{ 

TRACE ( "Invalid palette version number\n"); 
f ree (pdata) ; 
return FALSE; 

} 

// Get the number of entries. 

int iColors = pLogPal - >palNumEntries ; 

if (iColors <= 0) 

{ 

TRACE ("No colors in palette\n"); 
free (pdata) ; 
return FALSE; 

} 

//If pPE is specified, do not really create the palette 
if (pPE) 

( 

if (iColors > 256) 
{ 

TRACE ( "Colors in this palette exceeds 256: %dn\n", 

iColors) ; 

iColors = 256; 

} 

: iCopyMemory (pPE, &:pLogPal - >palPalEntry [ 0] , 
iColors*sizeof ( PALETTE ENTRY) ) ; 

free (pdata) ; 
return TRUE; 

} 

else 

{ 

return CreatePalette (pLogPal ) ; 

} ^ 

// Save a palette to an open CFile object. 

BOOL CDIBPal : .-Save (CFile* const fp) 

{ 

return Save(fp->m hFile) ; 

} 

// Save a palette to an open file handle. 
BOOL CDIBPal :: Save (const UINT hFile) 

MMIOINFO info; 

memset (&inf o, 0, sizeof { inf o) ) ; 
inf o . adwinf o [0] = hFile; 

HMMIO hmmio = mmioOpen (NULL , &info, MMIO WRITE I MMIO CREATE I 
MMIO_ALLOCBUF) ; - i _ I 

if ( ! hmmio) 

{ 
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TRACE { "mmioOpen failed\n"); 
return FALSE; 

} 

BOOL bResult = Save (hmmio) ; 
mmioClose (hmmio, MMIO_FHOPEN) ; 
return bResult; 

} 

// Save a palette to an open MMIO handle. 

BOOL CDIBPal :: Save (const HMMIO hmmio) 

{ 

// Create a RIFF chunk for a PAL file. 
MMCKINFO ckFile; 

ckFile . cksize =0; // Corrected later 

CkFile . fccType = mmioFOURCC ( ' P ' , ' A ' , ' L ' , ' '); 

if (mmioCreateChunk (hmmio, &ckFile, MMIO_CREATERIFF) != 0) 

{ 

TRACE ( "Failed to create RIFF-PAL chunk\n"); 
return FALSE; 

} 

// Create the LOGPALETTE data which will become the data chunk, 
int iColors = GetNumColors ( ) ; 
ASSERT (iColors > 0) ; 

int iSize = sizeof (LOGPALETTE) + (iColors-1) * sizeof (PALETTEENTRY) 
LOGPALETTE* pip = (LOGPALETTE* ) malloc (iSize ) ; 
ASSERT (pip) ; 

pip- >palVersion = 0x300; 
plp->palNumEntries = iColors; 

GetPaletteEntries ( 0 , iColors, pip- >palPalEntry) ; 
// create the data chunk. 
MMCKINFO ckData; 
ckData . cksize = iSize; 

ckData . ckid = mmioFOURCC ( ' d ' , ' a ' , ' t ' , ' a ' ) ; 
if (mmioCreateChunk (hmmio, &ckData, 0) != 0) 
{ 

TRACE ( "Failed to create data chunk\n"); 
return FALSE; 

} 

// Write the data chunk. 

if (mmioWrite (hmmio, (char*)plp, iSize) 1= iSize) 
{ 

TRACE ( "Failed to write data chunk\n"); 
free (pip) ; 
return FALSE; 

} 

free (pip) ; 

// Ascend from the data chunk which will correct the length. 

mmi OAs c end (hmmio, &ckData, 0); 

// Ascend from the RIFF -PAL chunk. 

mmi o Ascend (hmmio, &ckFile, 0); 

return TRUE; 

} 
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// 

// CDIBPal 
// 

// (C) Programmed by Kim, 

// 

// Information Technology Institute 

// UNI CHAT INC 

// 

#ifndef DIBPAL 

#define DIBPAL 

#include "DIB . h" 
#include <mmsystem.h> 

class CDIBPal : public CPalette 
{ 

public : 

CDIBPal 0 ; 
-CDIBPal () ; 

BOOL Create (CDIB* pDIB) ; // Create from a DIB 

GetNumColors () ; // Get the number of colors 

palette . 

void Draw(CDC* pDC, CRectSc rect, const BOOL bBkgnd=FALSE , const 
bShowIndex=FALSE) ; 

BOOL SetSysPalColors ( ) ; 

BOOL Load (const char* pszFileName=NULL , PALETTEENTRY * pPE=NULL) 
BOOL Load(CFile* const fp, PALETTEENTRY* pPE=NULL) ; 
BOOL Load {const UINT hFile, PALETTEENTRY* pPE=NULL) ; 
BOOL Load (const HMMIO hmmio, PALETTEENTRY* pPE=NULL) ; 
BOOL Save(CFile* const fp) ; 
BOOL Save (const UINT hFile) ; 
BOOL Save (const HMMIO hmmio); 
^ int GetEntries (PALETTEENTRY* pPE) ; 

#endif // DIBPAL 
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// MainFrm . cpp : implementation of the CMainFrame class 
// 

#include "stdaf x.h" 
#include "UDSGen.h" 

#include "MainFrm. h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
/ / CMainFrame 

IMPLEMENT_DYNCREATE (CMainFrame , CFrameWnd) 

BEGIN_MESSAGE_MAP (CMainFrame , CFrameWnd) 
// { {AFX_MSG_MAP (CMainFrame) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code 

r 

ON_WM_CREATE ( ) 
/ / } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

static UINT indicators [] = 

{ 

ID_SEPARATOR, // status line indicator 

ID_INDICATOR_CAPS , 
ID_INDICATOR_NUM , 
ID_INDICATOR_SCRL , 

}; 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame construction/destruct ion 

CMainFrame : : CMainFrame ( ) 

{ 

// TODO: add member initialization code here 

} 

CMainFrame ; : -CMainFrame ( ) 

{ 
} 

int CMainFrame : :OnCreate (LPCREATESTRUCT IpCreateStruct ) 

{ 

if (CFrameWnd : :OnCreate (IpCreateStruct) == -1) 
return -1; 

if ( I m_wndToolBar . Create (this) |) 

!m wndToolBar .LoadToolBar (IDR MAINFRAME)) 
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TRACED ("Failed to create toolbar\n"); 
return -1; // fail to create 

} 

if ( lm_wndStatusBar - Create (this) || 

! m_wndStatusBar . Setlndicators ( indicators , 
sizeof (indicators) /sizeof (UINT) ) ) 

{ 

TRACEO ( "Failed to create status bar\n"); 
return -1; // fail to create 

) 

// TODO : Remove this if you don't want tool tips or a resizeable 
toolbar 

m_wndToolBar . SetBarStyle (m_wndToolBar . GetBarStyle ( ) | 
CBRS_T0OLTIPS j CBRS_FLyBY | CBRS__S IZE_DYNAMIC) ; 

// TODO: Delete these three lines if you don't want the toolbar to 
// be dockable 

m_wndToolBar .EnableDocking (CBRS_ALIGN_ANY) ; 
EnableDocking (CBRS_ALIGN_ANY) ; 
DockControlBar (&m_wndToolBar ) ; 



} 



return 0 ; 



BOOL CMainFrame : : PreCreateWindow (CREATESTRUCT& cs) 

{ 

// TODO: Modify the Window class or styles here by modifying 
// the CREATES TRUCT cs 

return CFrameWnd : : PreCreateWindow (cs) ; 

} 

///////////////////////////////////////////////////////////////////////////// 
/ / CMainFrame diagnostics 

#ifdef _DEBUG 

void CMainFrame : :AssertValid () const 

{ 

CFrameWnd: : AssertValid ( ) ; 

} 

void CMainFrame :: Dump (CDumpContextSc dc) const 

{ 

CFrameWnd : iDump (dc) ; 

} 

#endif //_dbbug 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 // 1 / 1 1 / 1 1 / 1 1 1 1 / 1 1 1 1 1 1 1 1 / III 
II CMainFrame message handlers 
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// MainFrm.h : interface of the CMainFrame class 
// 

///////////////////////////////////////////////////////////////////////////f/ 

#if 1 defined (AFX_MAINFRM_H C3C37D09_AD07_11D1_9169_OOOOF0610C92 INCLUDED ) 

#def ine AFX_MAINFRM_H C3C3 7D09_AD07_11D1_9169_000 0F0610C92 INCLUDED " 

#if _MSC_VER >= 1000 
#pragma once 

#endif // __MSC_VER >= 1000 

class CMainFrame : public CFrameWnd 
{ 

protected: // create from serialization only 
CMainFrame ( ) ; 

DECLARE_DYNCREATE (CMainFrame) 

// Attributes 
public : 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMainFrame) 

virtual BOOL PreCreateWindow (CREATESTRUCT& cs); 
/ / } } AFX_VIRTUAIi 

// Implementation 
public : 

virtual -CMainFrame () ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDumpCon text & dc) const- 

#endif 

protected: // control bar embedded members 
CStatusBar m_wndStatusBar ; 
CToolBar m_wndToolBar ; 

// Generated message map functions 
protected : 

// { {afx^MSG (CMainFrame) 

afx__msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 

// NOTE - the ClassWizard will add and remove member functions 

here . 

// DO NOT EDIT what you see in these blocks of generated code' 

//}}afx_msg 
declare message map ( ) 
}; " ~ 

///////////////////////////////////////////////////////////////////////////// 

// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 
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#endif // 

!def ined(AFX_MAINFRM_H_C3C3 7D09_AD07_llDl_9169_0 0O0F061OC92 INCLUDED 



01 

ill 
or 

IS 

ill 
ill 
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MICROSOFT FOUNDATION CLASS LIBRARY : UDSGen 



AppWizard has created this UDSGen application for you. This application 
not only demonstrates the basics of using the Microsoft Foundation classes 
but is also a starting point for writing your application. 

This file contains a summary of what you will find in each of the files that 
make up your UDSGen application. 

UDSGen . h 

This is the main header file for the application. It includes other 
project specific headers (including Resource. h) and declares the 
CUDSGenApp application class, 

UDSGen. cpp 

This is the main application source file that contains the application 
class CUDSGenApp. 

UDSGen. rc 

This is a listing of all of the Microsoft Windows resources that the 
program uses. It includes the icons, bitmaps, and cursors that are 
stored 

in the RES subdirectory. This file can be directly edited in Microsoft 
Developer Studio. 

res\UDSGen. ico 

This is an icon file, which is used as the application's icon. This 
icon is included by the main resource file UDSGen. rc. 

res\UDSGen . rc2 

This file contains resources that are not edited by Microsoft 
Developer Studio, You should place all resources not 
editable by the resource editor in this file. 

UDSGen. reg 

This is an example .REG file that shows you the kind of registration 
settings the framework will set for you. You can use this as a .REG 
file to go along with your application or just delete it and rely 
on the default RegisterShellFileTypes registration. 

UDSGen. clw 

This file contains information used by ClassWizard to edit existing 
classes or add new classes. ClassWizard also uses this file to store 
information needed to create and edit message maps and dialog data 
maps and to create prototype member functions. 

///////////////////////////////////////////////////////////////////////////// 

For the main frame window: 

MainFrm.h, MainFrm.cpp 

These files contain the frame class CMainFrame, which is derived from 
CFrameWnd and controls all SDI frame features. 
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res\Toolbar . bmp 

This bitmap file is used to create tiled images for the toolbar. 
The initial toolbar and status bar are constructed in the 
CMainFrame class. Edit this toolbar bitmap along with the 
array in MainFrm.cpp to add more toolbar buttons. 

///////////////////////////////////////////////////////////////////////////// 
AppWizard creates one document type and one view: 



UDSGenDoc.h, UDSGenDoc . cpp - the document 

These files contain your CUDSGenDoc class. Edit these files to 

add your special document data and to implement file saving and loadi 

(via CUDSGenDoc: : Serialize) . 

UDSGenView.h, UDSGenView . cpp ~ the view of the document 
These files contain your CUDSGenView class. 
CUDSGenView objects are used to view CUDSGenDoc objects. 



///////////////////////////////////////////////////////////////////////////// 
Other standard files: 

S tdAf X . h , S tdAf X . cpp 

These files are used to build a precompiled header (PCH) file 
named UDSGen.pch and a precompiled types file named StdAfx.obj. 

Resource . h 

This is the standard header file, which defines new resource IDs. 
Microsoft Developer Studio reads and updates this file. 

////////////////////////////////////////////////////////////////////////// 
Other notes : 

AppWizard uses "TODO:" to indicate parts of the source code you 
should add to or customize . 

If your application uses MFC in a shared DLL, and your application is 
m a language other than the operating system's current language, you 
will need to copy the corresponding localized resources MFC4 0XXX DLL 
from the Microsoft Visual C++ CD-ROM onto the system or system32 directory 
and rename it to be MFCLOC.DLL. ("XXX" stands for the language abbreviation 
For example, MFC40DEU.DLL contains resources translated to German ) if you 
don't do this, some of the UI elements of your application will remain in the 
language of the operating system. 

iiiiiiiiiiiii/iiiii/iii///iii/i//iu///mi/iiin/ifi/i/iii/ii/i,,,,,,i,,,,,, 
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//{ {no^dependencies} } 

/ / Microsoft Developer Studio generated include 



// Used 


by UDSGen. rc 




// 






#def ine 


IDD_ABOUTBOX 


100 


#def ine 


IDD_UDSGEN_FORM 


101 


#def ine 


IDR_MAINFRAME 


128 


#def ine 


IDR_UDSTYPE 


129 


#def ine 


IDD_TARGETNAME 


130 


#def ine 


IDC_LIST1 


1000 


#def ine 


IDC_TARGET 


1001 


#def ine 


IDC_PROGRESSl 


1002 


#def ine 


IDC_GENERATE 


1003 


#def ine 


IDC_QUIT 


1004 


#def ine 


IDC_EDIT1 


1005 



// Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED 
#ifndef APSTUDIO_READONLY SYMBOLS 



# define _APS 3D_CONTROLS 1 
#define _APS_NEXT_RESOURCE_VALUE 131 
#define _APS__NEXT_COMMAND_VALUE 3 2 771 

#define _APS_NEXT_CONTROL_VALUE 10 06 

#define _APS_NEXT_SYMED_VAIiUE 101 
#endif 
#endif 
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// stdafx.cpp : source file that includes just the standard includes 
// UDSGen.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type information 
#include " stdaf x . h" 
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// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

// 



#if ! defined (AFX_STDAFX_H C3C3 7D07_AD07_11D1_9169_OOOOF0610C92 INCLUDED 

#def ine AFX_STDAFX_H C3C3 7D07_AD07_11D1_9169_OOOOF0610C92 INCLUDED 

#if _MSC__VER >= 1000 
#pragma once 

#endif // _MSC_yER >= lOOO 

#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows 

headers 



#include <afxwin.h> // MFC 

#include <afxext.h> // MFC 

#include <afxdisp.h> // MFC 

#ifndef _AFX_NO_AFXCMN_SUPPORT 
#include <afxcmn.h> 
Controls 

#endif // _AFX_NO_AFXCMN SUPPORT 



core and standard components 
extensions 

OLE automation classes 
/ / MFC support for Windows Common 



//{ {AFX_INSERT__LOCATION} } 

// Microsoft Developer Studio will insert additional declarations immediate 
before the previous line. 

#endif // 

! defined (AFX_STDAFX_H C3C37D07_AD07_11D1_9169_OOOOF0610C92 INCLUDED ) 
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// TargetDlg . cpp : implementation file 
// 

# include " stdaf x . h " 
#include "UDSGen . h" 
#include "TargetDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE 

#endif ' 



l'lll//l//ll//l/ll////l//l/ll//l/l////ll/////l//n//l//ll/////l/lll/l,/,,/,,, 
I / CTargetDlg dialog 



CTargetDlg: :CTargetDlg(CWnd* pParent /*=NULL*/) 
^ : CDialog (CTargetDlg: : IDD, pParent) 

// { {AFX_DATA_INIT (CTargetDlg) 
m_strTargetFile ^ _T(""); 

/ / } }afx_data_init 



void CTargetDlg: iDoDataExchange (CDataExchange* pDX) 

CDialog: rDoDataExchange (pDX) ; 

// { {AFX_DATA_MAP (CTargetDlg) 

DDX_Control (pDX, IDC_EDIT1, m_ctlTarget) ; 

DDX_Text (pDX, IDC_EDIT1, m_strTargetFile) ; 

/ / } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CTargetDlg, CDialog) 

// { {AFX_MSG_MAP (CTargetDlg) 

ON_WM_CREATE ( ) 

//} }AFX_MSG_iyiAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CTargetDlg message handlers 

int CTargetDlg: rOnCreate (LPCREATESTRUCT IpCreateStruct ) 

if (CDialog: rOnCreate (IpCreateStruct) == -l) 
return -1; 

// TODO: Add your specialized creation code here 
m_ctlTarget . Get Focus ( ) ; 
return 0 ; 

} 
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#if 

•defined (AFX__TARGETDLG_H C3C37D1B_AD07_11D1__916 9_OOOOF0 610C92 INCLUDED_) 

#def ine AFX_TARGETDLG_H C3C3 7D1B_AD0 7_11D1_916 9_OOOOF0610C92 INCLUDED__ 

#if _MSC_VER >= 10 0 0 
#pragma once 

#endif // _MSC_VER 1000 
// TargetDlg.h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// CTargetDlg dialog 

class CTargetDlg : public CDialog 

{ 

// Construction 
public : 

CTargetDlg (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { { AFX_DATA (CTargetDlg) 

enum { IDD = IDD_TARGETNAME } ; 

CEdit m_ctlTarget ; 

CString m_strTargetFile ; 

//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {afX_VIRTUAL (CTargetDlg) 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

// } }AFX_VIRTUAL 

// Implementation 
protected : 

/ / Generated message map functions 
// { {AFX_MSG (CTargetDlg) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 
//} }AFX_MSG 
DECLARE_MESSAGE_MAP { ) 

}; 

/ / { {afx_insert_l,ocation} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

I defined (AFX TARGETPLG H C3C37D1B AD07_11D1_9169 0000F0610C92 INCLUDED ) 
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// UDSGen.cpp : Defines the class behaviors for the application. 



#include "stdafx.h" 
#include "UDSGen.h" 

#include "MainFrm.h" 
#include "UDSGenDoc . h " 
#include "UDSGenView . h " 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS__FILE 

static char THIS_FILE [] = FILE 

#endif ' 



///////////////////////////////////////////////////////////////////////////// 
/ I CUDSGenApp 

BEGIN_MESSAGE_MAP (CUDSGenApp, CWinApp) 
// { {AFX_MSG_MAP (CUDSGenApp) 
ON_COMMAND ( ID_APP_ABOUT , OnAppAbout ) 

// NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated code i 
/ / } } AFX_MSG_MAP 

// Standard file based document commands 
0N_COMMAND (ID_FILE_NEW, CWinApp: :OnFileNew) 
ON_COMMAND (ID_FILE_OPEN, CWinApp : rOnFileOpen) 
/ / Standard print setup command 

ON_COMMAND(ID_FILE_PRINT_SETUP, CWinApp: : OnFi lePrintSetup) 
END_ME S S AGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenApp construction 

CUDSGenApp : : CUDSGenApp ( ) 
{ 

// TODO: add construction code here, 
^ // Place all significant initialization in Initlnstance 

///////////////////////////////////////////////////////////////////////////// 
// The one and only CUDSGenApp object 

CUDSGenApp theApp; 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenApp initialization 

BOOL CUDSGenApp :: Initlnstance {) 
{ 

AfxEnableControlContainer 0 ; 
// Standard initialization 

// If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
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// the specific initialization routines you do not need. 
#ifdef _AFXDLL 

Enable3dControls () ; // Call this when using MFC in a 

shared DLL 
#else 

EnableSdControlsStatic ( ) ; // Call this when linking to MFC 

statically 
#endif 

// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organization. 
SetRegistryKey (_T ( "Local AppWizard-Generated Applications") ) ; 

LoadStdProf ileSettings ( ) ; // Load standard INI file options (including 

MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 

CSingleDocTemplate* pDocTemplate ; 
pDocTemplate = new CSingleDocTemplate ( 

IDR_MAINFRAME , 

RUNTIME_CLASS (CUDSGenDoc) , 

RUNTIME_CLASS (CMainFrame) , // main SDI frame window 

RUNTIME_CLASS (CUDSGenView) ) ; 
AddDocTemplate (pDocTemplate) ; 

// Enable DDE Execute open 
EnableShellOpen ( ) ; 
RegisterShellFileTypes (TRUE) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLineInf o cmdinfo; 
ParseCommandLine (cmdinfo) ; 

// Dispatch commands specified on the command line 
if ( ! ProcessShellCommand (cmdinfo) ) 
return FALSE ; 

// The one and only window has been initialized, so show and update it. 
mj)MainWnd- >ShowWindow (SW__SHOW) ; 
m__pMainWnd- >UpdateWindow () ; 

// Enable drag/drop open 
m_j)MainWnd->DragAcceptFiles 0 ; 

return TRUE; 

} 

1 1 1 1 in I / 1 1 / 1 / 1 1 1 1 /// 1 1 1 1 / 1 1 1 1 1 1 1 1 1 11 / 1 1 1 1 n I / 1 1 / 1 1 1 n 1 1 1 1 /I / 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 

1 1 CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 
{ 

public : 
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CAboutDlg ( ) ; 

// Dialog Data 

//{ {AFX_DATA( CAboutDlg) 
enum { IDD = IDD_ABOUTBOX } ; 
//} }AFX_DATA 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange {CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VIRTUAL 

// Implementation 
protected : 

// { {AFX_MSG (CAboutDlg) 

//No message handlers 

//} }AFX_MSG 

DECIiARE_MESSAGE_MAP ( ) 



CAboutDlg: : CAboutDlg () : CDialog (CAboutDlg : : IDD) 

// { {AFX_DATA_INIT (CAboutDlg) 
// } }AFX_DATA_INXT 



void CAboutDlg: : DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
// } }AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CAboutDlg, CDialog) 

// { {AFX_MSG_MAP (CAboutDlg) 

// No message handlers 

// } } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

// App command to run the dialog 
void CUDSGenApp: :OnApp About 0 

{ 

CAboutDlg aboutDlg; 
aboutDlg . DoModal ( ) ; 

} 

///////////////////////////////////////////////////////////////////////////// 

/ / CUDSGenApp commands 



A-979 



UDSGen\UDSGen.h 



// UDSGen.h : main header file for the UDSGEN application 
// 

#if ! defined (AFX_UDSGEN_H C3C37D05_AD07_11D1_9169_OOOOF0610C92 INCLUDED^) 

#def ine AFX_UDSGEN_H C3C3 7D05_AD07_11D1_9169_00 0 0F0610C92 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >- 100 0 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include " resource. h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenApp: 

// See UDSGen.cpp for the implementation of this class 
// 

class CUDSGenApp : public CWinApp 

{ 

public : 

CUDSGenApp ( ) ; 

// Overrides 

// ClassWizard generated virtual function overrides 
// { { AFX_VIRTUAL (CUDSGenApp) 
public : 

virtual BOOL Initlnstance { ) ; 
/ / } } AFX_VIRTUAL 

// Implementation 

// { {AFX_MSG (CUDSGenApp) 
af x_msg void OnApp About ( ) ; 

// NOTE - the ClassWizard will add and remove member functions 

here . 

// DO NOT EDIT what you see in these blocks of generated code 

! 

//}}afx_msg 
declare_message_map ( ) 

}; 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 / 1 / 1 1 / 1 1 / 1 1 1 1 // 1 1 1 1 / 1 1 f I ! I / ^ 
II { {afx__insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_UDSGEN_H C3C3 7D05_AD07_11D1_9169_0000F0610C92 INCLUDED ) 



A-980 



UDSGen\UDSGenDocx 

// UDSGenDoc , cpp : implementation of the CUDSGenDoc class 
// 

#include "stdafx.h" 
#include "UDSGen.h" 

#include "UDSGenDoc . h" 
#include "UDSGenView . h" 

#include "dib.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif ' 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenDoc 

IMPLEMENT_DYNCREATE ( CUDSGenDoc , CDocument ) 

BEGIN_MESSAGE_MAP (CUDSGenDoc, CDocument) 

// { {AFX_MSG_MAP (CUDSGenDoc) 

ON_COMMAND (ID_FILE_NEW, OnFileNew) 

ON_COMMAND ( ID_FILE_OPEN , OnFileOpen) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenDoc construction/destruction 

CUDSGenDoc : : CUDSGenDoc ( ) 
{ 

// TODO: add one-time construction code here 

m_dsHeader . wType = 0x5344; 
m_dsHeader . dwFileSize = 0; 
m_dsHeader . wNumEntries = 0; 
m_dsHeader . bcReservedl = 0; 
m_dsHeader .bcReserved2 = 0; 

m_aDSEntry = NULL; 

//m_targetSize = O; // Target file size. 
m_jpFilePointers = NULL; 

} 

CUDSGenDoc : : -CUDSGenDoc ( ) 

{ 

if (m_aDSEntry) 

delete m_aDSEntry; 

if (m_j5FilePointers) 

delete m_jpFilePointers ; 
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BOOL CUDSGenDoc : : OnNewDocument ( ) 
{ 

if ( i CDocument : : OnNewDocument ( ) ) 
return FALSE; 

// TODO: add reinitialization code here 

// (SDI documents will reuse this document) 



return TRUE; 

} 



///////////////////////////////////////////////////////////////////////////// 

// CUDSGenDoc serialization 
void CUDSGenDoc: : Serialize (CArchivefic ar) 
if {ar . IsStoring ( ) ) 

{ 

// TODO: add storing code here 

} 

else 

{ 

// TODO: add loading code here 

} 

} 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenDoc diagnostics 

ttifdef _DEBUG 

void CUDSGenDoc :: Assert Valid ( ) const 
{ 

CDocument: : AssertValid ( ) ; 

} 

void CUDSGenDoc :: Dump (CDumpContextSc dc) const 
{ 

CDocument : : Dump ( dc ) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenDoc commands 

CUDSGenView* CUDSGenDoc :: Get View ( ) 
{ 

POSITION pos; 
pos = GetFirstViewPosition 0 ; 
ASSERT (pos) ; 

CUDSGenView* pView = (CUDSGenView* ) GetNextView {pos ) ; 
ASSERT (pView) ; 

ASSERT (pView->IsKindOf (RUNTIME_CLASS (CUDSGenView) ) ) ; 
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return pView; 

} 

void CUDSGenDoc : : OnFileNew ( ) 

{ 

// TODO: Add your command handler code here 
GetView { ) - >m_lstSource . ResetContent ( ) ; 

CFileDialog of d (TRUE, NULL, NULL, 

OFN_HIDEREAD0NLY | OFN_OVERWR I TE PROMPT | OFN_ALLOWMULT I SELECT 
"Bitmap files | * . DIB; * . BMP; * . BM ; * . gif ; * . jpg ; * . tif | Al 1 files 
(*.*) I") ; 

//CString buffer; 
TCHAR buffer [4090*2] ; 
memset (buffer, 0,4090*2) ; 

//of d.m_ofn. IpstrFile = (LPSTR) buff er. GetBuffer (4090) ; 

of d - m_of n . IpstrFile = buffer; 

of d .m_of n . nMaxFile = 4 0 90*2; 

if (ofd.DoModalO IDOK) 

{ 

POSITION pos = ofd.GetStartPosition 0 ; 

while (pos) 

{ 

CString file = of d . GetNextPathJSTame (pos ) ; 
GetView ( ) - >m_lstSource . AddString (f ile) ; 

} 

m_nDSEntries = GetView ()- >m_lstSource . GetCount () ; 
m_dsHeader . wNumEntries = m_nDSEntries ; // How many Files? 
m_aDSEntry = new DATASOURCEENTRY [m_nDSEntries] ; 
m_pFilePointers = new DWORD [m_nDSEntries] ; 

} 

} 

BOOL CUDSGenDoc :: Generate (CString fileName) 

{ 

TRACE ("CUDSGenDoc: : Generate\n " ) ; 
GetView ( ) - >SetFilename (fileName) ; 
CFile target; 

CFileException f ileException; 

if ( ! target . Open ( fileName , CFile :: modeCreate | CFile :: modeWrite , 
£tf i leException) ) 

{ 

TRACE ( "Can't open file %s, error = %u\n", fileName, 
f ileException. m_cause ) ; 
} 

//target.SetLength(f ileLength) ; // total target file size set. 
//example for CFile:: Seek 

target . SeekToBegin () ; // Move file pointer to beginning point. 
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i f { ! SaveHeader ( &targe t ) ) 

AfxMessageBox ( "Write header error") ; 



m_dwEntryStartPoint = target . GetPosition () ; 

int offset = (sizeof (DATASOURCEENTRY) ) *m_nDSEntri 
target .Seek (of f set, CFile : : current) ; 

for(int j=0 ; j <m nDSEntries; j++) 
{ 

//SaveWithCDIB (&target , j); // no palette. 
SaveContent (Retarget, j); // Rawdata to file 



int offsetentry = sizeof (DATASOURCEHEADER) ; 
target .Seek (off setentry, CFile: rbegin) ; 

for (int i=0 ; i<m_nDSEntries ; i++) 

SaveEntry (Sctarget , i) ; 
//SaveEntryBMP C&target , i) ; 



GenerateDSI(fileName) ; // data source inforamti 
return TRUE; 



BOOL CUDSGenDoc :: SaveHeader (CFile * fo) 
{ 

TRACE ( "CUDSGenDoc : : SaveHeader \n" ) ; 

DATASOURCEHEADER dsh; 

// Construct the file header. 
dsh.wType = 0x5344; // ' DS ' 
dsh.dwFileSize - GetFileSize ( ) ; 
dsh. wNumEntries = m_nDSEntries ; 
dsh .bcReservedl = 0; 
dsh .bcReserved2 = 0; 

// Write the file header. 
WORD iSize = sizeof (dsh) ; 
TRY 

{ 

fp->Write (&dsh, iSize) ; 

} 

CATCH (CFileException, e) 
{ 

TRACE ("Failed to write file header"); 
return FALSE; 
} END_CATCH 

return TRUE; 

} 
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DWORD CUDSGenDoc : :GetFileSize ( ) 
{ 

TRACE { "CUDSGenDoc : : GetFileSize\n" ) ; 

DWORD fileLength; 

fileLength = 0; 

for(int i = 0; i<m__nDSEntries ; 

{ 

CString tmpfile; 

GetView ( ) - >m_lstSource . GetText ( i , tmpfile) ; 
CFile temp (tmpfile , CFile : -.modeRead) ; 

fileLength += temp . GetLength ( ) ; // size of all file selected, 
temp . Close ( ) ; 

} 

fileLength += sizeof (DATASOURCEHEADER) ; 

fileLength += m_nDSEntries * sizeof (DATASOURCEENTRY) ; 
return fileLength; 



BOOL CUDSGenDoc :: SaveEntry (CFile * f p , int index) 
{ 

TRACE { "CUDSGenDoc : : SaveEntry\n" ) ; 

DATASOURCEENTRY dse; 
DWORD fpos = 0; 
CString tmpfile; 

GetViewO - >m_lstSource . GetText ( index, tmpfile) ; 

CFile temp (tmpfile , CFile: : modeRead) ; 
// Construct the file header. 
CString strFN ( temp . GetFi leName ( ) ) ; 
//strFN ".bmp"; // What kind of file? 
StrFN -MakeLower ( ) ; 

//ASSERT (StrFN. GetLength 0 <= 12); 
: : ZeroMemory (&dse , sizeof (dse) ) ; 

Istrcpy (dse . id, strFN); 
/* 

for (int i=0; i<index; i++) 

{ 

CString tmpfile; 

GetViewO - >m_lstSource - GetText (i , tmpfile) ; 
CFile temp (tmpfile , CFile :: modeRead) ; 

fpos += temp .GetLength () ; // size of all file selected, 
temp . Close ( ) ; 

} 

DWORD off = sizeof (DATASOURCEHEADER) + 

sizeof (DATASOURCEENTRY) *m_nDSEntries + f pos ; 

*/ 

dse.dwOffset = m_pFilePointers [index] ; 
// Write the file header. 
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int iSize = sizeof (DATASOURCEENTRY) ; 
TRACE { "sizeof (dse) =%d\n" , iSize) ; 
TRY 
{ 

fp->Write (&:dse , iSize) ; 
return TRUE; 

} 

CATCH (CFileExcept ion, e) 
{ 

TRACE ("Failed to write file header") ; 
return FALSE ; 
} END_CATCH 

} 

BOOL CUDSGenDoc : : SaveEntryNoPal (CFile * fp, int index) 
{ 

TRACE ( "CUDSGenDoc : : SaveEntry\n" ) ; 

DATASOURCEENTRY dse; 
DWORD fpos = 0; 
CString tmpfile; 

GetView ()- >m_l St Source . Get Text (index, tmpfile) ; 

CFile temp (tmpfile, CFile :: modeRead) ; 
// Construct the file header. 
CString strFN ( temp . GetFileName ( ) ) ; 
//strFN += ".bmp"; // What kind of file? 
StrFN .MakeLower () ; 

//ASSERT (StrFN. GetLength 0 <= 12); 
: : ZeroMemory (&dse, sizeof (dse) ) ; 

Istrcpy (dse . id, strFN); 

/* 

for (int i=0; i< index; i++) 

{ 

CString tmpfile; 

GetViewO - >m_lstSource . GetText (i , tmpfile) ; 
CFile temp (tmpfile , CFile :: modeRead) ; 
fpos += temp . GetLength ( ) ; // size of all file 
temp . Close ( ) ; 

} 

DWORD off = sizeof (DATASOURCEHEADER) + 

sizeof (DATASOURCEENTRY) *m_nDSEntries + fpos ; 

*/ 

dse.dwOffset - m_jpFilePointers [index] ; 

// Write the file header. 

int iSize = sizeof (DATASOURCEENTRY) ; 

TRACE ("sizeof (dse) =%d\n" , iSize) ; 

TRY 

{ 

fp->Write (&dse , iSize) ; 
return TRUE; 
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} 

CATCH (CFileExcept ion, e) 
{ 

TRACE ( "Failed to write file header"); 
return FALSE; 
} END_CATCH 



} 

BOOL CUDSGenDoc : : SaveContent (CFile * fp, int index) 
{ 

TRACE (" CUDSGenDoc : : SaveContent \n " ) ; 

// Any kind of files to UDS . just binding. 

m_jpFilePointers [index] = f p- >GetPosition () ; 

CString tmpfile; 

GetView ()- >m_lstSource . GetText { index, tmpfile) ; 

CFile temp (tmpfile , CFile : -.modeRead) ; 
int nSize = temp - GetLength { ) ; 
BYTE* buffer = (BYTE*) malloc (nSize) ; 
temp . Read (buff er , nSize) ; 

f p- >Write (buf f er , nSize) ; 

free (buffer) ; 
return TRUE; 

} 

void CUDSGenDoc : :GenerateDSI (CString fileName) 

{ 

int 1 = fileName .GetLength () ; 
CString dsi = f ileName . Lef t ( 1 -4 ) ; 
dsi += " . dsi " ; 
CFile fnDSI; 

CFileException f ileException; 

if ( ! fnDSI .Open (dsi , CFile :: modeCreate | CFile :: modeWrite , 
&:f ileException) ) 
{ 

TRACE { "Can't open file %s, error = %u\n" , fileName, 
f ileException. m_cause ) ; 

} 

for (int i=0; i<m_nDSEntries ; i++) 

{ 

//char line [13]; 
CString tmpfile; 

GetViewO - >m_lstSource . GetText (i , tmpfile) ; 
CFile temp (tmpfile, CFile :: modeRead) ; 

CString strFN ( temp , GetFileName ( ) ) ; 
strFN .MalceLower 0 ; 
//Istrcpy (dse . id, strFN) ; 
StrFN += "\r\n"; 

fnDSI .Write (strFN, strFN . GetLength ( ) ) ; 
temp . Close ( ) ; 
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} 

} 

void CUDSGenDoc : rOnFileOpen () 

// TODO: Add your command handler code here 
/ /GetView ( ) - >m_lstSource . ResetContent ( ) ; 

CFileDialog of d (TRUE, NULL, NULL, 

OFN_HIDEREADONLY | OFN_OVERWR I TE PROMPT , 
"DSI files I * .dsi | * . * | | ") ; 

if (of d.DoModal ( ) == IDOK) 

{ 

CStdioFile dsiFile (of d . GetFileName ( ) , CFile: :modeRead) 
CString strTemp; 

while (dsiFile,ReadString(strTemp) ) 

GetView 0 - >m_lstSource . AddString (strTemp) ; 

} 

} 

BOOL CUDSGenDoc : rSaveContentNoPal (CFile * fp, int index) 
TRACE ( "CUDSGenDoc : : SaveContentNoPal\n" ) ; 
m_pFilePointers [index] = f p - >GetPosition ( ) ; 
CString tmpfile; 

GetView 0 - >m_lstSource . GetText (index, tmpfile) ; 

CDIB* dib = new CDIB; 
dib->Load (tmpfile) ; 

dib->Save (fp, FALSE); // no palette, 
delete dib; 



return TRUE; 

} 

BOOL CUDSGenDoc : :SaveWithCDIB (CFile * f p , int index) 
TRACE ("CUDSGenDoc: : SaveWithCDIB\n" ) ; 
m _pFilePointers [index] = f p- >GetPosition ( ) ; 
CString tmpfile; 

GetView 0 - >m_lstSource . GetText (index, tmpfile) ; 

CDIB* dib = new CDIB; 
dib- >Load (tmpfile) ; 

dib->Save (fp, FALSE); // no palette. 
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delete dib; 



return TRUE; 

} 

DWORD CUDSGenDoc: : GetFileSiseNoPal () 
{ 

TRACE { "CUDSGenDoc : : GetFileSize\n " ) ; 

DWORD fileLength; 

fileLength = 0; 

for(int i=0; i<m_nDSEntries ; 

{ 

CString tmpfilc; 

GetView ( ) - >m_lstSource . GetText (i , tmpfile) ; 
CFile temp (tmpfile , CFile : : modeRead) ; 

fileLength temp . GetLength ( ) ; // size of all file selected, 
temp . Close () ; 

} 

fileLength += sizeof (DATASOURCEHEADER) ; 

fileLength += m_nDSEntries * sizeof (DATASOURCEENTRY) ; 
fileLength -= m_nDSEntries * (sizeof (RGBQUAD) *255) ; 

return fileLength; 

} 

BOOL CUDSGenDoc: :SaveHeaderNoPal( CFile * fp) 
{ 

TRACE ("CUDSGenDoc: : SaveHeader \n" ) ; 

DATASOURCEHEADER dsh; 

// Construct the file header. 

dsh.wType = 0x5344; // • DS ' 

dsh . dwFileSize = GetFileSizeNoPal { ) ; 

dsh . wNumEntries = m_nDSEntries ; 

dsh . bcReservedl = 0; 

dsh . bcReserved2 = 0; 

// Write the file header. 
WORD iSize = sizeof (dsh); 
TRY 

{ 

fp- >Write (&:dsh, iSize) ; 

} 

CATCH (CFileException, e) 

{ 

TRACEC'Failed to write file header"); 
return FALSE; 
} END_CATCH 

return TRUE; 
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} 

BOOL CUDSGenDoc : :GenerateNoPal (CString fileName) 
{ 

TRACE { "CUDSGenDoc : : Genera teNoPal \n " ) ; 
GetViewO -> Set Filename (fileName) ; 
CFile target; 

CFileException f ileException; 

if ( ! target . Open (fileName , CFile : :modeCreate | CFile :: modeWrite , 
&f ileException) ) 

{ 

TRACE ( "Can't open file %s, error = %u\n" , fileName, 
f ileException . m_cause ) ; 

} 

//target , SetLength (fileLength) ; // total target file size set. 
//example for CFile:: Seek 

target - SeekToBegin () ; // Move file pointer to beginning point. 

if ( ! SaveHeaderNoPal (fctarget) ) 
{ 

AfxMessageBox ( "Write header error"); 

} 

m_dwEntryS tart Point = target . GetPosit ion () ; 

int offset = (sizeof (DATASOURCEENTRY) ) *m_nDSEntries ; 
target . Seek (of f set , CFile: : current) ; 

for (int j=0 ; j <m_nDSEntries ; j++) 

{ 

SaveContentNoPal (&target , j ) ; 

} 

int offsetentry = sizeof (DATASOURCEHEADER) ; 
target . Seek (of fsetentry, CFile: : begin) ; 

for (int i=0 ; i<m_nDSEntries ; i++) 

{ 

SaveEntryNoPal (Retarget , i) ; 
//SaveEntryBMP (6e targe t , i); 

} 

GenerateDSI (fileName) ; // data source inforamtion file, 
return TRUE; 

} 
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// UDSGenDoc . h : interface of the CUDSGenDoc class 
// 

1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 // f // n I / 1 / 1 / 1 / 1/ 1 1 1 1 1/ 1 / 1 / 

#if 

I defined (AFX_UDSGENDOC_H C3C3 7D0B_AD07_11D1_916 9_00 00F0 610C92 INCLUDED_) 

#def ine AFX_UDSGENDOC_H C3C3 7DOB__AD07_11D1_9169_OOOOF0610C92 INCLUDED_ 

#if _MSC_VER 1000 
#pragma once 

tendif // _MSC_VER 1000 

typedef struct tagDATASOURCEHEADER 
{ 

WORD wType; // 'DS' for Data Source. 

DWORD dwFileSize; // Total file size. 

WORD wNumEntries; // Number of entries 

WORD bcReservedl 
WORD bcReserved2 
} DATASOURCEHEADER; 

typedef struct tagDATASOURCE ENTRY 
{ 

char id[13]; // org filename (with extension) + NULL // 13 

bytes . 

DWORD dwOffset; // offset to the BITMAPFILEHEADER // 4 bytes. 
} DATASOURCEENTRY , FAR *LPDATASOURCEENTRY ; // total 17 bytes. 

class CXJDSGenView; 

class CUDSGenDoc : public CDocument 

{ 

protected: // create from serialization only 
CUDSGenDoc ( ) ; 

DECLARE_DYNCREATE (CUDSGenDoc) 

// Attributes 
public : 

DATASOURCEHEADER* GetHeader () { return £cm_dsHeader ; } 
LPDATASOURCEENTRY GetEntry () { return m_aDSEntry; } 

// Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
/ / { { AFX_VIRTUAL (CUDSGenDoc) 
public : 

virtual BOOL OnNewDocument { ) ; 
virtual void Serialize (CArchivefic ar) ; 

//} }afx_virtual 

// Implementation 
public : 

BOOL GenerateNoPal (CString f ileName) ; 
BOOL Generate (CString f ileName) ; 
virtual -CUDSGenDoc () ; 
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#ifdef _DEBUG 

virtual void AssertValid ( ) const ; 

virtual void Dump (CDumpContext& dc) const; 

#endif 
protected: 

// Generated message map functions 
protected : 

BOOL SaveHeaderNoPaKCFile* fp) ; 

DWORD GetFileSizeNoPal () ; 

DWORD* m_pFilePointers ; 

DWORD m__dwEntryStartPoint ; 

BOOL SaveWithCDIB (CFile* fp, int index); 

void GenerateDSI (CString f ileName) ; 

BOOL SaveContentNoPal (CFile* fp, int index) ; 

BOOL SaveContent (CFile* fp, int index); 

BOOL SaveEntry (CFile* fp, int index); 

BOOL SaveEntryNoPaK CFile* fp, int index); 

DWORD GetFileSize () ; 

BOOL SaveHeader (CFile* fp) ; 

//DWORD m_targetSi2e; 

CUDSGenView* GetViewO; 

LPDATASOURCEENTRY m_aDSEntry; 

int m_nDSEntries ; 

DATASOURCEHEADER m_dsHeader ; 

//{ {aFX_MSG (CUDSGenDoc) 

afx__msg void OnFileNewO; 

afx_msg void OnFileOpen ( ) ; 

//} }afx_msg 
declare_message_map ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// { (afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_UDSGENDOC_H C3C3 7DOB_AD0 7_11D1_916 9_OOOOF0610C92 INCLUDED_) 
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// UDSGenView . cpp : implementation of the CUDSGenView class 
// 

#include "stdafx.h" 
#include "UDSGen.h" 

#include "UDSGenDoc . h" 
# include "UDSGenView . h" 
#include "TargetDlg . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = FILE ; 

#endif 

/ 11 / 1 1 / 1 / / 1 n 11 1 / 1 1 1 1 1 1 / 1 1 1 1 / / 1 1 1 1 / / / 1 1 1 / 1/ 1 1 f 11 / 1 1 / / 1 1 1 1 1 / 1 1 / 1 11 1 / 1 / 1 1 1 / 1 1 / 1 
II CUDSGenView 

IMPLEMENTED YNCREATE (CUDSGenView, CFormView) 

BEGIN_MESSAGE_MAP (CUDSGenView, CFormView) 
// { {AFX_MSG_MAP (CUDSGenView) 
ON_BN_CLICKED (IDC_GENERATE, OnGenerate) 
/ / } }AFX_MSG__MAP 
// Standard printing commands 

ON_COMMAND (ID_FILE_PRINT, CFormView: : OnFilePrint ) 
ON_COMMAND (XD_FILE__PRINT__DIRECT, CFormView: :OnFilePrint ) 
ON_COMMAND (ID_FILE_PRINT_PREVIEW, CFormView: : OnFilePrintPreview) 
END_MESSAGE_MAP { ) 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenView construction/destruction 

CUDSGenView: : CUDSGenView () 

: CFormView (CUDSGenView : : IDD) 

{ 

/ / { {AFX_DATA_INIT (CUDSGenView) 

// NOTE: the ClassWizard will add member initialization here 
/ / } } AFX_DATA_INIT 

// TODO: add construction code here 

} 

CUDSGenView : : -CUDSGenView ( ) 

{ 

} 

void CUDSGenView: :DoDataExchange (CDataExchange* pDX) 

{ 

CFormView: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CUDSGenView) 

DDX_Control (pDX, IDC_PROGRESSl , m_ct 1 Progress ) ; 
DDX_Control (pDX, IDC_LIST1, m_lstSource) ; 
/ / } } AFX_DATA_MAP 

} 
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BOOL CUDSGenView: : PreCreateWindow (CREATESTRUCT& cs) 
{ 

// TODO : Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 

return CFormView: : PreCreateWindow (cs) ; 

} 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1/ 1 1 1 1 1 1 1 1 / 1 1 1 / 1 / 1/ 1 1 1 11 1 1 1 / 1 1 1 1 1 

I / CUDSGenView printing 

BOOL CUDSGenView: :OnPreparePrinting (CPrintlnfo* pinfo) 
{ 

// default preparation 

return DoPreparePrinting (pinf o) ; 

} 

void CUDSGenView: lOnBeginPrinting (CDC* / *pUC* / , CPrintlnfo* /*pInfo*/) 
{ 

// TODO: add extra initialization before printing 

} 

void CUDSGenView: :OnEndPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 
{ 

// TODO: add cleanup after printing 

} 

void CUDSGenView: : OnPrint (CDC* pDC, CPrintlnfo*) 

{ 

// TODO: add code to print the controls 

} 

///////////////////////////////////////////////////////////////////////////// 
// CUDSGenView diagnostics 

#ifdef __DEBUG 

void CUDSGenView: :AssertValid 0 const 

{ 

CFormView: : AssertValid ( ) ; 

} 

void CUDSGenView :: Dump (CDumpContext&c dc) const 

{ 

CFormView: :Dump (dc) ; 

} 

CUDSGenDoc* CUDSGenView: :GetDocument { ) // non-debug version is inline 
{ 

ASSERT (m_pDocument->IsKindOf (RUNTIME_CL.ASS (CUDSGenDoc) ) ) ; 
return { CUDSGenDoc* ) m__pDocument ; 

} 

#endif //_DEBUG 

1 1 // 1 1 1 1 // 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 H 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II CUDSGenView message handlers 

void CUDSGenView : :OnGenerate () 
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TRACE { "CUDSGenView: : OnGenerate\n" ) ; 

// TODO : Add your control notification handler code here 

CTargetDlg dig; 

if (dlg.DoModal 0 == IDOK) 

{ 

CString fn = dig . m_strTargetFile ; 
f n +- " . uds " ; 

GetDocument () ->Generate (fn) ; 

} 



void CUDSGenView :: SetFilename (CString fileName) 
{ 

CStatic* title = (CStatic* ) GetDlgltem ( IDC_TARGET) ; 
title- >SetWindowText (fileName) ; 

} 
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// UDSGenView.h : interface of the CUDSGenView class 
// 

///////////////////////////////////////////////////////////////////////////// 
#if 

[defined (AFX_UDSGENVIEW_H C3C3 7D0D_AD07_1 1D1_9169_OOOOF06 10C92 INCLUDED_) 

#def ine AFX_UDSGENVIEW_H C3C3 7D0D_AD07_1 1D1_9169_000 0F0610C92 INCLUDED_ 

#if _MSC_VER 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CUDSGenView : public CFormView 

{ 

protected: // create from serialization only 
CUDSGenView () ; 

DECLARE_DYNCREATE (CUDSGenView) 

public : 

// { {AFX_DATA (CUDSGenView) 

enum { IDD = IDD_UDSGEN_FORM } ; 

CProgre s sC t r 1 m_c 1 1 Progr e s s ; 

CliistBox m_lstSource; 

//} }AFX_DATA 

/ / Attributes 
public : 

CUDSGenDoc* GetDocument ( ) ; 

// Operations 
public : 

/ / Overrides 

// ClassWizard generated virtual function overrides 

/ / { {AFX__VIRTUAL (CUDSGenView) 

public: 

virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

virtual BOOL OnPreparePrinting (CPrint Inf o* pinfo) ; 
virtual void OnBeginPrinting (CDC* pDC, CPrintlnfo* pInfo) ; 
virtual void OnEndPrinting (CDC* pDC, CPrintlnfo* pInfo) ; 
virtual void OnPrint (CDC* pDC, CPrintlnfo*); 

//} }afx_virtual 

// Implementation 
public : 

void SetFilename (CString fileName) ; 
virtual -CUDSGenView ( ) ; 
#ifdef _DEBUG 

virtual void AssertValid ( ) const; 

virtual void Dump (CDump Contexts dc) const; 

#endif 
protected : 

// Generated message map functions 
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protected : 

// { {AFX_MSG (CUDSGenView) 
afx_msg void OnGenerate ( ) ; 
//} }AFX_MSG 
DECLARE_MESSAGE MAP ( ) 

}; 

#ifndef _DEBUG // debug version in UDSGenView . cpp 
inline CUDSGenDoc* CUDSGenView :: GetDocument ( ) 

{ return (CUDSGenDoc* ) m_pDocument ; } 
#endif 

///////////////////////////////////////////////////////////////////////////// 

// { {afx__insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately 
before the previous line. 

#endif // 

! defined (AFX_UDSGENVIEW_H C3C3 7D0D_AD07_1 1D1_9169_0000F0610C92 INCLUDED ) 
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Inside UniChat 



1. Source Files 

Compiler: MS Visual C++ 4.0 or above 

Number of Lines = 5,256 (UC2Ani.dU) + 19,094 (UC2.exe) + 3,962 (MapEd.exe) = 28,312 lines 



VC++ Project 


Description 


Module 




S UniChat Animation Library 


UC2Ani.dll 




1 UniChat 2 Client System 


UC2.exe 




g Map Editor 


MapEd.exe 




M UniChat Data Source Generator 


UDSGen.exe 




P Monitoring Tool for counting current members 


MonTooLexe 



Directory Structure in the UruChat 2 Source CD-ROM 



Directory Name Description 



Root 

Asynchronous Moniker (for files download) sample program 

Bitmap file manipulation sample code for CDIB (with separate palette file) 

DEBUG: intermediate files for the compiler 

Some documents 

Generic SDI: Visual C++ compiler's generated template for an SDI project 

Help project files for UniChat 2 

Image Sources for UniChat 2 

Resource Definition files for English version 

Resource Definition files for Korean version 

Resource Definition files for MaU version 

Map Editor Project 

Data files: The default directory for data in UniChat 2 debugging environment 
Monitoring Tool project 

Test project for data downloading with progress control view 

RELEASE: intermediate files for the compiler 

RES: Resource files for UniChat 2 

Setup project for UniChat 2 

Redistributable files for UniChat 2 

Test project 

Animation library project 

UniChat Data Source file Generator Project 

Web Browser Test Project 
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Inside UniChat 



Project UC2Ani which generates UC2Ani.dll 



CO BPal 

CO B 

C Sprite 

CPhasedSprile 

COSBView 

CSpriteList 

CSpriteNotifyO b j 

CSpriteL istNotifyOb j 

CBubb le 

CBubbteList 

CBubb leNotifyObj 

CBubb leL is tNotifyObj 

CMC lObject 

CSound 

CPSButton 



rCPabtte 

:CObject 

:C0 B 

: C Sprite 

: CScrolV ew 

:CObList 

: CObpct 

: CSpriteNotifyO bj 

: CObject 

iCObL'Bt 

: CObject 

: CBubb iBNotifyObj 
: CObject 
: CObject 
:C button 



Pafette M anager 

Devce IndepentB itm ap m an pubtbn 
B itm ap Sprite 
Phased Sprite Ann atbn 
0 ff-Screen Buffered V'ew 
Sprite List stmcture 
Notif baton Object forC sprite 
Notif baton 0 b ject for CSpriteList 
Bubb Is D raw ng 
Bubb le List structure 
Notifbatbn Objact for CBubb le 
Notif baton Object for C Bubb leList 
M ed & Contro 1 hterface 
S m p le Sound P layer usbg M C I 
Phased Sprite Button 



35 


386 


174 


1.548 


133 


329 


97 


397 


87 


421 


38 


173 


38 




36 


65 


64 


287 


38 


149 


36 




34 


65 


40 


213 


37 


131 


62 


143 



5.256 



Project MapEd which generates MapEd. 



exe 



CAboutD Ig 


:C0 iabg 


AboutO iabg 


CActor 


:CPhasedSpritB 


Actor 


C ActorDesc 




Actor Oescrptbn 


CBehavbr 




Behavbr of actors 


CO bseD (g 


:C0 Bbg 


C bse 0 abg 


CFlatTooBar 


:CTooBar 


Too bar for flat buttons 


CGetlnlD Ig 


:CD iabg 


hputO Bbg for hteger 


CGetTextD Ig 


:CD iabg 


hputO abg for Text 


CM a ffiFram e 


:CFra(ii eW nd 


Ma'nFrameW hdow forMapEditor 


CM apEdApp 


:CW hApp 


Applcatbn W rdow forMapEditor 


CMapEdDoc 


: CDocum ent 


Oocum ante lass for M apEditor 


CMapEdView 


: COSBView 


V few C feiss for M apEd itor 


CMapEnvD Ig 


:C0 Bbg 


Input 0 abg for M ap Environm ent variable 


CMapListView 


:CFonn V'ew 


View for the listof tibs and sprites 


CM em berlnfo 




M em ber hfo 


C Parser 




L'ne by Ihe parser for tie text fib 


CResM an 


:CObpct 


Resource Manager 


CStage 


:CObpct 


Stage 


CTextF ileBuffer 


:C0bj3ct 


M em ory m anagem ent for text fifes 


CTileM ap 


:CObjBCt 


Tib and m ap m anagem ent 



32 


245 


49 


60 


48 


53 


70 


239 


66 


201 


138 


589 


125 


1.054 


60 


78 


113 


489 


89 


164 



3.962 
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Project UC2 which generates UC2.exe 



CActor 

C ActorOesc 

CBaseChannel 

CBaseSocket 

CBehavbr 

CB ridStatusCalback 

CC bseD 

CD own Info 

CO own bad 

CEditH istory 

CEditSend 

C InputPassword 

CLoQtnD Ig 

CM ainFram e 

CM em be r Info 

CM em berListD Ig 

C Parser 

CPPActor 

CPPChannel 

CPPCreateChannel 

CPPM em berlnfof 

CPPMem berlnfo2 

CProgressD Ig 

CPSFram e 

CPSJoinChannet 

CPSM em berlnfo 

CResM an 

CSplashWnd 

C Stage 

CTextFileBuffer 

CTileM ap 

CUC2APP 

CUC2Channel 

CUC20OC 

CUC2H istory 

CUC2PaneI 

CUC2Socket 

CUC2View 

CWhisperO Ig 



:CPhasedSpritB 

:CObjBCt 
:CObjBCt 



Actor 

Actor Oescrptbn 
Base ChannelServce 
Base SocketServce 





Behavbr of actors 


B ndStatusCalback Calback cbss for down bad ng 


CD iabg 


C bse 0 iabg 




Down bad iifo 




Down bad class us ng Monker 


CEdit 


Ed it control for H Btoiy Panel 


CEdIt 


Ed it control for Send ng text 


CO iabg 


InputPassword 0 abg 


CO Bbg 


Logn D iabg 


CFram eW nd 


M ahFram e W hdow for Un Chat 




Mem ber hfo 


CD iabg 


Mem berListD abg 




Lrie by Ihe parser for the text fib 


CPropertyPage 


Property Page for actor 


CPropertyPage 


Property Page forChannelLfet 


CPropertyPage 


Property Page for Create Channel 


CPropertyPage 


Property Page 1 for Mem ber hfo 


CProperfyPaQe 


Properly Page 2 for Mem ber kifo 


CO Bbg 


D iabg for down bad hg 


CM riFram eW nd 


FrameW iidow for m em ber property 


CPropertySheet 


Proper^ Sheet for Jo n hg Channel 


CPropertySheet 


Property Sheet for M em ber hfo 


CObjBCt 


Resource Manager 


CWnd 


Sp lash W hdow for 256 co br rn age 


CO b pot 


Stage 


COb^ct 


Mem ory m anagem ent for text fibs 


CObject 


Tib and m ap m anagem ent 


iCWndApp 


UnChat2 Applicatbn W hdow 


: CBaseChannel 


ChannelServce forUnChat 


:COocum ent 


Docum entcbss forUnChat 


:CD iabgBar 


H istory Panel 


:C0 iabgBar 


ControlPanel 


: CBaseSocket 


Socket Servbe forUnChat 


:COSBVisw 


View class forUnChat 


:CD iabg 


W h'BperO iabg 




UnChat2 Messages Defhitbn 



91 


406 


31 


122 


101 


467 


112 


621 


94 


138 


63 


108 


71 


280 


25 


65 


■17 


308 


51 




36 




47 


44 


144 


920 


127 


860 


89 


164 


85 


406 


135 


422 


76 


317 


89 


493 


63 


166 


88 


94 



82 


629 


51 


103 


106 


375 


52 


52 


156 


1^52 


66 


237 


141 


1.099 


136 


423 


156 


1.197 


96 


500 


35 


148 


186 


1,575 


66 


74 


75 


271 


65 


384 


127 


893 


48 


46 


156 










19.094 
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2, Data Files 




RIT and SIT files are distributed after LZ compression. UniChat client program can cleverly 
load these files whether they are compressed or not. 

RIT - Resource Information Table 

RIT contains all the definitions for the UniChat resources. UniChat resources are mainly tiles, 
static sprites, animated sprites, avatars and animation descriptions. For example, every static 
sprite needs an information for the bottom center position in the image besides the image file 
itself. 

The chent system does not store each file name for the sprite but it sequentially generates serial 
numbers from 0 and use this niunber as an identifier to the sprite image. 

For images, we have the following types: 



• Every image sets its first pixel, the left top pixel of the image, as a transparent color. 

• Static sprites and animated sprites can have some linked URLs in the script. 

You can assign 3 types of animations for each sprite in Map Editor. CSprite-GetAruTypeQ 
return the associated animation type of the sprite. In CPhasedSprite::HeartBeat(.,.), you can see 
the code for these animations. 






tNAMEnnn.bmp 

t00|tcity001=(1,7); // tOO is a unichat data source file 
// cells are arranged in 1 column and 7 rows 



cNAMEnnn.bmp 
cs001ctree009=(29,83); 

// center of the bottom (earth position) - in pixel units 

// the crossing point at the left image indicates this position 

(In Map Editor, this position is shown in this way) 



iNAMEnnn.bmp 

cw00|ircha001=(3.1),(20.36); 

// cell dimension, center of earth position 
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Cell animation with assigned interval 
Animation effect with fade-in eind fade-out of one cell 
REPEAT animation but with random interval between cycles 
Actor keeps animation data in CActorPesc and CBehavior 



•'u2res00.rit" 



Resource Info Specification 
RIT: Resource Information Table 



; filename=[(col,row)](,(cz.x,cz.y)][, nickname]; 

; filename = resource type flag(l) + nameft) + serial(3); 

; resource type flag = t(TILE), s(STATlC). i{ANI), a(AVATAR), w<WAVE), m(MIDt) 

; (col.row) = # of cells in (column, row); for STATIC this attribute is omitted 

; (cz.x.cz.y) = center of z-order in (x, y) pixel position from the leftop 

; nickname = nickname for actor 

#VERSION=0.99: 

// Think of tile as a PhasedSprite 

#TIL= //TILE 

{ 

tOO|tcity001=(1 .7); // IcityOOl .bmp" in "tOO.uds" has 7 cells in one row. 

t00|tcity002=(1.5); 

t00ltcosm001=(3,7); 

} 

#STT= // STATIC Sprites - These files comprise of only one cell. 
{ // bottom center position (cz.x, cz.y) in pixel 

caOOjcadveOOl =(1 0,78),http://www,unael.co.kr/; 
ca00|cadve006=(23, 1 1 5).http:/AAnMw.macdonaId.com/; 
caOO|cbill001 =(32.98); 

} 

#ANI= // ANIMATED Sprites 
{ 

cwOO|iadve001 =(3.1 ),(1 1 0.0).http://a.b-cftinichat/|http:M.b.c/lhttp://wvw.naver.o^ 
cw00|iadve002=(4,1 ),(1 .6),http://a.b.c/pittp;//vww.samsung .co.kr/|http://a.b.c/jW^ 
cw00Iiadve003=(4.1).(1.6).http7/a.b.c/pittp://a.b.c/lhttp://a.b.c/unichat/|http://www.naver.com 
cw00|ian^o001=(5.1).(6.0); 

} 

#AVT= // AVATAR 
{ 

a00laman_001 =(1 1 ,4).(23.45); 
a00|aman_002=(1 1 .4).(23,45); 
a00|aman_003=(1 1 .4).(23.45); 
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} 

#WAV== // Wave files 
{ 

sagryOOO; // sagryOOO.wav 
schngOOO; 

} 

#MID= // MIDI files 
{ 

mjazzOOO; // mjazzOOO.mId 
mjazzOOl ; 

> 

#STAGE= // User-creatable stages 
{ 

OOOOcsIn; // OOOOcsin.sit 
0001 ctrm; 

} 

#SERVERIP= // Server IP Addresses 

{ 

203.241.132.83; //LAN 
88.1-26-2; //MODEM 
127.0.0.1: 

ComlcSrvl .Microsoft.Com; 
vchati -microsoft.com; 
} 

; ACTOR SECTION 

: (*i): - change orientation, * 50%, / 25%, 1 12%. - 0%. don't USE_COLORKEY 

; #ACTOR=ld, nickname, nMSPT; // nMSPT: milliseconds per tick 

:{ 

; // nMSPT is Milliseconds per Tick 

: // Behaviors 

; 0=nRepeatCount,(cell index(, delay ticks(, displacement_x. displacement_y(, sound ld))))„,; 

; // nRepeatCount = 0 for infinite loop,- value for pendulum movement 

; // delay ticks; 5 = fast; 10 = moderate; 15 = slow 

:) 

#ACTOR=aOO|aman_001 ,man001 .40; // This first actor definition will be used for the default. 

{ 

// Behaviors 

STANDF=1 .(0.2); // Stand fonwanj 
STANDB=1 ,(9.2); // Stand backward 

STANDINGF=1 ,(i0,2.0.0,schng002)(/0.2)(*0,2)(#0,2)(0.2); // Appearing in fonvard stance 
STANDINGB=1,(|9.2,0.0,schng002)(/9.2)(*9.2)(#9,2)(9,2); // sound td is a predefined wave file in RIT 
M0RPHF=1 .(39.2); // Morphed image 
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MORPHB=1,(42.2); 

MORPHINGF=1 .(|39,2,O,O,schng000)(/39.2)(*39.2)(#39.2)(39.2); // Morphing sequence 

MORPHINGB=1.(I42,2.0,0,schng001){/42.2)(*42,2)(#42,2)(42.2); 
DOZEF=0.r21 .10)r22.10); 

DOZEB=0,(*33.10)(*34J0); WALKF 
// Movements 8 * 4 = 32 pixels in x 

WALKF=1 ,(1 .5,8.4,sstep000)(2.5.8,4)(3.5.8,4){4.5,8,4); 
WALKB=1,(5,5,8,4,sstepO0O)(6,5,8.4){7.5.8.4)(8.5.8.4); 
UPF=1 .(1 .3)(2,3)(3.3)(4,3,0.0.sjpup000); // Jump up 

UPB=1.(5,3)(6,3)(7,3)(8.3,0.0.sjpup001); 
DOWNF=1 .(1 ,3)(2.3)(3,3)(4.3.0.0,sjpdn000); 
DOWNB^1,(5.3)(6.3)(7.3)(8.3.0.0.sjpdn001); 
MORPHWALKF=1 ,(40,5,8,4.stum000)(41 .5,8,4)(40.5,8.4)(41 .5,8.4); 
MORPHWALKB=1 .(42.5,8.4,stum001 )(43,5.8.4)(42,5.8.4)(43,5,8,4); 
// Gesture Commands 
CHAT=3.(10)(11)(12); 

ENTER=1 ,(|0,3,0.0.sstep000)(/0.3)r0.3)(#0,3)(0.1 ); 

EXIT=1.(0,3,0,0,sstepOOO){#0,3)(*0.3){/0.3)(!0.3): 

SMILE=1.(13.0,0.stemp000)(14)(13)(14)(13)(14); 

MAD=1.(15.5,0,0,sagryOOO)(16)(15){16)(15)(16); 

HELLO=1,(17,10)(18); 

CRY=1,(19.5,0.0,scrysOOO)(20)(19){20)(19)(20); 
SCRATCH=1,(23,3.0.0.stemp001)(24,2){23,3){24.2); 
PICK=1 ,{29.10.0,0,spick000); 

SPECIAL=1 ,(30,5.0.0,stemp000)(31 )(32)(*32)(32)(31 )(32); 

WIGGLEB=2,(33)(34); 

PUNCHF=3,(25.5.0.0,shtt_000){26); 

PUNCHB=3,(37.5,0.0,shit_002)(38); 

BEATENF=1.(27)(28,2)r28.3)(28,2)(27.3); 

BEATENB=1.(35)(36.2){*36.3)(36.2)(35.3); 

;TURN180 

;TURN360 

} 

#ACTOR=a00|aman„002,man002.20; // Overload some definitions 

{ 

MORPHWALKF=1 ,(40.5.8.4,sstep000)(41 .5.8.4)(40.5.8.4){41 .5,8,4); 

MORPHWALKB=1,{42.5.8,4.sstep000){43.5,8.4)(42.5.8,4){43,5,8.4); 

SPECIAL=1.(30.5.0.0.stempOOO)(31)(32)(31)(32); 

} 

#ACTOR=a001aman_003,man003.50; //will use actor definition of the first one aOO|aman_001 as a default 

{ 

} 

In the ACTOR section, actor's behaviors are clearly described by some kind of script. For each 
predefined behavior, we associate a sequence of cell animation and some parameters. 
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Avatar Image 




In UniChat 2, every actor image has the same nimaber (11*4=44) of cells in it and each ceU is 
associated with the predefined behavior. 

SIT - Stage Information Table 

Srr is a file format for storing each background's map and objects on it It has two sections, one 
for a list of sprite objects and other for the tile map. One backgroimd needs one SIT file. These 
files are automatically generated by Map Editor tool. 

; Stage 0030mall.sit 
#VERSION=1.01; 
// Sprites data 

// #STAGE=[room id] Title, Background Music Sequence; 

#STAGE=[u2/0030mall]The M@ll-The Biggest Shopping Center on the Earth, 5>9>1>4>2>8>; 
{ //Cstage::Load{) 

// Resource ID = Cell ID. LeflTop position, Image Operation, Elevation, Sprite Type, nMSPT; 

333=0,(1 34,-65),0,0,65535,0; 

257=0.(454,-69); 

335=0,(314,-43),256,0,65535,0; 

257=0,(497,-49); 

224=0.(616.4),256.0.4.0; 

242=0.(106,-57); 

257=0,(540.-27); 

389=0,(317,-65).256,0.65535.0; 

} // 100 sprites. 

// MAP data 

#TILESIZE=(64.32); // Tile Size in pixel 
#SCREENSIZE=(640,368); // Dimension 

#ROW=(0); // CtiIeMap::LoadRow() 
{ 
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// -1 = Actor Elevation, Direction Attribute; // for NULL tile (that has no associated tile image) 

// Resource ID = Cell ID, Elevation, Image Operation, Actor Elevation, Sprite Type, nMSPT, Direction Attribute, Hyperlink; 

1=3; 

1=0; 

3=1; 

3=1.0.0.0,1,0,13; 

1=3.0.0.0,1,0,12; 

1=3,0,0,0.1.0,0; 

1=3,0.0.0.1,0,0; 

3=2,0,0,0,1,0,14; 

3=2; 

1=0.0,256.0.1,0.15; 

0=2; 

} 

#ROW=(1); 
{ 

-1=0.9; 
} 

#ROW=(23); 
{ 

0=1 .0.0,0.1 ,0.1 5.x;0020mall; // This tile is an exit with link to "0020mall.sitr 

> 

; 264 tiles. 

Tiles are managed by rows in the memory and graphically their sequence in the screen looks 
like this picture. 




UDS - UniChat Data Soiu-ce 

UniChat 2 has more than 360 bitmap image files. In order to optimize disk usage by reducing 
the number of files, we combine multiple files into one data source file. This data source file has 
its own index table in it and actucd bitmap images. And to reduce the file size UDS file does not 
store each palette table of the image. Since we are using one master palette with 256 colors, we 
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don't have to have the palette for each image redundantly. 
UDSGen.exe is a tool to merge bitmap images into one file. 



.BMP 



BITMAPFILEHEADER 



BITMAPINFOHEADER 



PALETTE[256] 
1 KB 



Image Data 



'.DSI 



A List of Bitmap Files 
tabcOOO bmp 
tabcOOl bmp 



*.UDS 



UDS Header 



Image Data[0] 



Image Data[l ] 



Image Data[N-l] 



CDIB class in UC2Ani library knows how to read UDS file and load a specified bitmap image in 
it 

Naming rule for the resource location: 



Data Source(*.uds) | Bitmap Filename(*.bmp) 



For example, 
CDIB* pDIB; 

pDIB->Lx>ad("aOO |atree001"); 

// Ih "ab0.uds" file, find "atree6oi.bmp" image and load into memory 



3. Data Model 

The model of Classes in UniChat is an analogy of the stage and the actors on it. We can think of 
animation as a play of the actors on the stage. 

Besides the basic classes in UC2Ani.dll, the animation related classes are the following: 



Description 



Resource Manager 

Stage has control for creation of tiles, actors and sprites. 

Loads tile data from .SIT and makes an image for the background 

Behavior is a sequence of data for cell animations 

Actor Description class keeps a record for each predefined characters 

Actor represents each iiser in UniChat 
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Animation Mechanism 

Here is the animation mechanism. CStage::TickA110 function is a heart that pximps all the 
animations in the system. Behavior index and alarm tick in CPhasedSprite and C Actor are some 
kind of switches. C Actor is inherited from CPhasedSprite that has basic animation functions. 
Since CActor is for actors with various behaviors Uke walking, smiling, and crying, CActor 
involves more data and methods to deal with. 




m dwAlarmTick; 
m_ai; // animation index 
m__pBeh; // pointer to Behavior 
CPhasedSprite: xurrent cell index 



void CPhasedSprite: :HeartBeat(DWORD dwCurTick) 

{ 

SetNextCell(); // Advance current cell index 

SetAlarmrick(dwCurTick + GetMSPT()); // Set alarm for the next animation 



void CPhasedSprite::SetNextCell() 

{ // Notify the change of its image to the current view (COSBView) 
m_pNotifyObj->Change(this, CSpriteNotifyObj::IMAGE, &rcPos); 

} 

int CStage::TickAIIO 

{ 

DWORD dwCurTick = ::GetTickCount(); 
POSITION pos - m_AniList.GetTailPosition(); 
while (pos) 
{ 

CPhasedSprite* pPS = (CPhasedSprite*)m_AniList.GetPrev(pos); // Increment position. 

if (dwCurTick >= pPS->GetAlannTick()) 

{ 

if (pPS->HeartBeat(dwCurTick)) 

m_pOSBView->RenderAndDrawDirtyList(); 

} 

} 

} 
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In MFC's OnIdle(long) function, this CStage-TickAUQ function is called automatically. 



CStage keeps a list of animated sprites 




SetNextCell()/ 
SetAlarmTickO 



btify to the view 
for updated area 
(dirty region) : :GetTickCoimtO 



m dwAlarmTick ^ DWORD comparison 






For actors, since each actor has several behaviors involved, we need a kind a switch to designate 
current behavior. 

CActorDesc keeps a sequence of animations (each behavior) for each actor 

► ' 



C Actor: 
Behavior Switch 



CBehavior* 
mj)Behavior 



CPhasedSprite::m_ai keeps the current animation(ceU) index 



BeJiaoiors 
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Memory model for the Stage and Actors 
BOOL CUC2Doc::OnNewDociimentO 



LEGEND 
Creation (memory allocation) 
Pointing (reference) 



CUC2App : CWinApp 



CStage* m jtStage, 
BOOL m_bPause, 



CStage instance is first created in CUC2Doc::OnNewDocumentQ 



COSBView* m_pOSBVie^ 
CSpriteList iii_SpriteList^ 
CSpriteList mAniList; 
CBubbieList m^BubbleList; 
i^TileMap* ni_pTiles, 
CActor* m_pThisActor, 




// Environment vanables 

CString mstrStageFile; 

CStnng m_strPalFile, 

CString mstrTitle, 

CStnng mstrMusicSeq; 

int* m_aBGM, 

int mnBGMs, 

int m_iBGM; 

CMCIObject* m_pBGM, 

WORD m_wRM, // Render Mode 

BOOL m_bExitOpen, 

BOOL mbMusicPlayOK; 

CString m_strExitID, 

CString m_strPrevID. 



CTileMap 

CString m_strMapFile; 
CSize m_sScr; // Screen Sizt 
CSize m_sT; // Tile Size 
Csize m_sTH; / / Half Size 
LPTILE* m_apTile; 
CSize m_sTiles; 
CSpriteList* m_pSpriteList; 
CSpriteList* m_pAniList; 
CPalette* m_pPalette; 



COSBView (Off-screen Buffered View) 
To know how to render and draw 



CSpriteList 



To Reonder 




CSpriteListNotifyObj 
CSpriteList* 
. COSBView* 




To call \ddDirt /^R^on 



) 



CSpriteList: :Insert(CSprite*) 
calf CSpriteListNotifyObj::Change(f /lis, ...) CSprite-SetNotificationObjectQ 



CPhasedSprite 

: CSprite 
m_iNumCellRows 
m_iNumCellColumns 

\ CSpriteListNotifyObj* 
CDIB* m_pDIB 
BOOL m.bDeleteDIB 




CDIB 

m_pBMI 

m^pBits 



. BTTMAPTNFO. 



mm 



m apTilP 



LPTILE 



Jl 



CPhasedSprite 



iTilesxx-1 ) 



TILE 

CPhasedSprite* pPS; 
int nEA; 
WORDwDA; 



TILE 



Each sprite notifies its change of state to the view to request redrawing like the following 
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example code. 
CSprite::SetZO 

m_pNotifyObj->Change(^/its, CSpriteNotifyObj::ZORDER, &rc); 

void SpnteListNotifyObj .Change(CSprite*, CHANGETYPE, CRECT*, CRect*) 
{ 

if (change & CSpriteNotifyObj::ZORDER) 



{ 



m_pSpriteList->Reorder(pSprite); 
m_pBufferView->AddDirtyRegion(pRectl); 



Resource Manager and Actor Description Tables 

For actors, CResMan loads actor animation data from RIT file into an array of CActorDesc 
objects. 




Actor Description 



CSpntelnfo* m_aSI, 

int m_nSpntes; 

CObList m_oIDIB, for Re?dui|ce Reuse 

CActorDesc* ni_aActorDesc/''^ 

int mnActorDescs, 

CString* m_aStageName, 

int m_nStageNames; 

CString* m_aServerIP, 

int m_nServerIPs; 

CWaveData* m_aWave; 

int m_nWaves, 

CString* ni_aMIDI, 

int m_nMIDIs, 

CStnng m_strResFile, 

CStnng ni_strResPath, 

int mnResFiles, 

BOOL mbMute; 

int m_nBubbIeTextLimit; 

int mnBubbleTime, 



lllllfX — II 

CActorDesc 


1 


J.....J. 




CStnng m strNick; 








CString m strResName; 








int m_nMSPT, 








^CBehavior* in_aBeh, 








int m_nBehs; 









CBehavior 




int m_nID, 




^Cell* m^aCell; 




int ni_nCells; 




int m nRepeat; 




CSize msDisp; 





CBehavior::CeU 




int nID; 




WORD wIO. 




int nTick; 




CPoint ptDisp, 




int nSI, 
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Here is an example of Actor Description: 
Actor Description 

#ACTOR=a00laman__001 ,man001 ,40; // This first actor definition will be used for tlie default. 

{ 

// Beiiaviors „ „ 

STANDF=1 ,(0.2); // Stand forward 

^'^^^^^^ ► STANDB^I ,(9.2); // Stand backwan 

STANDINGF=1 ,(|0,2,0,0,schng002)(/0,2)(*0,2)(#0,2)(0.2); // Appearing in forward stance 
STANDINGB=1 ,((9,2,0,0.schng002)(/9.2)(*9.2)(#9,2)(9,2); // sound id is a predefined wave file in RIT 




There is a bitmap resource retise mechanism in CResMan, By using CResManriLoadDIBQ and 
CResMan::LoadPhasedSpriteO one can prevent loading the same bitmap image into memory 
redundantly. CResMan keeps a list of resource names that are already loaded into memory. So, 
for any request to load an image with the same resource name, CResMan just returns to the 
pointer to the memory without actually allocating memory. 



4, Communication Architecture using MS ChatSock 



MS ChatSock API 



Microsoft provides ChatSock API to support for MIC (Microsoft Internet Chat) protocol. This 
protocol and APIs are well dociunented in their SDK. UruChat's communication architecture 
totally depends on this ChatSock API. For example, our actor in UniChat is implemented in 
CActor class and there is an interface called ICSMember for each chat client. Then CActor keeps 
a member for ICSMember to use ChatSock functionalities. So, it is important to identify which 
object is for ChatSock interfaces and which is for UniChat classes. 

Since ChatSock is implemented on the COM (Component Object Model) architectvire, 
programmers have to xmderstand some basic concepts for COM programming, like interfaces, 
AddRefQ, ReleaseQ. 

One thing that confuses the programmers in ChatSock API is the sequence of messages and 
events. This is not documented so you have to run some sample and trace some events to find 
out the flow of messages. Here is a diagram that shows how UniChat uses ChatSock messages 
when a new member joins a channel. 



ChatSock-related classes 



Description 



Base Socket functionalities provided by ChatSock 
Base Channel interface provided by ChatSock 
Inherited from CBaseSocket, UniChat 2 specific codes 
Inherited from CBaseChannel, UniChat 2 specific codes 
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Integration with MFC classes 



CMainFrame : CFrameeWnd 



^ User-Defined Message Handlers 
ON_MESSAGE(...) macro 



m_pSocket->SetReceiver(AfxGetMainWndO->GetSafeHwndO). 



CUC2DOC : CDocument 



CUC2Socket* m_pSocket; 
CUC2Channel* m_pChanneI; 



CLoginDlg : CDialog 



User interface for creating the 
chat socket Another thread 
waiting for the connection is 



HWND m_hFrame; 

HWND m_hQChent; 

BOOL m_bQueryOK; 

int mJLastQType; 

int m_iltem; 



CUC2Channel : CBaseChaimel 



HWND m hFrame: 



"SendMessageQ or 
'ostMessageO 




I made CUC2Doc create and keep the pointer to ChatSock services. When you have a need to 
use ChatSock services, you have to get the pointer to ChatSock from this docimient object. 

ChatSock knows where to send its messages by mJiFrame. This handle is set by 
CUC2Socket::SetReceiver(const HWND hWnd) in CUC2Doc dass. If this is set to NULL, 
ChatSock doesn't send its message. Because ChatSock is running in another thread, you have to 
be sure to call SetReciver(NULL) when you're not ready to process the messages. 

Socket is created in BOOL CUC2Doc::ConnectO through CLoginDlg dialog and channel is 
created in BOOL CUC2Doc::SetChannel(PICS_CHANNEL picsCharmel). 

One problem using ChatSock in MFC is that socket services are running in other threads. And 
in MFC windows, GDI objects, and other objects shoxdd be passed between threads by means of 
handles ii\stead of by means of pointers to MFC objects. That's why 1 put the handle mJiFrame 
in CUC2Socket and CUC2Channel. ChatSock sends its messages through this handle. But an 
object of CUC2DOC class that is inherited from CDocument is not a normal window - 
CDociunent has no HWNDs. 

So we have to use CMainFrame object as a receiver for socket services. You can see many user- 
deftned message handlers in this class just calling relevant handlers in CUC2Doc. Here is a 
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segment of that code. 
// MainFrm.h 

afx_msg LRESULT OnCsData(WPARAM, LPARAM); 
// MainFrm.cpp 

ON_MESSAGE(CSMSG_CMD_DATA, OnCsData) 

LRESULT CMainFrame::OnCsData(WPARAM wParam, LPARAM IParam) 
{ 

CUC2DOC* pDoc = (CUC2Doc*)GetActiveDocument(); 
return pDoc->OnCsData(wParam, IParam); 

} 

It is recommended to read the section on "Sharing MFC Objects Among Threads" in Chap, 14 of 
Prosise's book, (Programming Windows 95 with MFC, Microsoft Press) 

Here is a list of message handlers triggered by the ChatSock service. 
// MainFrm.h 

afx^msg LRESULT OnCsAddChannel(WPARAM, LPARAM); 
afx_msg LRESULT OnCsPrivateMsg(WPARAM, LPARAM); 
afx_msg LRESULT OnCsQueryData( WPARAM, LPARAM); 
afx_msg LRESULT OnCsInvite(WPARAM, LPARAM); 
afx__msg LRESULT OnCsGotMemList(WPARAM, LPARAM); 
afx_msg LRESULT OnCsAddMember(WPARAM, LPARAM); 
afx_msg LRESULT OnCsDelMcmber(WPARAM, LPARAM); 
afx msg LRESULT OnCsDelChannel(WPARAM, LPARAM); 
afx_msg LRESULT OnCsModeMember(WPARAM, LPARAM); 
afx_msg LRESULT OnCsModeChannel(WPARAM, LPARAM); 
afx_msg LRESULT OnCsTextA(WPARAM, LPARAM); 
afx_msg LRESULT OnCsData(WPARAM, LPARAM); 
afx_msg LRESULT OnCsWhisperText(WPARAM, LPARAM); 
afx_msg LRESULT OnCsWhisperData(WPARAM, LPARAM); 
afx msg LRESULT OnCsNewTopic(WPARAM, LPARAM); 
afx_msg LRESULT OnCsNewNick(WPARAM, LPARAM); 
afx_msg LRESULT OnChanneIFuIlRetry(WPARAM, LPARAM); 

User-defined messages for the commimication between ChatSock classes and our application 
windows are included in "UC2Messages.h" file. 

Action Commands 

Action commands for character movements or gestures are also enumerated in 
"UC2Messages.h" file. 

1 made a simple protocol to send and receive commands between clients. Each client packs 
some data into a NULL-terminated string as in the following syntax. 
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X"n" (additional data each separated by 



For example, 

"X 5 (3,19)^256" ... X: flag, 5: command id, (3,19): tile id, 256: state value 

This is the command CMD_MOVEF=5. So the cHent that receives this data will parse the string 
and move tiie corresponding character. Since the receiving client already knows where the 
message came from, we don't need to add an identifier for the sender. The tile id is included to 
verify the position after movement. So each time for action commands character positions have 
a chance to synchronize their positions with other users. 



enum ACTOR_COMMANDS 
{ // Command Enumerators 
CMD_BEGIN = 0, 
// Management 

CMD_MEMBER_INFO, // 
X' nCmd' nVersion' nCharlD' nBubbleKind' strHandle' strRealName' strProfile' ptTID' wState 

CMD_MEMBER_ACTOR, // X'nCmd'nCharlD'nBubbleKind (changed his Actor) 



CMD_NEWS, 

// Position Move 

CMD_MOVE, 

CMD_MOVEF, 
CMD_MOVEB, 
CMDRES^MOVE, 

// State Change 

CMD_STATE, 
CMD_STAND, 
CMD_MORPH, 
CMD_DOZE, 
CMD_TURNL, 
CMDTURNR, 
CMD_RES_STATE, 

// Actions 

CMD_ACTION, 
CMD_CHAT, 
CMD_ENTER, 
CMDEXIT, 
CMD_SMILE, 
CMD_MAD, 
CMD_HELLO, 
CMD_CRY, 
CMD_SCRATCH, 
CMD_PICK, 
CMD_SPECIAL, 
CMD_PUNCH, 



// X' nCmd* message 



// X'nCmd'ptTID'wState 



// State 



// reserved 

// CMD_ACTION is for Just repositioning message 

// Y'nCmd'ptTID'wState' (to verify synchronization) 



// Y'nCmd>tTID'wState'NickTo' 
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CMD_BEATEN, 

CMD_RES_ACTION, 

CMD_END 

}; 



Channel A: Na 




CUC2DOC calls CBaseChannel-FSendDataQ when the client needs to broadcast its message to 
all the members in the channel. This is used for sending command data which should be shared 
by all members in the same channel. 

CBaseSocket:: FSendPrivDataQ is for sending data only to a designated user. 1 used this method 
to send each client's data to a new member in the channel. Then the new comer will have these 
messages from other guys already in the channel so that he can gather informations of others. 

5. Tile Theories 

UniChat uses a new kind of data structure for the background drawing. In QuarterView 
graphics, background image is dynamically composed by a set of tiles. Use of tiles can 
dramatically reduce in file size for expressing various backgroimds. Owing to this technology, 
UruChat 2 was able to pack all of the files into 1,2 MB having more than 50 backgroimds. 

Tile Attributes 



In oiu- source code. Tile is defined as a PhasedSprite with two attributes 
for elevation and direction. CTileMap is a two dimensional array of 
these tiles. But the sprite for a tile should have the same size and shape 
as in the following picture: 



TILE 

CPhasedSprite* pPS; 
int nEA; 
WORD wDA; 
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The left image shows many tiles packed into a file. By the horizontal and vertical symmetries 
of the tile structure, we can flip the image horizontally and vertically forming different images. 
But it doesn't have a rotational symmetry. 



Tile Bondage Rule 




Pixels actually engaged in the bondage are shown with different colors grouped by the rows. 
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Tile Coordinate System 



tile id (nx, ny) 



Qz 

Tile-Center oriented 
Coordinates System 




To find the neighboring 4 tiles of tile (nx, ny) 

N(nx, ny) = { (nx-1/ ny±l), (nx, ny±l)) for ny = 2n & 
{ (nx, ny±l), (nx+1, ny±l)} for ny = 2n+l 
= { (nx-(-l) "y, ny±l), (nx, ny±l)} 



Tile Hit Test Algorithm 



Problem: Find the nearest tile index for a given (x', y') position in pixel coordinates. 



According to ovir tile index system, the center positions of tiles in pixel coordinates are like the 
following: 



p = h/2 



a = w / 2 
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double fM = (fx + fy + l.)/2.; // (S-l)/2 <= M < (S+l)/2 

double fN - (fx - fy + l.)/2.; // (D-l)/2 <= N < (D+l)/2 can be negative 

if (fN <= 0.) // Consider a problem to find an integer that satisfies 

fN--; // -1 .5 <= N < -0.5, But int(-0.5)-0 
int M = int(fM); 
int N = int(fN); 

return CPoint(m_sTH.cx*(M + N), m_sTH.cy*(M - N)); 

} 

Attributes for Rendering Order 

The program has to know which sprite in the sprite list should be rendered first. This is the 
rendering order problem. In normal cuiimation technique, every sprite has an attribute caUed z- 
order to indicate this order. But in quarterview this is not sufficient. Since we are actually in 3D 
coordinate space in quarterview, we need one more coordinate besides x and y. So I have 
introduced an attribute named elevation. 

z-order - 0, Potential 0 position 



LT.y 



Actor 




z = -GetEarthPointYQ; 

= - (LT.y + m_sEarth.cy + m_e) 

Z orders are the same for any actors on the tiles in the same row. Actually Z-order is 
determined by the tile on which the actor stands. This center of the tile is the earth point, 

6, Some Methods 

There are some commonly used methods in UniChat 2 source codes. It is some kind of personal 
programming style. But to understand the codes easily you have to identify these styles. 

Dynamic Array 
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This is a method for allocating memories for a list of objects. If we can't determine the number 
of the objects at compile time, we cannot use static array definition in our code. Normally the 
nimiber of objects is read from data file and determined by some calculations at nmtime, so this 
method is very useful. 

This method is jxist another usage of C pointer and some kind of naming rule. 
For example, to construct a list of string objects like the following in memory: 

Data File // SIT files 
{ 

OOOOcsin; // OOOOcsin.sit 
0001 ctnm; 

OGOQctrm; 
} 

// Sample Source 
class CSampIe 
{ 

CString*m_aSIT; 
int mnSITs; 

} 

CSample::Load() 
( 

m nSITs = parser CountllemsQ; // Let's say parserCountItems() returns the number of items in the data file 
m_aSIT = new CString[m_nSITs]; 
for (int i=0, i < m_nSITs, 1++) 

m_aSITn] = parser ReadLine(); 

} 

CSample. -CSampleO 
{ 

if(m_aSIT) 

delete [ 1 m_aSIT; 

} 

This is the pattern used to handle this kind of dynamic memory. 

TYPE* m_aObj; / / pointer to an array of Objs 

int m_nObjs; / / the number of objects 

Parser 

A text line parser is globally used in UniChat code to interpret our data files and load into the 
memory structured. CParser, once implemented in DOS environment, is a general class for this 
purpose modified for MFC classes. CTextFileBuffer is a utility class that enables CParser to use 
memory loaded files and LZ compressed files. 
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If you use CParser^ it's very easy to count some items before dynamically allocating memory 
and to add some comment rules. Moreover some basic data types are interpreted according to 
the variable types with the same name of member function in CParser. 

Here is a fragment of codes that show a typical use of this class: 

extern CParser gParser; 

BOOL CTestDoc::OnNewDocument() 
{ 

TRY 
{ 

CStdioFile f("sample.txr, CFile::modeRead | CFiIe::typeText); 
char* szVal = new char[gParser.GetMaxBuffer()]; 
int iVal; 
double fVal; 
CPoint ptVal; 

whiIe(f.ReadString(szBuf,gParser.GetMaxBuffer())) 
{ 

gParser.CopyBuffcr(szBuf); // "Toto= 1,3. 4,(1 2,345);" 
if (gParser.IsCommentLineO) 
continue; 

gParser-GetValueRightToken(szVal, '-); 
gParser.SetLeftToken('='); 
gParser.GetVaIueRightTokeii(iVal,','); 
gParser.GetValueRightToken(fVal, ','); 
gParserGetValueRightToken(ptVal); 

} 

return TRUE; 
f.CIoseO; 
delete [] szBuf; 

} 

CATCH( CFileException, e ) 
{ 

#ifdef_DEBUG 

alxDump « "File could not be opened " « e->m_cause « "\n"; 
#endif 

delete [] szBuf; 
return FALSE; 

} 

END_CATCH 

} 

256 color Palettes in UniChat 2 
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Windows 256-color bitmap files have a palette in its header part. But in UniChat 2, we use only 
on color table for all the images except for the dialog. So we made a new type of data soxirce for 
image files without palette. The master palette in UniChat 2 is defined as a static array in the 
Resource Manager object (CResMan). Then when we load each bitmap into memory, the color 
table entries are filled with this master palette values by calling CResMan:: 
LoadMasterPalette(CDIB*) . 

static const PALETTEENTRY apeMASTER[256] - 
{ 

^include "U2Pal.Inc" // 256 Color Table 

}; 



UDSGen removes 
the palette from 
each bitmap file. 



BITMAPFILEHEADER 



BITMAPINFOHEADER 



PALETTE ENTRIES 
256 * 4 bytes = 1 KB 



C 



IMAGE DATA 



The unified palette for otu 
appUcation is saved in CResMan 
source code. 



MASTER 

PALETTE ENTRIES 
in the CResMan object 



When each bitmap file is loaded 
into memory from UDS file, the 
palette entries are filled by 
CResMan: :LoadMasterPaletteO . 



Predefined Palette Indices 

In addition to the vmified master palette of UniChat, some indices of the palette are assigned as 
a special purpose. For example, index 240 is registered as an outline color. Here is the rules for 
our master palette in UniChat 



Index Range Description 



Windows System Colors (20) 

Advertising clips (5) 

Outline Color, rgb- (131,231,131) 

Black (0,0,0) 

White (255,255,255) 

Outline Off, This is the current outline index. 

Transparent Color 

Hair Color Set #0 (4) - Image contains 
Hair Color Set #1 - program switches 
Hair Color Set #2 - program switches 

Hair Color Set #3 - program switches 

Face color set (4) 

Clothes Color Set #0 (4) - Image contains 
Clothes Color Set #1 - program switches 
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Clothes Color Set #2 - program switches 

Clothes Color Set #3 - program switches 

Fixed Color Set (4) 

Backgroimd Colors (186) 

The reason to use these predefined sets of indices in drawing bitmap graphics is to give some 
variations in colors of the same image. For example, in a chat room if the same character is 
selected then the program automatically changes its hair and clothes color sets. 

It's important for the graphic designers to keep this rule. They have to draw characters hair 
using only the colors in the hair color set #0. Other three sets for hair colors are reserved for our 
program to switch with the original indices. 

void CResMan::RotateActorColorSet(CDIB* pDlB, const int nColorSet) const; 

Every character has a border line or outline drawn with the index of 237. This rgb value is equal 
to the transparent color so users cannot identify the outline. But once the program determined 
that the character should show its outline, for the client's own character, when the program 
loads this image into memory, the rgb value of index 237 is replaced with that of index 240. 

void CResMan::ShowOutUne(CDIB* pDIB) const; 

One important thing for our graphics system is that we use identity palette. We us this for 
better performance in animation which involves repeated rendering and drawing of the same 
image. In this scheme, while loading the bitmap image into memory, all the bits in the image 
are replaced with a new index set in the identity palette. So once we load an image from a 
bitmap file, we carmot say that the bits in the file are intact in memory. 

How to make a dialog with 256-color image 

There is no support for the 256-color bitmap in MFC. Using our own graphics library, UC2Aru, 
we can simply make a dialog window with a background image of 256 colors. Or you can tile 
the backgroimd. 

Once you know how to use this graphics library, all the processes can be shown as a pattern. 
Here is the procedure. This code also shows how we can make a 256-color buttons. 



Step Procedure 

1 Make a dialog template in resovirce view of the VC++ workspace panel. Using 
Class Wizard, make associated code and header file for the CDialog inherited class. 

Let's say it CTestDlg. 

2 In header file add the foUovdng codes, 

#include "UC2AniyT)IB.h" 
^include "UC2Ani/DIBPaI.h" 
#include "UC2Ani/PSButton.h" 
class CDIB; 

#define TESTFILE_BMP "c:\\testbmp" 
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In the class definition, 
protected: 

CDIB* in_pDIBBack; // Background frame image 

CPalette* m_pPaI; // main palette 

BOOL m_bPaletteCreated; 

3 In CMainFrame class, add a utility function to determine current video mode. 

BOOL CMainFrame::Is256Palette() const 
{ 

BOOL bResult=TRUE; 

// Get a screen DC to work with. 

HWND hwndA.ctive= ::GetActiveWindow(); 

HDC hdcScreen - ::GetDC(hwndActive); 

ASSERT(hdcScreen); 

// Make sure we are on a palettized device. 

if (!(::GetDeviceCaps(hdcScreen, RASTERCAPS) & RC_P ALETTE)) 
{ 

bResult = FALSE; 

} 

else 

{ 

// Get the number of system colors and the number of palette 
// entries. Note that on a palletized device the number of 
// colors is the number of guaranteed colors, i.e., the number 
// of reserved system colors. 

int iSysCoIors = ::GetDeviceCaps(hdcScreen, NUMCOLORS); 
int iPalEntries = ::GetDeviceCaps(hdcScreen, SIZEP ALETTE); 

// If there are more than 256 colors we are wasting our time. 

if (iSysColors < 0 || iSysColors > 256) 

{ 

bResult = FALSE; 

} 

} 

: :ReleaseDC(hwndActive, hdcScreen); 
return bResuh; 



4 In constructor, 

CTestDlg::CTestDlg(CWnd* pParent /*=NULL*/) 
: CDialog(CTestDlg::IDD, pParent) 

{ 

m_pPal = NULL; // Set it NULL before loading DIB 

CMainFrame* pMF = (CMainFrame* )AfxGetMainWnd(); 

CString strFile{TESTFILE_BMP); 
m_pDIBBack - new CDIB; 
i f ( ! m_pDIBBack->Load(strFile)) 
{ 

delete m_pDIBBack; 
m_pDIBBack = NULL; 

return; 
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} 

if (pMF->Is256Pa!ette()) // Assume that this function is already implemented 
{ // Use mainframe's palette to avoid color flickering 

m_pPal = pMF->GetPalette(); 

m_pDIBBack->MapColorsToPalette(m_pPal); 

m_bPa!etteCreated = FALSE; 

} 

else // Use original palette in the file for TRUE color system 
{ // Create the palette from the DIB. 

CDIBPal* pDIBPal; 

pDIBPal = new CDIBPal; 

ASSERT(pDIBPal); 

if(!pDIBPal->Create(mj>DIBBack)) 

{ 

AfxMessageBox("Failed to create palette from DIB file"); 
delete pDIBPal; 

} 

m_pPal = pDIBPal; // type casting to parent class 
m_bPaletteCreated - TRUE; 

} 

} 

5 In destructor, 

CTestDIg::'<:TestDlg() 
{ 

!f(m_pDIBBack) 

delete m_pDIBBack; 
if (m_pPal && m_bPaletteCreated) 

delete m_pPal; 

} 

6 Using Class Wizard add following message handlers: 

virtual BOOL OnlnitDialogO; 

afe msg void OnPaletteChanged(CWnd* pFocusWnd); 
afx_msg BOOL OnQueryNewPalette(); 
a6c_msg void OnSize{UINT nType, int cx, int cy); 
afx_msg BOOL OnEraseBkgnd(CDC* pDC); 

7 Modify OnlnitDialogO 

BOOL CTestDlg::OnInitDialog() 
{ 

if(!m_pDIBBack) 
return FALSE; 
CDialog::OnInitDialog(); 
m_btnOK.SubclassDlgItem(IDOK, this); 
m_btnCancel.SubclassDlgItem(IDCANCEL, this); 

CPoint ptLT(349, 238); // find adequate button position 

m_btnOK.MoveResize(ptLT); 

ptLT.x- 17; 

m_btnCancel.MoveResize(ptLT); 

return TRUE; // return TRUE unless you set the focus to a control 

// EXCEPTION: OCX Property Pages should return FALSE 
} 
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8 Add palette message handlers. 

void CTestDlg::OnPaletteChanged(CWnd* pFocusWnd) 
{ 

CDialog::OnPaletteChanged(pFocusWnd); 

if(pFocusWnd !-this) 
OnQ ueryN ewPaIette() ; 

} 

BOOL CTestDlg::OnQueryNewPalette() 
{ 

if(m_pPaI) 
{ 

CDC* pdc = GetDCO; 

CPalette* pPalOld = pdc->SeIectPaIette(m_pPal, FALSE); // foreground 

UINT u = pdc->RealizePaletteO; 

if(pPalOId) 

pdc->SelectPaIette(pPaIOId, FALSE); 
ReleaseDC(pdc); 
// if(u) 

// { // Some colors changed so we need to do a repaint. 
InvalidateO; // Repaint the lot 
return TRUE; // Say we did something. 

// } 
} 

return FALSE; // Say we did nothing. 
} 

9 Finally add a handler for WM_SIZE to fit for the background image. 

void CTestDlg::OnSize(UINT nType, int cx, int cy) 
{ 

CDialog::OnSize(nType, cx, cy); 

if(m_pDIBBack) 
{ 

SetWindowPos(NULL, 0, 0, 

m_pDIBBack->GetWidth(), m_pDIBBack->GetHeight(), 

S WP_NOMOVE I SWP_NOZORDER \ SWP_NO ACTIVATE); 

} 

} 



MFC SDI Architecture 

It's very helpful if you knov/ the sequence of calling MFC functions in your MFC SDI 
application. 

Loaded symbols for 'CAWINDOWSNSYSTEMXMSVCRTD.DLL' 
Loaded symbols for •C:\WINDOWS\SYSTEM\MFC42D.DLL' 
// Loading... 

CGenSDIApp::CGenSDl AppQ // Application class constructor 
CGenSDIApp::InitApplication() // for backward compatibility 
CGenSDIApp::InitInstance() 
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CGenSDIDoc::CGenSDIDoc() // Document constructor 

C Main Frame: :CMainFrame() // Frame Window constructor 
CMainFrame::PreCreateWindow(CREATESTRUCT& cs) 

CMainFrame: :PreCreateWindow(CREATESTRUCT& cs) // why called twice? 
CMainFrame::OnCreate(LPCREATESTRUCT IpCreateStruct) // WM_CREATE 
CMainFrame::OnCreateClient(LPCREATESTRUCT Ipcs, CCreateContext* pContext) 

CGenSDIView::CGenSDIView() // View Window constructor 

CGenSDIView::PreCreateWindow(CREATESTRUCT& cs) 
CGenSDIView::OnCreate(LPCREATESTRUCT IpCreateStruct)// WM_CREATE 

CGenSDIDoc::SetTitIe(UntitIed) 
CGenSDIDoc-DeleteContentsQ 
CGenSDIDoc: :OnNewDocuinent() 

CGenSDIView::OnInitiaIUpdatc() 
CMainFrame: :ActivateFrame(int nCmdShow) 
CGenSDIView::OnDraw(CDC* pDC=0x63f970) 

// Application Logic will be here, 

// Closing... 

CMainFrame::OnClose() // WM_CLOSE 

CGenSDIDoc::CanCloseFrame(CFrameWnd* pFrame=0x750dl 4) 
CGenSDIDoc::OnCloseDocument() 

CMainFrame::OnDestroy() // WM_DESTROY 

CGenSDIView::OnDestroy() // WM_DESTROY 

CGenSDIView::'-CGenSDIView() // View Window destructor 

CMainFrame: :-dVIainFrame() // Frame Window destructor 

CGenSDIDoc::DeleteContents() 

CGenSDIDoc::~CGenSDIDocO // Document destructor 
CGcnSDIApp::ExitInstance() 

The program 'D:\MsDev\Projects\kSm\GenSDI\Debug\GenSDl.exe' has exited with code 0 (0x0). 
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Executive Summary 

UNI is offering McDonald's its unique running technology, proven to be effective 
in connectivity and interactivity, to further develop and prepare McDonald's advertising 
and marketing future. Eventually, all businesses will have to take at least some part in 
on-line business. The question is how will McDonald's make its site more attractive and 
user friendly to its target customers, be better than its competition, and most of all, cut 
costs while increasing profit. We believe that Unichat is McDonald's best solution. 
Unichat can provide: 

• Electronic Customer Interaction Management (ECIM) 

Interactivity between McDonald's and customers; customers and customers. 

• Electronic Customer Relationship Management (ECRM) 

Connectivity which provides and receives important information/feedback 
instantly and easily. 

• Increasing the reach of the advertisements: McDonald's Globalization. 

Whereas McDonald's stores' job is to sell the hamburgers, fiies, and nuggets, 
Unichat-developed Mc World is to sell McDonald's itself, the name, the 
image, turning intangible assets into a profitable business. 

• Reaching the crucial teen market: providing a stimulating, physical, personal 

space for teens - the best way to connect with them and win their business. 
At the same time, McDonald's can get informed of what interests them. 
McDonald's can give teenagers reasons that teenagers need, more than great 
deals on food, to develop a far greater loyalty to the McDonald's name 
beyond time, space and material. With Unichat, McDonald's can have the 
same reputation among teenagers as it already has with young children. 

The bottom line is increased profit through more channels and a futuristic 
company image for its current customers and future ones. 

UNI is asking McDonald's to evaluate its advertising and marketing spending and 
to see that Unichat-developed Mc World can cut advertising and marketing costs while 
reaching many more people. Users will be conmixmicating through characters, actions 
and soimds that are universal applicable that anyone and everyone around the world will 
be able to interact with McDonald's = One, interactive, connective, relationship building 
and influential tool for the entire world. 

For these reasons, UNI proposes licensing Unichat technology for 

McDonald's 
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a. Unichat Networks Inc. 

First established in the United States in 1999, UNI has since also been 
established in Brazil and Japan. For UNI, Unichat' s chatting business is only the 
beginning. UNFs global vision includes Uniplay, a game solution applicable to 
the latest CD-ROM and on-line game systems; PDA solutions for personal 
systems such as the Palm Pilot; and a mobile, wireless phone solution. Unichat 
currently has a running site www.unichat.com . 

b. Unichat Technology 

Unichat uses a pioneering graphic character chatting technology using 
cartoon-like, animated avatars in 3-D Settings simulating a live, interactive 
environment. The avatars resemble colorful hviman and animal characters that 
are moving, active, and controllable by users who choose these to represent 
themselves on-line. They are used to communicate, display various 
actions/gestures and express emotions thereby simulate the next best human 
interactivity. For example, avatars can cry, laugh, make musical sounds, punch, 
disappear, morph into other avatars and of course talk through cartoon-like 
bubbles. Controlled with mouse and/or arrow keys, the techniques and rules of 
engagement are easily learned, allowing creative freedom. They exist in infinite 
number of standard settings and provide the very tools for the users to fully create 
their own "rooms," that range fi-om castles to recreation parks. 

c. UnichaVs Proven Ability 

Unichat offers a gaming and community atmosphere where people 
continue to come back to for entertainment and interaction. The high-tech 
program is easily downloadable, installable with CD and operates on all P.C.'s 
without any special applications. Its user-friendly and unique features attract all 
types and ranges of people simultaneously through one system. Unlike non- 
graphic chat services, users of Unichat do not actually have to chat. The avatars 
are fiin and exciting to play with in and of itself that users are on-line without 
chatting, longer and more frequently. The uniqueness of Unichat encourages 
consistent loyal users. 



By opening the online-customer-interaction doors, Unichat can effectively 
provide Electronic Customer Interaction Management (ECIM), as well as Customer 
Relationship Management (ECRM) solutions. 



il. Why McDonald's? 



a. Established World Wide Brand of Quality 
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UNI believes that McDonald's is the right company for this joint venture 
for many reasons. Number one is that McDonald's already has an established 
strong brand name, which Unichat believes is extremely advantageous in crossing 
into on-line world. Almost every single person in the U.S. is guaranteed to have 
visited McDonald's at least once and everyone has a friend who worked at 
McDonald's. McDonald's is an established household brand name/image existing 
in the minds of all Americans for its continuous quality in product, performance 
and service, more than any other fast-food chain in America, perhaps the world. 
McDonald's name connotes a trust and a tradition in the eyes of the public. 

Therefore using what McDonald's as already accomplished, UNI believes 
that McDonald's can successfully carry their popularity to this new venture and 
allow McDonald's the best on-line business start possible. 

b. Well Known Connection with Children, what about teens? 

McDonald's, unlike their competitors, also have established trademark 
characters who represent the store and the company. These characters are also 
universally recognized and have become household names for children who are 
excitedly entertained by these characters. Also with McDonald' s-only co- 
promotion with other famous children products, children have come to naturally 
connect McDonald's with fim. As explained earlier, Unichat consists of using 
similar themes to attract this age group. UNI believes that McDonald's characters 
can be incorporated into Unichat technology to create a safe, interactive and 
educational on-line access for children and strengthen McDonald's tie with them. 

Once these McDonald's children are all grown up, how will they connect 
or associate with McDonald's? Teens are an important group to target because 
when they come to McDonald's, it is because they themselves are choosing to, 
more so, than young children; and they are also major consumers of fast foods. 
Then teens v^ll soon grow up to be young adults and parents themselves with 
influence on their children. Thus teens right now, need their ovm connection to 
McDonald's, other than just by McDonald's foods to make them loyal 
McDonald's friends. 



c. Global Community Building 

McDonald's goals include building more McDonald's communities 
around the world, especially Asia, as stated in the official McDonald's web site. 
Having already achieved much success in the United States, UNI believes that the 
future growth of McDonald's rests in its performance in other countries where 



there are bigger rooms to grow. There is no better, easier way for such an 
expansion than using the Intemet, better yet, Unichat. Studies of trends have 
shown that in Asia, Intemet, and chatting, especially, is one of the most popular 
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ways of conducting everyday life. Also, the psychological and emotional nature 
of chatting invites everyone and anyone, suiting the entire world. Soon, every 
business, regardless of product will have to merge into an on-line business. 
Presently, McDonald's websites do not seem to be in line with what UNI believes 
the virtual Mc World can be. 



d. Future Outlook: Get Ahead! 

McDonald's has undoubtedly maintained its leadership in the fast-food 
industry. But the future of McDonald's is not limited to its food with what and 
how is still up for grabs. UNI can help sustain this leadership with the changing 
needs and times of the people. 



UNI believes the above McDonald's qualities makes the company ripe for a 
whole new level: developing and maintaining a relationship with people not only as 
customers^ but also as loyal friends^ 



III. Why Unichat for McDonald's? 
a. Socializing on the Internet 
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Internet is the next and continuously growing sector, which McDonald has 
not yet explored in full. The success of Internet businesses is that customers are 
participants who have choices, voices and unlimited accessibility. Those 
characteristics are exactly what make Unichat popular. Through its innovative 
and exclusive technology, Unichat has set a new trend in cyberspace interactivity, 
reaching and satisfying customers. Socializing at Mc World is just as significant 
as friends meeting at McDonald's for lunch. Mc World can be a replica of the 
actual experience of visiting a McDonald's store, but much more. 

b- Share Key Business Characteristics 

Same targeted audience 

The customers that McDonald's target its advertisements are primarily, 
children, adolescents and teenagers. This is the very audience who are most 
intrigued by Unichat services and the same audience who participate on our site. 

Common Aim of Advertising 

McDonald's uses cartoon characters of TV shows, and movies, toys of 
famous brands, famous teen idols, athletes and games. Unichat uses cartoon style 
avatars with physical and "real" abilities in graphically enhanced environments 
for customers to communicate, interact and have fun with others. What the two 
have in common is that both McDonald's and Unichat aim at tapping into the 
popular culture of children and teenagers. 

We have researched what this audience wants and we believe Unichat 
services are the best way to attract and maintain this audience online most 
frequently and for the longest time. Teenagers all aroimd the world especially 
want interactivity, semi-anonymity, variety, quick and easy fun. Unichat 
accommodates each of these needs creatively and more effectively than other 
typical on-line services or advertisements. Ultimately with the cooperation 
between UNI and McDonald's, McDonald's can gain more of the audience they 
want without having to rely solely on co-promotion (extra cost) or sale on food 
(cut profit). 

c. Cutting Edge Interactive Environment 

UNI is offering an opportunity for McDonald's to achieve a greater 
company vision unprecedented by other fast food or chain restaurants. Unichat' s 
technology will create an interactive image well-suited and most advanced for 
McDonald's off-line reputation. 



d- Expanded Advertisement Opportunities 
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Advertisement can take place in McDonald's own time in the cyber world 
instead of designated, limited space and time on TV or Radio, while their best 
qualities are not compromised but enhanced. 

Unlike limited advertisements options on-line like having only banner ads, 
or only sponsorships, McDonald's can have the most unlimited and variety of 
customizable and expandable types of advertisement. Also, at present, 
McDonald's advertisements are presently catering primarily to off-line, fast food 
customers. With Unichat implementation, Mc World can represent and advertise 
McDonald's regardless of their fast-food preference. 

With UNI, advertisement is not so straightforward anymore. So 
McDonald's will no longer be viewed primarily as a "product selling" company. 
McDonald's will be viewed as a service provider, allowing people's connection 
with McDonald's to move beyond fast food, and stunning its customers and its 
competition with its innovative new direction. UNI is offering a business 
solution, which is like no other marketing tool and cannot be like any other 
because it will be specially customized for McDonald's. With Unichat, 
McDonald's is taking a step towards a new future. 



e. Gain Advantages of Online Business 

UNI can show that McDonald's is a multi-faceted company interested in 
feeding a variety of people's needs where developing new ideas and 
implementations is only a matter of time. Through Unichat' s technology, 
language and culture will no longer matter. One medium can attract and 
accommodate a universal audience. 



Unichat believes that this technology will help McDonald^s expand its 
advertising market by tapping into on-line business mechanisms, maximize 
advertisement effectiveness and thereby increase its profit growth. 



IV. Implementation of Unichat = Virtual McWorld 
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a. Character Based Online Community 

Using Ronald McDonald and other McDonald's trademark characters, 
products and other recognized McDonald's settings, Unichat's Technology can be 
used to create an on-line world of McDonald's for McDonald's customers, 
patrons, employees and co-promoters. Customers can reach this "community" 
through McDonald's official website and or/ by CD's distributed through various 
channels such as Happy Meals, or other promotional events. 

b. Targeted Audiences 

One medium ~ numerous benefactors 

• Customers/Friends of all ages: 

Children; Teenagers; Young Adults; Parents 

• Employees 

• Charity 

• Sponsors/Co-promoters 

• McDonald's 



c. Sample Scenario: 

• Customized setting: colorful, stimulating, active backdrop and props of familiar 
McDonald's characters and store features. A virtual recreation of any desired 
McDonald's indoor or outdoor environments including: Restaurants, theme parks, 
concert halls, corporate offices, university classrooms and imaginary locales. 

• Environments populated with McDonald's characters like: Ronald, Grimace, 
Hamburgler and Birdie. Users take on a virtual likeness chosen fi-om over 40 
characters (male, female, old, young, multi-races and even animals) 

• Equipped with appropriate language and behavior censors and filters. 

• The room fiiU of banner advertisements of McDonald's products. 

• Click-on high quaHty games featuring McDonald's characters to win coupons or 
tickets with a store locator indicating the closest store where one can redeem the 
coupon. 

• All of the visual contents can be downloaded and/or printed out by the user. 

• Info link, promos with other toys link, game links for different ages including one 
for parents. 

• Themed rooms for discussion, entertainment, etc. 

• Connect with a family or fiiend at RMH. 

• Suggestion box for McDonald's. 

• Live chat with celebrities in specialized settings. Custom celebrity avatars can be 
created! 



V. Functions: Something for Everyone 
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• Advertising banners with the latest sales and events just like TV ads of 
McDonald's as well as other companies of McDonald's choosing. 

• New Ronald's Play House with involving games, contests, and etc. for children 
and teenagers 

• Chatting with themed rooms , which can be specialized according to the type of 
research McDonald's would like information on. Special "rooms" for holidays, 
events, sports, etc. 

• Safe and Educational Internet for toddlers and young children who cannot "chat": 
Happy Meals can feature customized CD's containing the basics of 
Computer/Internet education to be used with parents. 

• Providing ways customers can purchase or win promotional prizes: Redeemable 
coupons and tickets can be won on-line, printed up on their own computers, to be 
used at stores. Cuts production and assembly cost 

• Host charity events on-line using the games: new ways to raise money for the 
Ronald McDonald House making participation easy and fun for everyone 
Empowering users 

• Families and sick children staying at RMH can use the site to communicate with 
each other. RMH and what it is about and how people can help is more inviting 

• Can hold employee meetings , forums, anonymous feedback and discussion. 
Employee only rooms where employees around the country and globe can 
communicate with each other: boosting employee morale and company spirit. 

• Chat with contracted celebrities: Olympic athletes, music groups N'Sync® 

• Collaboration with featured cartoons and toys such as Pokemon® and customize 
Pokemon® avatars to be used to chat or play games; advertisements of 
participating movie or product premier dates and information. 



Unichat can connect everyone under McDonald's umbrella, McWorld! 
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# # 

VI. Results: The Bottom Line 



• Lower advertisement/marketing costs: this promotional vehicle is less expensive 
than the "htird goods" McDonald's usually uses (i.e. action figures, beanie babies) 
while attracting the same type of excitement for McDonald's. 

• 24-hours of advertisement. Customizable and adjustable, conveniently and 
quickly. 

• Wider range of audience/participants in age, location, interests and time. 

• Can be a corporate leader in providing children's first basic education about 
computers and the Internet usage. 

• Development of trusting relationship with parents. 

• Accessibility of McDonald's for its customers/friends on their own personal 
operating time. 

• Broadening its reputation from the leading fast-food maker and distributor to an 
entertaining and educating community, a way of life. 

• The first fast-food chain to do so: gain a competitive advantage 

• Receive instant, valuable feedback from users on anything from McDonald's 
products to future directions of the market, and demographic marketing data in 
real time environments, (i.e. surveys, polls on new product, customer service, etc.) 

• Easy, universal communication mechanism for all McDonald franchise stores and 
employees. 

• A McDonald's community and loyal friends can develop even in locations 
without a McDonald's store. 



Unichat can establish satisfied and loyal customers/friends from childhood, for life! 
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VII. UNI's Future implementation ideas for McWorld... 

Expansion of McDonald's On-line business: 

♦ Sale or auction - of collectible McDonald's Happy Meal Toys 

♦ E-commerce - of McDonald's character-based promotional materials and 
virtual order processing for almost any product 

♦ Virtual Reality - Sale of time and space on McDonald's site 

♦ Virtual McDonald's University - Online virtual training and distance 
learning with a live, graphic interface 

♦ Mobile McDonald's Land — hook ups to mobile wireless devices such as 
cell phones and wireless PDA devices. Activities, coupon generation and 
Global positioning, remote restaurant locator services. 




The possibilities for Virtual McWorld are endless. As the corporate vision continues 
into the new century and as technology continues to grow, Unichat can easily scale 
its operation to stay always ahead of the pack to provide worldwide quality of 
interactive activities, distance learning, and marketing opportunities, 
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VIII. The First Step Together; Estimated Costs and Time 





Phase One 


Phase Two 


Phase three 


1) Function 


Unichat base 


McDonald's base 


McWorld, same as 
store 


License Fee: 


MapEd License Fee: 
$500 000 


Upgrade Fee: 
S200 000 


2) Room 


Unichat Room with 
McDonald's tile 


20 customized 
McDonald's Room 


McDonald's Room Plus 
Sponsors' or Co- 


New Tile in 50 
Rooms: $100,000 


20 rooms: $400,000 


Paid by Sponsors/Co- 

promoters=McDonald's 

Profit 


3) Character 


Unichat Character 
wim 1 Mcuonaia s 
Character 


10 McDonald's 
unique cnaraciers 


10 McDonald's character 
wim oponsor s 
Character: ex. Ty animal 


New Character 
with 44 frames: 


10 characters with 
44 frames: $250,000 


Paid by 

Sponsors. . . =McDonald's 


4) Games 


Get coupons for 
Free drinks, or get 

simple. 


McDonald's 
promotion games 

BigMac: Single 
Player Games 


McDonald's Promote 
with game sponsors like 

ODliy, INil lLt:;i lUD, olO.. 

Multi-Player Games 


New game: 
$270,000 
(Publishing not 

inpli jHprl^ 

II lOIUUCU J 


2 McDonald's 
games: $800,000 
(Publishing not 
inpli jHprl^ 

II IturlUUCVJf 


Paid by 

Sponsors. . . =McDonald's 
Profit 


5) Concurrent 
user 


Under 5000 


Under 10,000 


More than 50,000 


6) Hosting 


Unichat 

3 Computers for 
Chat, Web and 
Data servers 
T1 line for 5 
Months 


Using Co-Locations 
5 computers 
T1 plus 5Mbps co- 
locations service. 
Ex.: (above.net) 


McDonald's 

9 Computers 

T1 plus 20Mbps or T3 

Computer room 


Cost H/W: 
$150,000 


Cost H/W: $400,000 


Cost H/W: $1,300,000 



Continued on next page 
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V 

f 





Phase One 


Phase Two 


Phase three 


7) Advertising 


MpDnnalH'^ "Tilf^ 


Mrr)onpld'<^ TIIp Full 
Screen, and Banner 


w|i^l^l lOvl O l-'CII II Id 


No extra co^^t 


R^duppd Markptino 
Development Fund 
(MDF) 


Paid hv 

Sponsors. . . =McDonald's 
Profit + Reduced MDF 


8) ECRM 
(Electronic 

Relationship 
Management) 


Database, 
Requested by 

IVIV^L^WI ICIIvl O 


Customer service 
and Employee 

^prvipp* M?irlcpt 

Database 


Marketing Research and 
Simulation. 

py* XA/hat XppriQ XA/i^^nf? 


Cost S/W: 
$150,000 


Upgrade S/W: 
$150,000 


Uoarade S/W- $150 000 


9) Others 


Language/Content 
Filterinn Cpn<>or 
$120,000 


Greeting card 
$350 000 


Multl players 
MnDnnj^ld*^ namp 
$1,500,000(publishing 
not included) 


10) Schedule 
(D day is 
Starting day) 


D day + 6 Month 


D day +12 Month 


Dday+ 18 Month 


Total Cost 


$1,315,000 


$2,850,000 


$3,150,000- Income 
from Sponsors/Co- 
Promoters 


*Rennarks 


-Maintenance charge will be included 



Unichat^s proposed, new virtual McWorld, is highly multi-functionah 
forward looking, and best of all, profit generating in many ways : 
The best business solution for McDonald's 
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